如何读取到一个JPG文件的某一个固定字节上的16进制值?
如何读取到一个JPG文件的某一个固定字节上的16进制值? 问题点数：0、回复次数：2Top
1 楼smallcrocodile（大鳄鱼）回复于 2004-08-04 14:06:20 得分 0
不解Top
2 楼DaSaint（齐天大圣）回复于 2004-08-04 14:50:39 得分 0
任何类型的文件都可以通过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;Top
