Einlesen von Binärdateien

[RuX]

Hallo,

wie kann ich binärdateien (z.b exes, bilder, < 1MB) komplett in einen string einlesen?
ich habe probiert mit tfilestream oder assignfile/read/etc eine datei einzulesen, aber er bricht vor dateiende ab weil er wohl irgendwo ein eof# findet.
ich bräuchte es im string prinzipiell genauso wie wenn man eine binäre datei z.b mit notepad öffnet.

[mkinzler]

Du kannst eine Binärdatei nicht in einen String einlesen, weil er den Inhalt als Steuerzeichen interpretieren würde. Was hast du vor?

[RuX]

ich brauch eine funktion die mir eine beliebige binär datei zurückgibt, dachte string is da am einfachsten aber wenn das nicht geht ok :(
als was sollte man den binärdateien einlesen? gibs den kein binär-datentyp für dateien? "blob" oder so ähnlich, ich kenne keinen.

[mkinzler]

Speichere sei in einen Buffer.

[r2c2]

array of Byte. So isses nämlich auch auf der Platte...

mfg

Christian

[KrasserChecker]

Schau dir mal "TMemoryStream" an. Das dürfte genau das sein, was Du suchst.

[orest]

Zitat:

Zitat von mkinzler

Du kannst eine Binärdatei nicht in einen String einlesen, weil er den Inhalt als Steuerzeichen interpretieren würde. Was hast du vor?

Hmm, ich denke da irrst Du dich. In Pascal-Strings kann man sehr wohl Binärdaten einlesen.
Pascal-Strings haben ja eine Längenangabe vorangestellt und sind -im Gegensatz zu C-Strings (PChar)- nicht nullterminiert.

Gruß.

[mkinzler]

Zitat:

Hmm, ich denke da irrst Du dich. In Pascal-Strings kann man sehr wohl Binärdaten einlesen.
Pascal-Strings haben ja eine Längenangabe vorangestellt und sind -im Gegensatz zu C-Strings (PChar)- nicht nullterminiert.

Gruß.

Delphi verwendet aber nicht unbedingt den klassischen Pascal-String ( ShortString) sondern je nach Einstellung/Länge der Zeichenkette AnsiString (0-terminiert). Eine Binärdatei wird er aber kaum in einen ShortString (max 255 Zeicehn) bringen.

[orest]

Zitat:

Zitat von mkinzler

Zitat:

Hmm, ich denke da irrst Du dich. In Pascal-Strings kann man sehr wohl Binärdaten einlesen.
Pascal-Strings haben ja eine Längenangabe vorangestellt und sind -im Gegensatz zu C-Strings (PChar)- nicht nullterminiert.

Gruß.

Delphi verwendet aber nicht unbedingt den klassischen Pascal-String ( ShortString) sondern je nach Einstellung/Länge der Zeichenkette AnsiString (0-terminiert). Eine Binärdatei wird er aber kaum in einen ShortString (max 255 Zeicehn) bringen.

AnsiStrings sind ebenfalls nicht 0-terminiert. Sie haben genauso eine Längenangabe wie ShortStrings.

Auszug aus der Delphi-Hilfe:
... Die acht Byte vor der Stelle enthalten eine Längenangabe und einen Referenzzähler von je 32 Bit. Da dieser Speicherplatz auf dem Heap reserviert und vollkommen automatisch verwaltet wird, erfordert er keinerlei Benutzercode....

[mkinzler]

Dann versuch mal eine Binärdatei hier einzulesen.

[orest]

Zitat:

Zitat von mkinzler

Dann versuch mal eine Binärdatei hier einzulesen.

Kein Problem.

Folgender Code ist zwar wahrscheinlich recht lahm, funktioniert aber zu 100%.
Ich habe gerade eben eine ca. 36MB große .exe damit kopiert.
Ein Dateivergleich ergab keine Unterschiede. Die MD5-Summen sind ebenfalls identisch.

Eine Datei in einen String einlesen:

Delphi-Quellcode:

function FileToString(const AFileName: string): AnsiString;
var
  f: TFileStream;
  l: Integer;
begin
  Result := '';
  f := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
  try
    l := f.Size;
    if L > 0 then
    begin
      SetLength(Result, l);
      F.ReadBuffer(Result[1], l);
    end;
  finally
    F.Free;
  end;
end;

Einen String in die eine Datei schreiben:

Delphi-Quellcode:

function StringToFile(const AData: AnsiString; AFileName: string): boolean;
var
  myFile: file of Char;
  i: integer;
begin
  try
    Result := false;
    AssignFile(myFile, AFileName);
    ReWrite(myFile);
    for i := 1 to Length(AData) do
      Write(myFile, AData[i]);
    Result := true;
  finally
    CloseFile(myFile);
  end;
end;

Wie Du siehst, es funktioniert eben doch!

Gruß,
Orest.

[mkinzler]

Du hast diese datei ja nicht in den String gelesen, sondern in den Speicherbereich des Strings also in einen Buffer! das hatte ich übrigens schon in #4 vorgeschlagen.

[RuX]

Ok danke für eure Tipps.
So sieht jetzt meine Lösung aus:

Delphi-Quellcode:

var fs: tfilestream;
    buffer: array of byte;
    l: integer;
begin
  fs := TFileStream.Create(AFile, fmOpenRead);
  try
    l := fs.Size;
    SetLength(Buffer, l);
    fs.Seek(0, soFromBeginning); //sicherheitshalber
    l := fs.Read(buffer[0], l); //wichtig: erstes element des arrays da pointer
  finally
    fs.free;
  end;
end;

[orest]

Zitat:

Zitat von mkinzler

Du hast diese datei ja nicht in den String gelesen, sondern in den Speicherbereich des Strings also in einen Buffer! das hatte ich übrigens schon in #4 vorgeschlagen.

Natürlich sollte man die Daten in einen Buffer einlesen, und für so etwas keinen String verwenden, da gebe ich Dir uneingeschränkt recht!

Deine Aussage ist aber trotzdem die reinste Korinthenkakerei.

Da kannst Du genausogut sagen:

"Du kannst kein Datum auf einem Formular anzeigen lassen. Du musst ein Label verwenden und
den Datumswert in einen String umwandeln."

Im Endeffekt kommt es doch auf das selbe raus!

Wenn ich Dir jetzt ein FileToString schreibe welches mittels Read() immer einen einzelnen Character einliest und an den String dranhängt, dann schreist Du das der Character ein Buffer ist, und die Daten nicht direkt in den String eingelesen werden.
Nehme dann stattdessen BlockRead() schreist Du bestimmt wieder.

Ein AnsiString ist ein Pointer auf einen von Delphi automatisch verwalteten Speicherbereich, und kann somit als "Buffer" angesehen werden.

Aber darum geht es doch gar nicht!

Deine Aussage war:

"Du kannst eine Binärdatei nicht in einen String einlesen, weil er den Inhalt als Steuerzeichen interpretieren würde."

Damit drückst Du aus das ein String keine Binärdaten aufnehmen kann, und dies ist schlichtweg falsch. Da kannst Du Dich drehen und wenden wie Du willst. Das Du mit deiner Aussage genau dies gemein hast drückt deine Antwort auf mein Posting aus:

"Delphi verwendet aber nicht unbedingt den klassischen Pascal-String ( ShortString) sondern je nach Einstellung/Länge der Zeichenkette AnsiString (0-terminiert). Eine Binärdatei wird er aber kaum in einen ShortString (max 255 Zeicehn) bringen."

--> Ergo: Passt die Datei in einen ShortString dann gehts, ansonsten nicht weil AnsiString = 0-terminiert.

Daraufhin habe ich Dir gesagt das auch ein AnsiString nicht 0-terminiert ist. War er nie und wird er auch nie sein. Deiner Aufforderung eine Binärdatei in einen String einzulesen bin ich zu 100% nachgekommen und habe bewiesen das es möglich ist. Ob ich den String nun als Buffer oder sonstwie verwende, ist doch völlig unerheblich.

Wichtig in diesem Zusammenhang ist:
- Der String enthält hinterher exakt die Daten aus der Binärdatei.
- Innerhalb das Strings werden keine Steuerzeichen interpretiert.
- Ein AnsiString ist eben NICHT 0-terminiert.

Nochmals:
Es ging nicht darum wie die Daten in den String kommen, sondern DASS ein String sie aufnehmen
kann.

Ich wollte Dir eigentlich lediglich klarmachen das ein Ansi-String nicht 0-terminiert ist, und somit Deine Falschaussage richtigstellen.

Gruß.