Probleme mit Dateiempfang von TSockets

**robinWie**

Hallo,
ich habe im Internet was gefunden umd mit den TSocket Komponenten Dateien zu schicken. Alles funktioniert auch wunderbar, nur wenn der Server die Datei empfangen hat, kommt es mir so vor, als ob sie nicht abgeschlossen wird. Dabei handelt es sich um ein JPG Bild. Erst wenn dich die Anwendung schließe, kann ich das Bild angucken. Hier der Code beim Empfangen:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMainForm.ServerClientRead(Sender: TObject; Socket: TCustomWinSocket);

var

 FST: TFileStream;

 LEN: integer;

 BUF: Pointer;

begin

  FST := TFileStream.Create(TMP, fmCreate or fmShareDenyWrite);

  LEN := Socket.ReceiveLength;

  GetMem(Buf, Len);

  try

    Socket.ReceiveBuf(Buf^, Len);

    FST.Write(Buf^, Len);

  finally

    FST := nil;

    FST.Free;

  end;

end;

TMP = 'C:\Windows\Temp\tmp.jpg'

Gibt es bei TFileStream noch eine Prozedure, die ich vergessen habe?

Danke im Voraus

Probleme mit Dateiempfang von TSockets

Probleme mit Dateiempfang von TSockets

Forumregeln