Ok... tut mir leid, dass ich nochmal alles über den Haufen werf, aber ich hab jetzt einfach selber mal versucht! Geht auch soweit, außer, dass ich das Problem hab, dass der Steam unendlich oft gesendet wird
also die Datei unendlich groß wird ^^ vorrausgesetzt man unterbricht das Programm nicht...
Der Code:
Server
Delphi-Quellcode:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
var fStream:TFileStream;
begin
fStream := TFileStream.Create('c:\test.ini',fmOpenRead + fmShareDenyNone);
AThread.Connection.OpenWriteBuffer;
AThread.Connection.WriteStream(fStream);
AThread.Connection.CloseWriteBuffer;
FreeAndNil(fStream);
end;
Client
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var ftmpStream:TFileStream;
begin
with IdTCPClient1 do begin
Connect;
ftmpStream := TFileStream.Create('c:\test2.ini',fmCreate);
while connected do
ReadStream(fTmpStream,-1,true);
FreeAndNil(fTmpStream);
Disconnect;
end;
end;