hallo,
da mich das Thema auch interessiert, hab ich grad ma fix ne funktion gebastelt,
die das hinkriegt.
es ist leichter als man denkt
zu erst senden wir alles per stream vom client:
Delphi-Quellcode:
procedure Button1Click(Sender: TObject);
var AStream:TFileStream;
begin
AStream := TFileStream.Create('hallo.txt', fmOpenRead or fmShareDenyWrite );
Clientsocket1.Socket.SendStream(AStream);
end;
so und jetz müssen wir das ganze nur noch am server empfangen
Delphi-Quellcode:
procedure TForm1.Server1Read(Sender:TObject;Socket:TCustomWinSocket);
begin
Memo2.Text:=Memo2.Text+Socket.ReceiveText;
end;
fertig
funktioniert wunderbar
man kann ja end EOF zeichen vereinbaren oder direkt danach die verbindung trennen
und dann per ondisconnect die datei schreiben