Ağ üzerinden ve İnternetten ip adresine göre dosya alma(gönderme)

[By_FUCKan]

Ağ üzerinden veya internetten ip adresine göre dosya alma ve gönderne

//Formumuza 3 Edit, 1 openDialod, 1 saveDialog, 1 Button, 1 NMStrm, 1 NMStrmServ, 1 İmage Ekleyin ve asagıdakı kodları yazın

Kod:
procedure TForm1.FormCreate(Sender: TObject);beginEdit1.text:='127.0.0.1';edit2.text:= '6711';edit3.text:='Adınızı Giriniz';NMstrm1.timeout:=90000;NMStrmServ1.Timeou t:=90000;end;procedure TForm1.Edit1Change(Sender: TObject);beginNMStrm1.host:=edit1.text;end;procedu re TForm1.Edit2Change(Sender: TObject);beginNMstrm1.port:=strtoint(edit2.text);n mstrmserv1.port:=strtoint(edit2.text);end;procedur e TForm1.Edit3Change(Sender: TObject);beginnmstrm1.fromname:=edit3.text;end;pro cedure TForm1.Button1Click(Sender: TObject);varFstrm: TFileStream;beginif opendialog1.execute thenbeginFStrm:=TFilestream.create(Opendialog1.Fil ename, fmopenread);tryNMStrm1.postit(Fstrm);finallyFStrm. free;end;end;end;procedure TForm1.NMStrm1PacketSent(Sender: TObject);beginCaption:=inttostr(nmstrm1.bytessent) +'/'+ inttostr(nmstrm1.bytestotal);end;procedure TForm1.NMStrm1MessageSent(Sender: TObject);beginCaption:='Dosya Gönderildi';end;procedure TForm1.NMStrmServ1MSG(Sender: TComponent; const sFrom: String;strm: TStream);varfstrm:tfilestream;beginCaption:=sfrom+ 'dan'+inttostr(strm.size)+'boyutund a dosya geldi';if savedialog1.execute thenbeginif fileexists(savedialog1.filename) thendeletefile(savedialog1.filename);fstrm:=tfiles tream.create(savedialog1.filename, fmcreate);tryfstrm.copyfrom(strm, strm.size);finallyend;if lowercase(Extractfileext(savedialog1.filename))='. bmp' thenimage1.picture.loadfromfile(savedialog1.filena me);end;end;end.