Delphi 取JPG图片内的Exif信息

摘要：
//˂span style=“线宽：25px；
<span style="color: rgb(51, 51, 51); font-family: Arial, Helvetica, simsun, u5b8bu4f53; font-size: 14px; line-height: 25px; "><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">取Exif信息</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" /></span><span style="line-height: 25px; color: rgb(0, 0, 0); ">function GetExifItem(GPImage:TGPImage;ItemID: PROPID): String;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />var<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  PropSize: UINT;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  PropItem: PPropertyItem;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  S:PChar;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  S1,S2:String;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />begin<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  PropSize :</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> GPImage.GetPropertyItemSize(ItemID);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  </span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropSize</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">0</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> then begin<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">''</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    Exit;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  end;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  GetMem(PropItem ,PropSize);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  GPImage.GetPropertyItem(ItemID, PropSize, PropItem);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  </span><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">字符</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" /></span><span style="line-height: 25px; color: rgb(0, 0, 0); ">  </span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropertyTagTypeASCII then begin<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PChar(PropItem.Value);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  end;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  </span><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">分数</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" /></span><span style="line-height: 25px; color: rgb(0, 0, 0); ">  </span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> (PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropertyTagTypeRational)<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    or (PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PropertyTagTypeSRational) then begin<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    S:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PChar(PropItem.Value);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    S1:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">3</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); "><br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />        IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">1</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">0</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    S2:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">7</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">6</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); "><br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />        IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">5</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">4</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToStr(StrToInt(</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">$</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">S1))</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">/</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToStr(StrToInt(</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">$</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">S2));<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  end;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  </span><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">数字</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" /></span><span style="line-height: 25px; color: rgb(0, 0, 0); ">  </span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropertyTagTypeShort then begin<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    S:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PChar(PropItem.Value);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    S1:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">1</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">0</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToStr(StrToInt(</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">$</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">S1));<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  end;<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  </span><span style="line-height: 25px; color: rgb(0, 128, 0); ">//</span><span style="line-height: 25px; color: rgb(0, 128, 0); ">字节</span><span style="line-height: 25px; color: rgb(0, 128, 0); "><br /></span><span style="line-height: 25px; "><span style="line-height: 25px; color: rgb(0, 0, 0); ">{</span><span style="line-height: 25px; color: rgb(0, 0, 255); ">if</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropItem.type_</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); "> PropertyTagTypeByte then begin<br />    S:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">PChar(PropItem.Value);<br />    S1:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">1</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">)</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToHex(Ord(S[</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">0</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">]),</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">2</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">);<br />    Result:</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">=</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">IntToStr(StrToInt(</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">$</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">'</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">+</span><span style="line-height: 25px; color: rgb(0, 0, 0); ">S1));<br />  end;}</span></span><span style="line-height: 25px; color: rgb(0, 0, 0); "><br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />  FreeMem(PropItem);<br /><img alt="" src="http://images.csdn.net/syntaxhighlighting/OutliningIndicators/None.gif" />end;</span></span>
Delphi 取JPG图片内的Exif信息

相关文章

【web端权限维持】利用ADS隐藏webshell

微信分享连接个别手机、ios转发不显示图片的，缩略图不出来

css中的文本字间距离、行距、overflow

css_css3_实用属性_随时补充更新

制作B站直播简介

css cross-fade()实现背景图像半透明效果

最新文章

随机推荐

思享工具箱导航

JSON工具

格式化转换

加解密编码

文本数字

网络

站长

计算

其他

对照列表
