Ü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

[nahpets]

Hinter

Delphi-Quellcode:

FStream := TFileStream.Create(filename, fmCreate);

bitte mal mit

Delphi-Quellcode:

FStream.Position := 0;

probieren.

[Der schöne Günther]

1. Warum liest du in deinem Server erst einen Integer raus wie lang der Stream angeblich sein soll? Den schreibst du in deinen Button1Click doch auch nicht rein! Einfach weglassen und alles lesen

2. Mach den FileStream auch wieder zu am Schluss!

Delphi-Quellcode:

procedure TForm10.Button1Click(Sender: TObject);
var
   FStream:TFileStream;
begin
   FStream := TFileStream.Create(fileIn, fmOpenRead);
   try
      IdTcpClient1.Connect();
      IdTCPClient1.Socket.Write(FStream);
      IdTCPClient1.Disconnect();
   finally
      FStream.Destroy();
    end;
end;


procedure TForm10.IdTCPServer1Execute(AContext: TIdContext);
const
   fileOut = 'x:\zipfile_out.zip';
Var
   FStream: TFileStream;
begin
    FStream := TFileStream.Create(fileOut, fmCreate);
    try
       AContext.Connection.Socket.ReadStream(fstream);
       AContext.Connection.Disconnect();
   finally
      FStream.Destroy();
    end;
end;

So funktioniert das bei mir ohne Probleme...

[Benni0811]

Also mein Code sieht jetzt so aus:

Sender:

Delphi-Quellcode:

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

Empfänger:

Delphi-Quellcode:

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
Var
  FStream: TFileStream;
begin
    FStream := TFileStream.Create(filename, fmCreate);
    FStream.Position := 0;
    with AContext.Connection do begin
        Socket.ReadStream(fstream);
        Disconnect;
    end;
    FStream.Destroy;
end;

Die Dateien lassen sich aber immernoch nicht öffnen. Ich habe die Dateien auch mit HxD-HexEditor geöffnet und sie sind unterschiedlich. Außerdem habe ich mal eine .txt-Datei verschickt, da hat alles perfekt funktioniert.

[Der schöne Günther]

Komisch. Hast du eine Beispiel-Datei die nicht funktioniert? Und vielleicht einmal dein komplettes Projekt? Nicht dass sich da noch etwas drin versteckt das man nicht vermutet...