Tcp Ip bei übertragung fehlen bytes

[Marlon]

Hallo Leute,
nachdem ich mich gestern mühsam in das Protokoll eingearbeitet habe, weil fast alles was man zu Indy findet aus alten Versionen ist, dachte ich ich könnte damit abschließen .
mein Problem ist dass bei der Übertragung von Daten immer vier Bytes fehlen.
Woran könnte das liegen?

Client:

Delphi-Quellcode:

procedure TFileExchangeClientForm.SetClientState(aState : Boolean);
begin
  if (aState = True) then
     begin
     IdTCPClient1.Connect;
     end
     else
     begin
     IdTCPClient1.Disconnect;
     end;
end;

function ClientSendFile(AClient: TIdTCPClient; Filename: String): Boolean;
begin
  AClient.IOHandler.LargeStream := True;
  Result := True;
  try
    AClient.IOHandler.WriteFile(Filename);
  except
    Result := False;
  end;
end;

procedure TFileExchangeClientForm.Button_SendStreamClick(Sender: TObject);
var
  LSize: LongInt;
begin
  IdTCPClient1.Host := '127.0.0.1';
  IdTCPClient1.Port := 6000;
  IdTCPClient1.Connect;
  LSize := 0;
  Memo1.Lines.Add('Versuche Stream zu Server zu schicken');
  if (ClientSendFile(IdTCPClient1, FileNameEdit.Text) = False) then
  begin
    Memo1.Lines.Add('Buffer konnte nicht gesendet werden' +
       FileNameEdit.Text);
    Exit;
  end
  else
  begin
    Memo1.Lines.Add('Buffer wird gesendet an ' +  FileNameEdit.Text);
  end;
  SetClientState(False);
end;

Server:

Delphi-Quellcode:

procedure TFileExchangeServerForm.IdTCPServer1Execute(AContext: TIdContext);
var
  LSize: LongInt;
  file1 :  String;
begin
  AContext.Connection.IOHandler.ReadTimeout  := 9000;
  file1:= SaveFileEdit.Text;
  if (ServerReceiveFile(AContext, file1) = False ) then
  begin
    TIdNotify.NotifyMethod(ShowCannotGetFileErrorMessage);
    Exit;
  end;
  TIdNotify.NotifyMethod(FileReceived);
end;

function ServerReceiveFile(AContext: TIdContext; ServerFilename: String): Boolean;
var
  AStream: TFileStream;
begin
  try
    Result := True;
    AStream := TFileStream.Create(ServerFilename, fmCreate + fmShareDenyNone);
    try
      AContext.Connection.IOHandler.ReadStream(AStream);
    finally
      FreeAndNil(AStream);
    end;
  except
    Result := False;
  end;
end;

mfg Marlon

[mjustin]

  AClient.IOHandler.LargeStream := True;
Diese Zeile auf dem Client ändert das Protokoll, sie und muss daher auch auf der Serverseite verwendet werden, damit das vom Client gesendete und das vom Server erwartete Format zusammenpassen.

Lösung (ungetestet): vorAContext.Connection.IOHandler.ReadStream(AStream); noch ein AContext.Connection.IOHandler.LargeStream := True; einfügen.

Oder (falls nur Dateien mit Länge unter zwei Gigabyte übertragen werden), einfach das LargeStream := True; im Client entfernen.

[Marlon]

Als erstes ein Danke an mjustin
ist vollkommen logisch aber ändert leider nichts am Resultat.

Es fehlen immer noch Daten in der neuen Datei.

Habe dein Edit gerade gesehen. Könnte der Befehl "AContext.Connection.IOHandler.LargeStream := True;" den fehler verursachen, wenn man eigentlich nur kleine Daten versenden will (bzw versendet)?

[mjustin]

Zitat von Marlon:

Als erstes ein Danke an mjustin
ist vollkommen logisch aber ändert leider nichts am Resultat.

Es fehlen immer noch Daten in der neuen Datei.

Habe dein Edit gerade gesehen. Könnte der Befehl "AContext.Connection.IOHandler.LargeStream := True;" den fehler verursachen, wenn man eigentlich nur kleine Daten versenden will (bzw versendet)?

Nein, bei LargeStream dürfen Dateien auch weniger als 2 GB lang sein. Entscheidend ist dass Client und Server die gleiche Einstellung verwenden, da entsprechend mehr oder weniger Längenbytes vor den Dateidaten gesendet werden.

[Marlon]

Ich schau mir die Konfiguration etc. nochmal genau an und melde mich wieder, wenn ich keine Lösung finde aber bis dahin danke für die schnelle Hilfe

[Sherlock]

Welche vier Bytes fehlen denn? Die ersten/letzten, oder unzusammenhängend irgendwelche?

Sherlock

[Marlon]

Mir ist gerade aufgefallen dass es immer unterschiedlich viele bytes sind.
Der fehler entsteht dadurch ,dass der client keinen stream erstellt. Es gibt praktisch kein gegenstück von der Serverkomponentdie Datei so auszulesen wie sie auch reingeschrieben wurde.
dennoch danke für die Hilfe.
Wenn ich das Problem gelöst habe werde ich die Lösung hier posten.

mfg Marlon

[Photoner]

Zitat von Marlon:

Es gibt praktisch kein gegenstück von der Serverkomponent die Datei so auszulesen wie sie auch reingeschrieben wurde.

Da muss ich widersprechen. ReadStream macht genau das.

Bei LargeStream := True sendet die Komponente mit WriteFile zuerst die Größe des zu sendenden Streams als Int64, also 8 Bytes.

Der Server liest bei LargeStream := False //default die Größe des zu empfangenden Streams als LongInt, also 4 Bytes.

Entweder die Größe stimmt zwar, aber der Stream hat anfangs einen 4 Bytes Offset und die resultierende Datei ist um 4 Bytes am Ende zu kurz oder die Größe stimmt von vornherein nicht.