二进制文件的读取

Question

如何读取一个二进制文件  
1.一个指定位置的字节  
2.查找某几个字节(如30 30 34 00这四个连续的字节)在文件中出现的位置  
3.读出在某个位置开始指定长度的几个字节  

Answer 1

var
  FileStream: TFileStream;
  A:byte;
begin
  FileStream := TFileStream.Create(FileName,fmOpenRead);
  try
    FileStream.seek(Length,soBeginning);   //到Length位置；
    FileStream.Read(a,sizeof(Byte));//读一个字节
    FileStream.ReadBuffer(YourBuffer, Count);  //读Count个字节
  finally
    FileStream.Free;
  end;

Answer 2

FileStream.seek(Length,soBeginning);   //到Length位置；
    FileStream.Read(a,sizeof(Byte));//读一个字节
    FileStream.ReadBuffer(YourBuffer, Count);  //读Count个字节