Ü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:

[Klaus01]

.. vergleiche mal die Größe der Originaldatei mit der übertragenen Datei?

Du trennst die Verbindung nachdem ein oder mehrere Packete empfangen wurden.
Bist Du dir sicher das dann die gesamte Datei übertragen wurde?

Grüße
Klaus

[Benni0811]

Die Dateigröße ist die selbe, außerdem laufen beide Programme auf einem Computer.

[Zacherl]

Zeig mal den Code, mit dem du die Datei tatsächlich liest/schreibst.

[Benni0811]

Passiert das nicht in dem Code den ich schon geschickt habe?
Im Programmcode wird sonst nur der Server aktiviert.

[4dk2]

ich würde mir die empfangene Datei mal ansehen, wenn die Größe stimmt
z.b. mit:
HxD - HexEditor