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

Question

Hi , 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 :

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 too

http://delphi.about.com/od/fileio/a/fileof_delphi.htm

http://delphi.about.com/od/fileio/a/untypedfiles.htm

best regards,