Über Indy versandte Dateien lassen sich nicht öffnen

[Benni0811]

Hallo,

ich habe ein Programm geschrieben, mit dem man Dateien von einem Indy-Tcp-Client an einen Indy-Tcp-Server senden kann.

Sender:

Delphi-Quellcode:

procedure TForm2.SendButtonClick(Sender: TObject);
Var FStream:TFileStream;
begin
    FStream := TFileStream.Create(filename, fmOpenRead);
    with IdTcpClient1 do begin
        Connect;
        Socket.Write(FStream);
        Disconnect;
    end;
end;

Empfänger:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
Var
  FStream: TFileStream;
  SizeOfIncomingStream: Integer;
begin
    FStream := TFileStream.Create(filename, fmCreate);
    with AContext.Connection do begin
        SizeOfIncomingStream := Socket.ReadInteger(true);
        Socket.ReadStream(fstream, SizeOfIncomingStream, false);
        Disconnect;
    end;
end;

Das Problem: Die versendeten Dateien lassen sich nicht öffnen! Ich habe ein Bitmap-Bild und eine .exe Datei verschickt. Kann mir jemand sagen was das Problem ist?


Die Fehlermeldungen: