خواندن و نوشتن یک بایت در فایل

[یوسف زالی]

با این تابع شما می گی از کدوم بایت تا کدوم بایت رو می خوای:

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;