delphi - 如何打开 "Delphi"中的二进制文件 (exe)，如 Visual basic？

Question

在 visual basic 中我可以用下面的方式打开一个二进制(exe)文件:

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

通过这种方式，我可以读取所有二进制文件字符并读取文件内容，如下所示:

_{(来源:iranblog.com)}

问题是我如何在 delphi 中打开字符串格式(如图像)而不是 0,1(二进制)格式的二进制(exe)文件？

谢谢!

Answer 1

EXE 文件包含嵌入的 NULL (#0) 字符。您可能会在使用字符串时遇到问题，因为通常在字符串末尾会发现 NULL。一旦遇到 NULL，某些例程将停止使用字符串。

话虽如此，以下内容会将文件的内容转换为字符串。

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