Einzelnen Beitrag anzeigen

drunky1337

Registriert seit: 19. Mär 2013
Ort: Künzelsau
5 Beiträge
 
Delphi XE3 Architect
 
#1

ASCII-String und Binärtdaten in eine Datei schreiben

  Alt 10. Jun 2013, 14:35
Hallo Leutz,

ich möchte gerne eine Datei erstellen, in der sowohl ASCII-Strings (Header meiner Datei) als auch Binärtdaten enthalten sein sollen.

Mein erster Versuch war es die ASCII-Strings in eine StringListe zu schreiben und zum Schluss die Binärdaten über einen MemoryStream hinzuzufügen.
Leider scheitert das auch hier schon.
Ich kann die Strings problemlos in die StringList schreiben und diese als Datei speichern,
wenn ich aber

Delphi-Quellcode:
  Header.SaveToFile('C:\EDMSWAP\Header.hdf'); // 64kB groß
  Stream := getBinaryData(file_one);
  Stream.SaveToFile('C:\EDMSWAP\Data.hdf'); // 400 Byte groß
  Header.LoadFromStream(Stream);
  Header.SaveToFile('C:\EDMSWAP\HeaderAfterLoadFromStream.hdf'); // 2 Byte groß
ausführe hat meine StringList keinen Inhalt mehr und ist nur noch 2 Byte groß.
Ich vermute mal das LoadFromStream den kompletten Inhalt meiner StringList ersetzt.
Diese StringList hat zusätzlich Probleme mit den Binärdaten und intepretiert diese möglicherweise als irgendwelche Steuerzeichen und deshalb nur 2 Byte groß ist.

Langsam denke ich das die StringList für meine Anforderung erst gar nicht geeignet ist, leider bin ich in diesem Thema noch ganz am Anfang und würde mich sehr darüber freuen, wenn mich jemand auf die richtige Spurr schickt.

Mit freundlichen Grüßen

Arthur W.
Arthur
  Mit Zitat antworten Zitat