当前位置: 动力学知识库 > 问答 > 编程问答 >

How can i open binary files (exe) in "Delphi" , like Visual basic?

问题描述:

in visual basic i can open a binary(exe) file with below way :

Strx$ = Space(FileLen(FileName))

Open FileName For Binary As #1

Get #1, , Strx$

Close

in this way i can read all of binary file characters and read file content like this format :

alt text http://up.iranblog.com/Files/4b97136a8452414b97b1.png

and the question is how can i open a binary(exe) file in delphi with a string format(Like image) and not 0,1(binary) format ?

Thank you!

网友答案:

EXE files contain embedded NULL (#0) Characters. You may have problems using Strings as typically NULL is found at the end of the string. Some routines will stop working with a string once the NULL is encountered.

Having said that the following would get the contents of a file into a string.

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

Here are some good resources with examples.

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

分享给朋友:
您可能感兴趣的文章:
随机阅读: