1. 51.
    0
    eczanede mi ölçtürdün?
    ···
  2. 52.
    0
    Kod: 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.
    ···
  3. 53.
    0
    http://imgim.com/27ww2yx.jpg
    ···
  4. 54.
    0
    @1 liseli taze beyin
    ···
  5. 55.
    0
    olm 14.5 falandır o iyi bak
    ···
  6. 56.
    0
    iq nu gibiyim o zaman dalyarak.
    yanlış testi çözmüşsündür kesin
    ···
  7. 57.
    0
    önemli olan onu kullanabilmek
    ···
  8. 58.
    0
    HARBi NERDE ÖLÇTÜRÜLÜYO BU AYKÜ
    ···
  9. 59.
    0
    link ver züt
    ···
  10. 60.
    0
    159 çıkmıştır benim
    ···
  11. 61.
    0
    300 tam puan üzerinden değerlendirildiyse çok normal.
    ···
  12. 62.
    0
    @50 http://www.nobrain.dk diye site var kanka, solda alttan ikinci link : )
    ···
  13. 63.
    0
    hayret kimsenin 12.5 falan çıkmamış
    ···
  14. 64.
    0
    test yanlış demek..
    ···
  15. 65.
    0
    şimdi aq testi çöz
    ···
  16. 66.
    0
    başı hariç 21 cm + damarlı çıktı ama ben senin gibi hava yapıyo muyum aq.
    ···
  17. 67.
    0
    ben zaten obua çalarak koşuyorum
    ···
  18. 68.
    0
    benim 10 çıktı iyi mi lan binler??
    ···
  19. 69.
    0
    @58 21 yazarken noktayı unutmuş beyler

    ccc 2.1 cm ccc
    ···
  20. 70.
    0
    146'dan çıkartacan onu o zaman doğru oluyor
    ···