Delphi 取JPG图片内的Exif信息

//取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);


  GPImage.GetPropertyItem(ItemID, PropSize, PropItem);


  //字符


  if PropItem.type_= PropertyTagTypeASCII then begin


    Result:=PChar(PropItem.Value);


  end;


  //分数


  if (PropItem.type_= PropertyTagTypeRational)


    or (PropItem.type_=PropertyTagTypeSRational) then begin


    S:=PChar(PropItem.Value);


    S1:=IntToHex(Ord(S[3]),2)+IntToHex(Ord(S[2]),2)+


        IntToHex(Ord(S[1]),2)+IntToHex(Ord(S[0]),2);


    S2:=IntToHex(Ord(S[7]),2)+IntToHex(Ord(S[6]),2)+


        IntToHex(Ord(S[5]),2)+IntToHex(Ord(S[4]),2);


    Result:=IntToStr(StrToInt('$'+S1))+'/'+IntToStr(StrToInt('$'+S2));


  end;


  //数字


  if PropItem.type_= PropertyTagTypeShort then begin


    S:=PChar(PropItem.Value);


    S1:=IntToHex(Ord(S[1]),2)+IntToHex(Ord(S[0]),2);


    Result:=IntToStr(StrToInt('$'+S1));


  end;


  //字节
{if PropItem.type_= PropertyTagTypeByte then begin
    S:=PChar(PropItem.Value);
    S1:=IntToHex(Ord(S[1]),2)+IntToHex(Ord(S[0]),2);
    Result:=IntToStr(StrToInt('$'+S1));
  end;}


  FreeMem(PropItem);


end;
下载： http://download1.csdn.net/down3/20070516/16143519219.zip