Forum
Aktif konular
Üyeler
Kurallar
Arama
Delphi - Yardim Edenden Allah Razi Olsun:) Delphi - Yardim Edenden Allah Razi Olsun:)
-
merhaba arkadaşlar. bi kaç sorum olcek yardımcı olanlardan allah razi olsun...
[Soru 1]-------------------------------------------------------------
hata tanımlama nasıl oluyoo?
var
sayi : integer;
begin
sayi := strtoint(edit1.text);
if sayi = "598744" then
showmessage("Doğru Şifre Girdiniz");
end;
else
begin
showmessage("Yanlış Şifre Girdiniz");
end;
end;
end.
şimdi arkadaşlar burada edit1.text olayına sadece integerlik bilgiler girilio.
benim amacım normal text yani harf yazıldığı zaman hata vermemesini sağlamak
yani edit1.text"e "deneme" yazısını girince <"deneme" is not a valid integer value>
die bi yazı çıkıyor. şimdi benim amacım bu hatayi yonlendirmek.
hatirlamiyorum try la başliyan birşeydi ama neydi?
böle beceremediğiim bi sürü hata var. yardımcı olabilirseniz sevinirim arkadaşlar...
------------------------------------------------------------------------------------
[Soru 2]--------------------------------------------------------------------------------------
edit1"e her tıkladığında farkli bi yazi çıkacak örneğin
button1.click
edit1.text:=memo1.text[1] gibi
yani ilk tıkladığımda memo1.deki 1satiri edit1e yazcak işte böle bişey
her tıkladığımda bi alt satira gecicek?
başka bi soru.
herhangi bi döndü yapmak. for do döngüsü ile olmadı.
mesela
begin
showmessage("naber lam manyak?");
end;
--------------------------------------------------------------------------
[Soru 3]--------------------------------------------------------------------------
ya arkadaşlar anlamadiiim bi olay var. galiba sacmaliorum ama yinede soriim
ya email bomber yapmak o kadar zormu?
bi örnek veriim
procedure TForm1.Button1Click(Sender: TObject);
var
adet : integer;
begin
for adet:=1 to strtoint(edit1.text) do
begin
NMSMTP1.Host := "mail.tahribat.com";
NMSMTP1.UserID := "admin";
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress := "knoppix@root.com";
NMSMTP1.PostMessage.ToAddress.Text := "knoppix@hotmail.com";
NMSMTP1.PostMessage.ToCarbonCopy.Text := "theknoppix@hotmail.com";
NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := "theknoppix@hotmail.com";
NMSMTP1.PostMessage.Body.Text := "Bu Bir deneme mesajidir.";
NMSMTP1.PostMessage.Attachments.Text := "c:\File.txt";
NMSMTP1.PostMessage.Subject := "Deneme";
NMSMTP1.SendMail;
//ShowMessage("mail Gonderildi");
NMSMTP1.Disconnect;
end;
end;
end.
ya bumudur?email bomber:) bu kadar basit olamas die düşünüom ben yaaa.
şimdi smtp adresleri filan hepsini doğruladim mail yollayabiliorum diim.
email bomber mi olcak salak salak?
arkadaşlar simdi dieceksinizki ya salakmısın kardeş denesene?
walla arkadaşlar cafedeyim deneyemiorum:) evdede net yok şimdilik...
------------------------------------------------------------
[Soru 4]----------------------------------------------------------
bunu biçok arkadaş biliodur. delphi7 bisürü saçma şeyden arındırılmış güyaa.
simdi delphi6da önceden nmsmtp filan vardı. simdi nerdeeeeee yaaaaaaaaaaaa?
bisürüüürü pop3 bilmem ne zart zurt var. nerden buLcam ben? :)
--------------------------------------------------------------
[Soru 5]----------------------------------------------------------------------
progresse bağlı olarak işlem yapma...
örneğinn diyorum ki
memo1.lines.load("C:/windows/lisance.txt");
bu işlemi yaparken progress e bağlı olarak çalışcak..
yani işlem yaparken progress bittiğinde işlemin bittiği anlaşılacak?
---------------------------------------------------------------- -
1.Sorunun cevabı
var
sayi:string;
begin
sayi := edit1.Text;
if sayi = "1234" then
begin
showmessage("Doğru Şifre Girdiniz");
end
else
begin
showmessage("Yanlış Şifre Girdiniz");
end;
end; -
4.Sorun için
Delphi 7 kullanmıyorum ama indy bileşenlerini yükle zaten vardır da kullananlar varsa bilirler -
Progress ile ilgili sorun için valla hiç öyle denemedim belki uzun yoldur ama işe yarıyor
progressbar1.position:=15;
sleep(100);
progressbar1.position:=30;
sleep(100);
ShowMessage("Yükleme Bitti");
Eywallah .
-
ben hata tanimlama sordum sen bana ne anlattin:) neyse yinede saoL...
-
yazacağın kodları
try
//buraya kodları yaz
except
//burayı boş bırak
end;
o zaman hata vermez
-
try
//kodun
except on e
showmessage(e.message)
end;
Bu şekilde daha aciklayici hata mesajları yarattırabilirsin yada görünmelerini engellersin.Mail bomber yapmak solediin kadar kolay ama mx serververi cozumlemezsen o mail bomber bi işe yaramaz:) mesela hotmaile mail atman icin hotmailin MX serverina baglanman gerekir. ama senin programın bunu cozumlemezse ortalama kullanıcı nerden bilsin mx3.hotmail.com a baglanmasi gerektiini:)
for basit...
for i:=0 to 10 do
begin
showmessage(inttostr(i))
end;daha da gelistirelim
for i:=0 to 10 step 2 do
begin
showmessage(inttostr(i))
end;----
memo1.lines.load("C:/windows/lisance.txt");
bu işlemi progressbarla yapamazsın. cunku memo1 classi altindaki fonksiondan cagiriosun yuklencek dosyayi, yani asil islemi class yapio, kullaniciyi kandirmak istiosan uyduruk bi progressbar komasi kolay ama gercek bişe koycaksan...
aStream: TFileStream;
gibi bi stream tanimlayip veriyi blocklar halinde okutup, ekrana yazarken progressbari o olcude arttirman gerekir.(bu da simdilik seni asar bence)
Delphi 7 de dandirik socket,mail componentleri yerin indy geldi. eskisine göre daha zor ama daha kaliteli
nmsmtp kullanmak istiosan delphi klasorunde bi yerlerde bpl dosyasi halinde bulunması gerekiyo install component menusunden kurabilirsin d7 ye de. ilk kurduunda cikmio yani ama war.
-
Memo1.Lines.LoadFromFile(Dosya_ad) olacak herhalde Arkadaş
try
on hata:exception do
ShowMessage(Hata.Message) gibi bir yapı daha doğru herhalde
except
end;
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla