Problem mit SendStream und ReceiveBuf bei großen Dateien

**hugo1990**

Wenn ich folgendermaßen mit TClientSocket und TServerSocket Dateien versende:

Client:

Delphi-Quellcode:

			procedure TFileClient.SendData;

begin

  FClient.Socket.SendStream(FileStream);

end;

Server:

markieren

Delphi-Quellcode:

			procedure TFileServer.ReceiveData(Sender: TObject; Socket: TCustomWinSocket);

var

  Buffer: AnsiString;

  Size: Integer;

begin

  Size := Socket.ReceiveLength;

  SetLength(Buffer, Size);

  Socket.ReceiveBuf(Buffer[1], Size);

  FileStream.Write(Buffer[1], Size);

end;

bekomme ich die Meldung "Windows-Socket-Fehler: Eine vorhandene Verbindung wurde vom Remotehost geschlossen." Ich nehme mal an, das das so eine Art Timeout vom Server ist. Bin ich da richtig in der Annahme und wenn ja, wie kann man das ausschalten oder verlängern?

Problem mit SendStream und ReceiveBuf bei großen Dateien

Problem mit SendStream und ReceiveBuf bei großen Dateien

Forumregeln