Reading a Executable offset -> Ascii 2

[Ante0]

How would you do to read some bytes at a offset then converting the information into Ascii.
I tried with this:

var 
fb: file of byte;
b: byte;
offset: string;
begin
fb := Edit1.text; //Path to exe.
offset := '$'+Edit2.text; //Offset
b:= $90; 
Seek(fb,Offset);
Read(b);
Edit3.text := b;
end;

but this doesn't work.
Any ideas?
I just need to get some ascii from inside a program, but the ascii only appears after you open the program.

 

[whosrdaddy]

try to do this with a TFileStream:

uses SysUtils,...
...
//!!! untested
function readExe(Filename : string; Offset, NumberofBytesToRead : integer) : string;

var FileStream : TFileStream;
    
begin
 FileStream := TFileStream.Create(filename, fmOpenRead or fmShareDenyNone); 
 try
  SetLength(Result, NumberofBytesToRead);
  // read our bytes
  FileStream.Read(Result[1], NumberOfBytesToRead); 
 finally
  FreeAndNil(FileStream);
 end;
end;

this function assumes you have 'readable' ascii in your exe file at the offset specified...

-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!

 

[Ante0]

Hmm, it only seems to result = MZP.
No matter what Offset I set.
What does Result do in SetLength(Result, NumberofBytesToRead);?

 

[Griffyn]

whosrdaddy accidentally left out a bit. Replace the // read our bytes comment line with

FileStream.Pos := offset;

 

[Ante0]

Thank you griffyn for the addition
It works great now!

 

[whosrdaddy]

oops, my bad, thanks Griffyn



-----------------------------------------------------
What You See Is What You Get
Never underestimate tha powah of tha google!