Wie kann ich Binärdateien (exe) in "Delphi" öffnen, wie in Visual Basic?

Question

In Visual Basic kann ich eine Binärdatei (exe) wie folgt öffnen:

Strx$ = Space(FileLen(FileName))
Open FileName For Binary As #1
  Get #1, , Strx$
Close

Auf diese Weise kann ich alle Binärdateizeichen lesen und den Dateiinhalt in diesem Format lesen:

_{(Quelle: <a href="http://up.iranblog.com/Files/4b97136a8452414b97b1.png" rel="nofollow noreferrer">iranblog.com</a>)}

und die Frage ist, wie kann ich eine Binärdatei (exe) in Delphi im Stringformat (wie ein Bild) öffnen und nicht im 0,1 (Binär) Format?

Vielen Dank!

Answer 1

EXE-Dateien enthalten eingebettete NULL (#0)-Zeichen. Möglicherweise treten Probleme auf, wenn Sie Zeichenfolgen verwenden, da NULL typischerweise am Ende der Zeichenfolge gefunden wird. Einige Routinen funktionieren nicht mehr richtig, sobald das NULL-Zeichen auftritt.

Davon abgesehen würde das Folgende den Inhalt einer Datei in eine Zeichenfolge einlesen.

function GetFileIntoString(FileName : String) : String;
var
 SS : TStringStream;
begin
  SS := TStringStream.Create('');   
  try
    SS.LoadFromFile(FileName);
    result := SS.DataString;
  finally
    SS.Free;
  end;
end;

Answer 2

Hier sind einige gute Ressourcen mit Beispielen.

• Erstellen Sie Ihre eigene Datenbank mit Delphis "File Of" Typed Files: Verständnis von Typed Files.

• Zugriff auf Dateien mit unbekannter Struktur: Direkter Zugriff auf Dateien unabhängig von Typ und Strukturierung.