将纬度/经度 GPS 坐标转换为 EXIF 有理字节数组答案

【问题标题】：Converting Lat / Long GPS coordinates to an EXIF Rational byte array将纬度/经度 GPS 坐标转换为 EXIF 有理字节数组
【发布时间】：2013-10-03 13:00:10
【问题描述】：

我在将 GPS 坐标转换为可存储为 EXIF 信息的字节数组时遇到问题。

This questions 声明 EXIF 坐标应表示为三个有理数：degrees/1, minutes/1, seconds/1。我没有问题将十进制坐标转换为那个。例如42.1234567 很容易转换为42/1, 7/1, 24/1。

我的问题是，当我将其写入图像 EXIF 信息时，我不明白如何将其表示为字节数组。我正在使用的库称为ExifWorks，我在VB.NET 中使用它。

ExifWorks setProperty 方法需要三件事：EXIF 字段 ID、作为数据的字节数组和数据类型。以下是我的使用方法：

ew.SetProperty(TagNames.GpsLatitude, byteArrayHere, ExifWorks.ExifDataTypes.UnsignedRational)

我也试过了：

ew.SetPropertyString(TagNames.GpsLatitude, "42/1, 7/1, 24/1")

这也不起作用。

那么，我的问题是，如何将度-分-秒坐标转换为字节数组？到目前为止，我尝试过的所有内容都以无效的 EXIF 信息告终，并且不起作用。一个通用的解决方案很好......不一定必须在 VB.net 中工作。

【问题讨论】：

您可能应该获得 Exif 规范（可在线获得）并查看 GPS 标签的定义。然后获取一个十六进制编辑器并查看您实际写入文件的内容。另一个有用的工具是 exiftool。有趣的是，exiftool 显示了您之前链接的那个 JPEG 文件的正确 GPS 数据。

标签： vb.net gps jpeg exif exifworks

【解决方案1】：

我想通了。这是解决方案：

Private Shared Function intToByteArray(ByVal int As Int32) As Byte()
    ' a necessary wrapper because of the cast to Int32
    Return BitConverter.GetBytes(int)
End Function

Private Shared Function doubleCoordinateToRationalByteArray(ByVal doubleVal As Double) As Byte()
    Dim temp As Double

    temp = Math.Abs(doubleVal)
    Dim degrees = Math.Truncate(temp)

    temp = (temp - degrees) * 60
    Dim minutes = Math.Truncate(temp)

    temp = (temp - minutes) * 60
    Dim seconds = Math.Truncate(temp)

    Dim result(24) As Byte
    Array.Copy(intToByteArray(degrees), 0, result, 0, 4)
    Array.Copy(intToByteArray(1), 0, result, 4, 4)
    Array.Copy(intToByteArray(minutes), 0, result, 8, 4)
    Array.Copy(intToByteArray(1), 0, result, 12, 4)
    Array.Copy(intToByteArray(seconds), 0, result, 16, 4)
    Array.Copy(intToByteArray(1), 0, result, 20, 4)

    Return result
End Function

【讨论】：

【解决方案2】：

你会得到更好的精度（到 0.001 弧秒，也就是一英寸）

     Dim milliseconds = Math.Truncate(temp* 1000.0)

     ...

     Array.Copy(intToByteArray(milliseconds), 0, result, 16, 4)
     Array.Copy(intToByteArray(1000), 0, result, 20, 4)

【讨论】：