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

Question

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 :

_{(source: iranblog.com )}

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!

Answer 1

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;

Answer 2

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 .