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

**ßykadiR** · 27-10-2006, 12:12

PHP Kodu:


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

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.

**hukmurat** · 12-11-2007, 02:57

eline saülıkk
bennn
palet ekleyemedimm
nmstrm
nasıl olacakk
eğerr programıı yaptıysann gçnderirmisinn??

**hukmurat** · 12-11-2007, 02:59

msn:[Sadece kayıtlı üyeler linkleri görebilirler. ]

gönderirseniz

**hukmurat** · 12-11-2007, 03:00

msn:[Sadece kayıtlı üyeler linkleri görebilirler. ]

gönderirseniz sevinirimm
şimdidenn tşkk

27-10-2006, 12:12	#1 (permalink)
ßykadiR Gelişen Üye Durum:Offline Üyelik Tarihi: Oct 2006 Nerden: İstanßuL Mesajlar: 196 Takım: Galatasaray KanGrubu: B RH + Eğitim: Lise Sevdiği Bölüm: Vbulletin stilleri Burcunuz: Yay Arkadaşları:0 Ettiği Teşekkür: 0 Aldığı Teşekkür 11 Xsir Gücü: 0 Xsir Puanı: 1 Xsir Grafiği:	Ag üzerinden veya internetten ip adresine göre dosya alma ve gönderne PHP Kodu: //Formumuza 3 Edit, 1 openDialod, 1 saveDialog, 1 Button, 1 NMStrm, 1 NMStrmServ, 1 İmage Ekleyin ve asagıdakı kodları yazın 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. __________________ _________________________________ Copyright © 2006 By √ ' ™ KaDiR ® Hiç bir hakkı saklı değildir... \|l\|lllll\|lll\|\|ll\|\|lll\| ²¹°¹³²¹³ °¹²¹³

12-11-2007, 02:57	#2 (permalink)
hukmurat Yeni Üye Durum:Offline Üyelik Tarihi: Sep 2006 Mesajlar: 3 Arkadaşları:0 Ettiği Teşekkür: 0 Aldığı Teşekkür 0 Xsir Gücü: 0 Xsir Puanı: 1 Xsir Grafiği:	Ce: Ag üzerinden veya internetten ip adresine göre dosya alma ve gönderne eline saülıkk bennn palet ekleyemedimm nmstrm nasıl olacakk eğerr programıı yaptıysann gçnderirmisinn??

12-11-2007, 02:59	#3 (permalink)
hukmurat Yeni Üye Durum:Offline Üyelik Tarihi: Sep 2006 Mesajlar: 3 Arkadaşları:0 Ettiği Teşekkür: 0 Aldığı Teşekkür 0 Xsir Gücü: 0 Xsir Puanı: 1 Xsir Grafiği:	Ce: Ag üzerinden veya internetten ip adresine göre dosya alma ve gönderne msn:[Sadece kayıtlı üyeler linkleri görebilirler. ] gönderirseniz

12-11-2007, 03:00	#4 (permalink)
hukmurat Yeni Üye Durum:Offline Üyelik Tarihi: Sep 2006 Mesajlar: 3 Arkadaşları:0 Ettiği Teşekkür: 0 Aldığı Teşekkür 0 Xsir Gücü: 0 Xsir Puanı: 1 Xsir Grafiği:	Ce: Ag üzerinden veya internetten ip adresine göre dosya alma ve gönderne msn:[Sadece kayıtlı üyeler linkleri görebilirler. ] gönderirseniz sevinirimm şimdidenn tşkk

Konu Seçenekleri
Yazıcıdaki Görüntüsünü Göster Sayfayı E-Mail'le gönder
Modları Göster
Normal Mod Ağaç Modununa Geç Otomatik Konu Moduna Geç

Okuduğunuz Konuya Benzer Konular
Konu	Konuyu Açan	Forum	Cevaplar	Son Mesaj
bluetooth üzerinden futbol	don omar	Karantina Odası	12	27-09-2007 22:14
Kayıp telefonunuzu internetten bulun	RAY-BAN	Bilim&Teknoloji	0	28-03-2007 20:06
İnternet üzerinden hız rekoru	cyBER_HaYLaZ	Internet Haberleri	1	18-02-2007 19:49
TV'deki dizi ve filmler internetten indirilecek	OnLiNe	Internet Haberleri	0	08-02-2007 16:14
WC WC Boyutuna Göre	DoLuNaY_23	Resimler	1	24-07-2006 17:13