如何在 Delphi 中使用 CCR.EXIF 从 JPG EXIF 读取 GPS 坐标？

Question

使用 GPSLatitude 和 GPSLatitude 属性的 Assign 方法设置 GPS 坐标非常简单，但是读取坐标让我很困惑。我正在尝试访问 TGPSLongitude 类，但没有任何属性或方法可以为我呈现坐标的真实/浮动甚至 DMS。

示例图片：http://www.cde.co.za/share/IMG_5889.JPG

我当前没有编译的代码：

imgJpg: TJpegImageEx;
GPS_D: Real;

try
  imgJpg.LoadFromFile(FolderName+'\'+SR.Name);
  GPS_D:= imgJpg.ExifData.GPSLatitude.Degrees;
except
  GPS_D:= 0;
end;

编译器在我尝试分配 GPS_D 时停止，出现错误“[DCC Error] Main.pas(205): E2010 Incompatible types: 'Real' and 'TTiffLongWordFraction'” 这显然是因为我无法分配度属性为真。问题是如何从 TGPSLongitude 中提取度数或十进制值？

Answer 1

将 GPS 信息提取为string 的简单方法：

var myLat, myLong : string;
...
myLat := myJpeg.ExifData.GPSLatitude.AsString ; 
myLong := myJpeg.ExifData.GPSLongitude.AsString ;

Answer 2

深入查看源代码，似乎可以使用“商”属性。开发人员没有存储小数浮点数，而是选择存储组件 Numerator、Denominator 和 Quotient。

我不认为这就是它的用途，但它确实有效！感谢大家的时间。

因此，要使用 CCR.EXIF 从 JPG 文件中读取 GPS 坐标，我执行以下操作：

var
    imgJpg: TJpegImageEx;
    d,m,s,lat: real;

imgJpg.LoadFromFile(FolderName+'\'+SR.Name); {Load the particular JPG File }
d:= imgJpg.ExifData.GPSLatitude.Degrees.Quotient; {Degrees}
m:= imgJpg.ExifData.GPSLatitude.Minutes.Quotient; {Minutes}
s:= imgJpg.ExifData.GPSLatitude.Seconds.Quotient; {Seconds}

{Now determine the sign}
if imgJpg.ExifData.GPSLatitude.Direction=ltNorth then
  ref:= 1
else
  ref:= -1;

{Convert to decimal}
lat:= ref*(d+(m/60)+(s/60/60));

lat 现在包含纬度。当然也可以长期这样做。

Answer 3

来自 CCRExif 1.5.1 中现有的文档 -

全球定位系统

Exif 标准允许设置 GPS（即定位）数据， 它存储在自己的部分/子 IFD 中。使用 TExifData，您可以 读写这个，标准的 GPS 标签集被暴露 作为该类的属性。然而，需要注意的重要一点是 GPS坐标可以用两种不同的方式表示， 单个十进制值或以度、分和秒表示。 Exif 使用第二种形式，因此如果您希望将 GPS 坐标分配给 一个图像，你所拥有的只是所需的值，表示为 小数，你需要先转换成另一种形式。 （对于‘一 关闭”转换，您可以使用以下网站： http://www.fcc.gov/mb/audio/bickel/DDDMMSS-decimal.html.) 一旦你 但是，具有所需形式的坐标，将它们分配给 图像是这样的：

with TExifData.Create do 
try
  LoadFromGraphic(ImageFile); 
  GPSLatitude.Assign(51, 25, 32.1, ltNorth);
  GPSLongitude.Assign(0, 12, 29.2, lnEast); 
  SaveToGraphic(ImageFile);
finally 
 Free; 
end;

查看源代码内部倾向于：

TGPSLatitude = class(TGPSCoordinate)

TGPSCoordinate类的声明在公共部分

property Degrees: TExifFraction index 0 read GetValue;
property Minutes: TExifFraction index 1 read GetValue;
property Seconds: TExifFraction index 2 read GetValue;
property Direction: AnsiChar read GetDirectionChar write SetDirectionChar;

此外，zip 文件中还有几个演示应用程序。

LE：看完cmets后，我又看了一下demo，在ExifListdemo中ExifListFrame.pas中有如下代码： p>

 procedure AddValue(const Name: string; Coord: TGPSCoordinate); overload;
  var
    DirectionStr: string;
  {$IFDEF BUGGYCOMPILER}
    Degrees, Minutes, Seconds: TExifFraction; //work around D2006 compiler bug with intermediate vars
  {$ENDIF}
  begin
    if Coord.MissingOrInvalid then Exit;
    case Coord.Direction of
      'N': DirectionStr := 'north';
      'S': DirectionStr := 'south';
      'W': DirectionStr := 'west';
      'E': DirectionStr := 'east';
    else DirectionStr := '';
    end;
  {$IFDEF BUGGYCOMPILER}
    Degrees := Coord.Degrees;
    Minutes := Coord.Minutes;
    Seconds := Coord.Seconds;
    AddValue(Name, '%g°, %g minutes and %g seconds %s', [Degrees.Quotient,
      Minutes.Quotient, Seconds.Quotient, DirectionStr]);
  {$ELSE}
    AddValue(Name, '%g°, %g minutes and %g seconds %s', [Coord.Degrees.Quotient,
      Coord.Minutes.Quotient, Coord.Seconds.Quotient, DirectionStr]);
  {$ENDIF}
  end;