Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.058 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

TidBytes in ein File schreiben

  Alt 25. Sep 2018, 19:59
Hallo Zusammen,

dm1.FGlobalBuffer ist vom Type TIdBytes das wiederum ein Array of Bytes ist.
Wenn ich mir ein break point auf Data.WriteBuffer setze und dm1.FGlobalBuffer anschaue, sind die Bytes 100% korrekt.
Öffne ich das File GlobalBuffer.Log nach dem Schreiben mit einem hex Editor stehen darin völlig andere Bytes.
Probiert habe ich auch Data.Write ist kein Unterschied.
Hat jemand eine Idee?

Delphi-Quellcode:
procedure TForm1.acWriteGlobalBufferToFileExecute(Sender: TObject);
var Data: TMemoryStream;
begin
  Data := TMemoryStream.Create;
  try
    Data.WriteBuffer(dm1.FGlobalBuffer, Length(dm1.FGlobalBuffer));
    Data.SaveToFile('GlobalBuffer.Log');
  finally
    Data.Free;
  end;
end;
Gruß Kostas
  Mit Zitat antworten Zitat