Hallo ich bin relativer Delphi Anfänger,
wollte mit der Indy Komponente IdTCPServer und IdTCPClient Dateien transferieren (keine http oder ftp transfervorschläge bitte)
blicks leider nicht und hab schon zahlreiche Misserfolge hinter mir. Hier mein Code für Streams:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.DateiUebertragen(MyFileName:string);
var MyStream:TFileStream;
begin
IdTCPClient1.Connect(3000);
Caption:='Connected';
MyStream:=TFileStream.Create(MyFileName,fmOpenReadWrite);
IdTCPClient1.WriteStream(MyStream,true,false,0);
MyStream.Free;
IdTCPClient1.Disconnect;
Caption:='Disconnected';
end; |
kann man das so machen und wie muss dann der Code zum Empfangen am Clienten aussehen?? hab das noch nich so raus, vor allem wann weis der Server wann überhaupt ein FileStream ankommt?
hier bitte den Code ändern und posten wenn man das so machen kann wie oben beschrieben (ganz andere Ideen wären auch gut):
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
MyStream:TFileStream;
begin
MyStream:=TFileStream.Create('c:\diedatei.dat');
AThread.Connection.ReadStream();
end; |
vielen dank, wär toll wenn jemand den code fertigschreibt, oder mal tipps gibt wie das überhaupt möglich ist
Viele Grüße eci
