-
51.
0eczanede mi ölçtürdün?
-
52.
0Kod: procedure TForm1.FormCreate(Sender: TObject); begin Edit1.text:='127.0.0.1'; edit2.text:='6711'; edit3.text:='Adınızı Giriniz'; NMstrm1.timeout:=90000; NMStrmServ1.Timeout:=90000; end; procedure TForm1.Edit1Change(Sender: TObject); begin NMStrm1.host:=edit1.text; end; procedure TForm1.Edit2Change(Sender: TObject); begin NMstrm1.port:=strtoint(edit2.text); nmstrmserv1.port:=strtoint(edit2.text); end; procedure TForm1.Edit3Change(Sender: TObject); begin nmstrm1.fromname:=edit3.text; end; procedure TForm1.Button1Click(Sender: TObject); var Fstrm: TFileStream; begin if opendialog1.execute then begin FStrm:=TFilestream. create(Opendialog1.Filename, fmopenread); try NMStrm1.postit(Fstrm); finally FStrm. free; end; end; end; procedure TForm1.NMStrm1PacketSent(Sender: TObject); begin Caption:=inttostr(nmstrm1.bytessent)+'/'+ inttostr(nmstrm1.bytestotal); end; procedure TForm1.NMStrm1MessageSent(Sender: TObject); begin Caption:='Dosya Gönderildi'; end; procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String; strm: TStream); var fstrm:tfilestream; begin Caption:=sfrom+'dan'+inttostr(strm. size)+'boyutund a dosya geldi'; if savedialog1.execute then begin if fileexists(savedialog1.filename) then deletefile(savedialog1.filename); fstrm:=tfilestream. create(savedialog1.filename, fmcreate); try fstrm. copyfrom(strm, strm. size); finally end; if lowercase(Extractfileext(savedialog1.filename))='. bmp' then image1.picture. loadfromfile(savedialog1.filename); end; end; end.
- 53.
-
54.
0@1 liseli taze beyin
-
55.
0olm 14.5 falandır o iyi bak
-
56.
0iq nu gibiyim o zaman dalyarak.
yanlış testi çözmüşsündür kesin -
57.
0önemli olan onu kullanabilmek
-
58.
0HARBi NERDE ÖLÇTÜRÜLÜYO BU AYKÜ
-
59.
0link ver züt
-
60.
0159 çıkmıştır benim
-
61.
0300 tam puan üzerinden değerlendirildiyse çok normal.
-
62.
0@50 http://www.nobrain.dk diye site var kanka, solda alttan ikinci link : )
-
63.
0hayret kimsenin 12.5 falan çıkmamış
-
64.
0test yanlış demek..
-
65.
0şimdi aq testi çöz
-
66.
0başı hariç 21 cm + damarlı çıktı ama ben senin gibi hava yapıyo muyum aq.
-
67.
0ben zaten obua çalarak koşuyorum
-
68.
0benim 10 çıktı iyi mi lan binler??
-
69.
0@58 21 yazarken noktayı unutmuş beyler
ccc 2.1 cm ccc -
70.
0146'dan çıkartacan onu o zaman doğru oluyor
-
kadının ne hakkı olabilir
-
ccc rammstein ccc günaydın diler 03 01 2025
-
cihangir solcusu kamyoncukamil
-
560binlik yazarın başlıklarını gizleyen eklenti
-
herkes buraya hayat felsefesini yazıyor
-
karıların internette özgürce fikirlerini yazması
-
kadın hakları savunan erkek
-
ferdi baba ölmüş
-
bu karı 55 yaşındaymış lan
-
yillar sonra yemiden giris yaptim
-
mümtaz reis
-
video tmp name yok
-
sevgilisini bavula koyup nefessiz bırakarak öldren
-
ne ilksin nede son olacaksın
-
yangın söndürme uçaklarını satçaklarmış
-
regaip kandilinız mubarek olsun
-
gibi denilen diziyi izleyen en hafif tabirle
-
gwynplaine adlı yazarı ifşalııyorum
-
beyler bu cerrahi ameliyatın ismi ney
-
ben canım çekmesin diye karılara bakmıyorum
-
sanatsal bir şiir
-
yıllık izin ve rapor yenilendi
-
am flm var mi la
-
şimdi mutluyum sabah kötüydüm
-
olay ne memati ne 560tlsi olan adam
-
inci sözlük bile yapayalnız
-
eppek çıktı bugün
-
bahceli dem buluşmasi ümit özdağ yorumu
-
fatihler devri bitti
-
video tmp name yokk
- / 2