با این تابع شما می گی از کدوم بایت تا کدوم بایت رو می خوای:
function ReadBytesFromFile(FileName: string; FromByte, ToByte: integer): TByteArray;
var
FS: TFileStream;
begin
try
FS := TFileStream.Create(FileName, fmOpenRead);
FS.Seek(FromByte -1, soBeginning);
FS.Read(Result, ToByte -FromByte +1);
finally
FS.Free;
end;
end;
procedure TForm2.Button1Click(Sender: TObject);
var
b: TByteArray;
frombyte, tobyte, len: integer;
begin
frombyte := 2;
tobyte := 5;
len := tobyte -frombyte +1;
b := ReadBytesFromFile('e:\somefile', frombyte, tobyte);
// b is from 0 to len -1 of byte
end;