GPS 文件属性 (FMX)答案

【问题标题】：GPS file properties (FMX)GPS 文件属性 (FMX)
【发布时间】：2019-03-24 17:46:34
【问题描述】：

我可以找到带有System.IOUtils.TFile 的文件的基本属性，例如大小、日期等。但是，我不知道如何在我的 C++ Builder FMX 应用程序中从 JPEG（纬度和经度）获取 GPS 坐标.

我可以使用基于 Microsoft 的 this GDI+ example 的控制台应用程序来完成。我只是不知道如何在System.IOUtils.TFile 级别做到这一点。如果没有必要，我不想运行控制台应用程序来获取 GPS 数据。

【问题讨论】：

纬度和经度以一种称为 EXIF 数据的结构嵌入 JPEG 图像中。我不认为System.IOUtils 支持这一点。但是，看看ccr-exif 库。
TFile 提供对文件内容的访问，以及对来自文件系统的基本元数据的访问。 GPS 坐标不是文件系统元数据的一部分。您必须实际打开文件并解析其内容。如果您环顾四周，有很多可用于 Delphi 的 JPG 解析器。
How to read GPS Coordinates from JPG EXIF using CCR.EXIF in Delphi?的可能重复
感谢 Relinkvent，我询问的是 Builder，而不是 Delphi。对对象帕斯卡一无所知。
@relayman357 Delphi pascal 代码可用于 C++Builder 项目。

标签： firemonkey c++builder

【解决方案1】：

你可以自己打开exif数据...这是我古老的C++/VCL代码这样做：

AnsiString exif_datetime(AnsiString file)
    {
    AnsiString t="";
    int hnd,adr,siz;
    BYTE *dat;
    hnd=FileOpen(file,fmOpenRead);
    if (hnd<0) return t;
    siz=FileSeek(hnd,0,2);
        FileSeek(hnd,0,0);
    dat=new BYTE[siz];
    if (dat==NULL) { FileClose(hnd); return t; }
    siz=FileRead(hnd,dat,siz);
    FileClose(hnd);

    for (adr=0;adr<siz-4;adr++)
        {
        if (dat[adr+0]=='E')
        if (dat[adr+1]=='x')
        if (dat[adr+2]=='i')
        if (dat[adr+3]=='f')
        if (dat[adr+4]== 0 )    // Exif header found
            {
            for (;adr<siz-18;adr++)
                {
                int e=1;
                char a; // "2008:07:17 19:19:10"
                a=dat[adr+ 0]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+ 1]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+ 2]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+ 3]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+ 4]; if (a!=':') e=0;
                a=dat[adr+ 5]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+ 6]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+ 7]; if (a!=':') e=0;
                a=dat[adr+ 8]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+ 9]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+10]; if (a!=' ') e=0;
                a=dat[adr+11]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+12]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+13]; if (a!=':') e=0;
                a=dat[adr+14]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+15]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+16]; if (a!=':') e=0;
                a=dat[adr+17]; if ((a<'0')||(a>'9')) e=0;
                a=dat[adr+18]; if ((a<'0')||(a>'9')) e=0;
                if (e)
                    {
                    for (e=0;e<19;e++) t+=char(dat[adr+e]);
                    break;
                    }
                }
            break;
            }
        }

    delete[] dat;
    return t;
    }

它打开并将 JPG 加载到内存中，扫描 EXIF 结构，如果找到则返回日期时间...

所以只需提取您想要的信息而不是日期时间......关于如何做到这一点，请参阅：

Exif standard version 2.31

这是我找到的第一个文件格式规范（来自 wiki）。

如果您有大图像，JPG 中的 EXIF 通常放在文件的开头，因此您无需将整个图像加载到内存中，只需前几个 (K) 字节 ...

【讨论】：