如何读取到一个JPG文件的某一个固定字节上的16进制值? 如何读取到一个JPG文件的某一个固定字节上的16进制值? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 任何类型的文件都可以通过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 tryend; com中创建对象的问题-----------急 关于数据库和Socket,希望大家给个建议 问一个简单问题,如何快速的复制另外一个程序模版 提一个简单的问题? 如何把数据导入WORD 一个简单的qreport报表问题 怎样获取以知字段名的字段信息 adoquery的问题 这种软件是如何做的 关于DELPHI的一个例子的问题 在线等请教各位大虾DBXPRESS问题 怎样在DbGrid 中,实现光标锁定于某一字段,即输完该条记录的这个字段自动跳到该下一条该字段上重复录入.以只进行对该字段的编辑,同时最
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;