如何在“Delphi”中打开二进制文件（exe），就像Visual Basic一样？

Question

在Visual Basic中，我可以通过以下方式打开二进制（exe）文件：

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

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

alt text http://up.iranblog.com/Files/4b97136a8452414b97b1.png 问题是如何在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;

Answer 2

以下是一些包含示例的优秀资源。

• Create your own Database using Delphi's "File Of" Typed Files : Understanding Typed Files

• Acessing Files With Unknown Structure: Direct Access to Files Regardless of Type and Structuring