jpg图片头文件信息读取和修改的问题!!急啊!!
我这里有别人给的jpg图片格式，我现在只能从这里面读取信息并显示，可是我不会怎么对相应的头文件字段进行修改并保存成新的jpg文件。请教各位。
type
//0x1d0~0x1e3(这是头文件位置)
JPEG_COMMENT =packed record
nID:integer;
nRecordType:integer;
end;
这是我定义的一个类。
procedure Tf_main.SetInputTextValue(fileName:string);
var
sl:TStringList; //图片头信息 0-12
offset:integer;
FileStream:TFileStream;
memoryStream:TmemoryStream;
begin
sl:=TStringList.Create;
FileStream:=TFileStream.Create(fileName, fmOpenRead or fmShareDenyWrite);
memoryStream:=TmemoryStream.Create;
try
offset:=$18;
memoryStream.CopyFrom(FileStream,FileStream.Size);
getIpegComment2(memoryStream,offset,sl) ;// 把图片信息读取到sl里。
e_sjsd.Text:= sl.Strings[0]; //实际速度
e_sdtop.Text:= sl.Strings[1]; //速度上限
e_sdlow.Text:= sl.Strings[2]; //速度下限
........
finally
sl.free;
FileStream.Free;
memoryStream.Free;
end;
end;
我现在就需要一个怎么修改jpg头文件信息的程序.多谢了!!!
问题点数：0、回复次数：1Top
1 楼lovend（颓废之吻）回复于 2005-06-03 00:09:37 得分 0
只有帮您顶了。水平有限。Top
