Delphi 取JPG图片内的Exif信息

原创 2012年01月07日 22:22:59
//取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;

Delphi 取Jpg图片内的Exif信息(需要GDI Plus)

//取Exif信息function GetExifItem(GPImage:TGPImage;ItemID: PROPID): String;var  PropSize: UINT;  PropIte...
  • belllab
  • belllab
  • 2007年04月06日 12:22
  • 1380

Delphi7下读取JPG文件Exif信息的类及示例,可以读取缩略图

  • 2014年10月25日 15:59
  • 1.66MB
  • 下载

Delphi 取JPG图片内的Exif信息

//取Exif信息function GetExifItem(GPImage:TGPImage;ItemID: PROPID): String;var  PropSize: UINT;  PropIte...
  • ljz9425
  • ljz9425
  • 2012年01月07日 22:22
  • 1773

Delphi资源

 # Awesome Delphi A curated list of awesome Delphi frameworks, libraries, resources, and shiny t...
  • diligentcat
  • diligentcat
  • 2015年04月09日 21:27
  • 2091

读取JPG图片的Exif属性(一) - Exif信息简介

Exif 是什么? Exif就是用来记录拍摄图像时的各种信息:图像信息(厂商,分辨率等),相机拍摄记录(ISO,白平衡,饱和度,锐度等),缩略图(缩略图宽度,高度等),gps(拍摄时的经度,纬度,高...
  • fioletfly
  • fioletfly
  • 2016年12月13日 08:47
  • 6424

用gdi+获取图像的附加信息(metadata)--如jpg照片的标题,相机,曝光时间等

随着数码相机的普及,需要对数码照片进行操作的程序也越来越多,其中难免要涉及到对数码照片的附加信息进行存取。你固然可以自己写一套存取这些附加信息的函数,但是本着“不要再次发明车轮”的思想,本文介绍大家用...
  • leonatcs
  • leonatcs
  • 2005年05月13日 03:31
  • 3259

修改图片exif信息

我们先了解一下EXIF: EXIF可以附加于JPEG、TIFF、RIFF等文件之中,为其增加有关数码相机拍摄信息的内容和索引图或图像处理软件的版本信息。 所有的JPEG文件以字符串“0...
  • sunmc1204953974
  • sunmc1204953974
  • 2014年10月29日 12:59
  • 1970

读取和修改JPEG图片文件的头信息EXIF和JFIF

1. JPEG图片格式的历程和简单介绍可参考下面这篇文章 http://blog.csdn.net/kickxxx/article/details/8173332 ...
  • xywy2008
  • xywy2008
  • 2014年07月24日 22:43
  • 9186

读取JPG图片的Exif属性(三) - Exif属性读取GPS信息代码(C/C++实现)

Exif中GPS格式 本文是最后一篇关于Exif文章,终于要挑战最大的boss了,这个GPS信息的读取,我找了国内外很多资料都没有找 真正的实例。所以自己前两篇的基础上推断而来的。 读取JPG图片...
  • fioletfly
  • fioletfly
  • 2017年01月06日 09:12
  • 4222

使用OpenExif修改jpeg图片信息

目前的手机是小米手机,使用两年多里面总共存储了将近4000张照片。拍摄时系统会记录当时拍摄的时间,这个拍摄时间会记录在jpg文件的exif数据结构中,windows系统下右键单击文件可以看到这个时间。...
  • jinping_shi
  • jinping_shi
  • 2015年05月01日 12:43
  • 1700
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi 取JPG图片内的Exif信息
举报原因:
原因补充:

(最多只允许输入30个字)