Einlesen von Binärdateien

[orest]

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 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ß.