如何读取到一个JPG文件的某一个固定字节上的16进制值?

Question

如何读取到一个JPG文件的某一个固定字节上的16进制值?

Answer 1

任何类型的文件都可以通过16进制（字节文件）方式打开，读取，修改var
 myFile: File of Byte; //定义字节文件变量
 myFilePos: Integer; //要读取的字节位置变量
 myData: Byte; //读取的数据
begin
 AssignFile(myFile,'f:\zs5.jpg'); //建立文件关联
 myFilePos:=StrToInt(Trim(Edit1.Text)); //获取要读取字节的位置
 try
  Reset(myFile); //打开已存在的文件
  Seek(myFile,myFilePos); //指针定位到指定位置，注意第一个字节的位置为0，以此类推
  Read(myFile,myData); //读取该字节数据
  Edit2.Text:=IntToStr(myData); //显示数据
 finally
  CloseFile(myFile); //关闭文件，千万别忘了！
 end; //end of try
end;