这是一个Delphi函数，用于从TGPImage对象中获取指定的Exif项信息。根据属性类型，它能处理ASCII字符串、分数、整数和字节数据，并将结果转换为合适的形式。此外，提供了指向源代码下载链接。
//
取Exif信息
function GetExifItem(GPImage:TGPImage;ItemID: PROPID): String;
var
PropSize: UINT;
PropItem: PPropertyItem;
S:PChar;
S1,S2:String;
begin
PropSize :
=
GPImage.GetPropertyItemSize(ItemID);
if
PropSize
=
0
then begin
Result:
=
''
;
Exit;
end;
GetMem(PropItem ,PropSize);
function GetExifItem(GPImage:TGPImage;ItemID: PROPID): String;var PropSize: UINT; PropItem: PPropertyItem; S:PChar; S1,S2:String;begin PropSize :
=
GPImage.GetPropertyItemSize(ItemID);
if
PropSize
=
0
then begin Result:
=
''
; Exit; end; GetMem(PropItem ,PropSize);
最低0.47元/天 解锁文章
扫一扫
2181
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
