Чтение GPS-информации из EXIF в Delphi без внешних библиотек

Delphi , Интернет и Сети , Браузер

Приветствую, разработчики на Delphi! В этой статье мы рассмотрим, как можно извлечь GPS-информацию из файлов с форматом JPEG, используя встроенные возможности Delphi, без привлечения внешних библиотек. Это может быть полезно для различных задач, например, для получения информации о местоположении, где была сделана фотография.

Проблема и контекст

Вы, возможно, столкнулись с ситуацией, когда необходимо получить геолокационную информацию из фотографий, такую как широта, долгота и версия GPS. Вы уже нашли некоторые данные, связанные с этим вопросом, сравнили различные заголовки EXIF и обнаружили шестнадцатеричный дамп, который дает вам координаты. Теперь вам нужно извлечь эту информацию непосредственно из файла.

Решение проблемы

Чтобы решить поставленную задачу, вам нужно будет открыть файл JPEG в Delphi и извлечь необходимые шестнадцатеричные дампы. Однако, простые попытки чтения символов и целых чисел не привели к успеху. Вы хотели бы избежать использования внешних библиотек, если это возможно.

Подход к чтению EXIF данных

Для начала работы с EXIF данными в Delphi, вам потребуется использовать TFileStream и массив байтов. Вот базовые шаги, которые вам нужно выполнить:

1. Откройте файл JPEG с помощью TFileStream.
2. Прочитайте первые два байта, чтобы убедиться, что это действительно JPEG (значение $FF $D8).
3. Прочитайте следующие два байта, чтобы проверить, является ли это сегментом APP0 (значение $FF $E1).
4. Если нет, прочитайте еще два байта (или слово) и пропустите указанное количество байтов, используя метод Seek потока. Это необходимо для перехода к сегменту EXIF.
5. Если это сегмент APP0, прочитайте следующие четыре байта и убедитесь, что это "Exif" (значение $45 $78 $66 $69).
6. Следующие два байта будут $00 $00, за которыми следует 8-байтный заголовок TIFF, содержащий информацию об endianness, после чего следуют теги EXIF, которые вам нужно обработать, чтобы извлечь необходимые данные.

Поиск GPS-меток без поиска файла по конкретным дампам

Вы также спросили об упрощенном способе поиска GPS-меток без необходимости искать файл на конкретные дампы. Это действительно возможно, и для этого вам нужно будет разобраться в структуре EXIF-меток. Использование открытого кода библиотеки Chris Rolliston может помочь вам понять, как устроены GPS-метки, даже если вы не планируете использовать саму библиотеку.

Пример кода на Object Pascal (Delphi)

uses
  System.SysUtils,
  System.Classes,
  Vcl.StdVcl;

procedure ReadGPSInfo(const FileName: string);
var
  FileStream: TFileStream;
  Buffer: TMemoryStream;
  Data: array of byte;
  GPSData: string;
begin
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyNone);
  try
    // Чтение начального блока файла
    SetLength(Data, 4);
    FileStream.Read(Data[0], 2); // Сохраняем начало файла для проверки, что это JPEG
    FileStream.Read(Data[0], 2); // Проверяем на сегмент APP0
    if Data[0] = $FF and Data[1] = $E1 then
    begin
      FileStream.Read(Data[0], 4); // Проверяем на строку 'Exif'
      if Data[0] = $49 and Data[1] = $49 and Data[2] = $46 and Data[3] = $46 then
      begin
        // Инициализация буфера для чтения EXIF данных
        Buffer := TMemoryStream.Create;
        try
          Buffer.Write(Data, 4); // Заголовок TIFF
          FileStream.Read(Data, 4);
          Buffer.Write(Data, SizeOf(Cardinal));
          // Прочитать оставшуюся часть файла, предположим что она не превышает 1КБ
          SetLength(Data, FileStream.Size - FileStream.Position);
          FileStream.Read(Data[0], Length(Data));
          Buffer.Write(Data[0], Length(Data));
          Buffer.Position := 6;
          // Теперь можно работать с буфером, используя EXIF спецификацию
          // Чтение GPS меток
          Buffer.Position := 2; // Переходим к 2-му байту, чтобы пропустить 0x49, 0x49, 0x46, 0x46
          SetLength(Data, Buffer.Size - Buffer.Position + 1);
          Buffer.ReadBuffer(Data[0], Data.Length);
          GPSData := GetGPSDataFromBuffer(Data);
        end;
      end;
    end;
  finally
    Buffer.Free;
    FileStream.Free;
  end;
end;

function GetGPSDataFromBuffer(const Data: array of byte): string;
begin
  // Здесь должен быть код для разбора EXIF данных и извлечения GPS информации
  // ...
end;

Обратите внимание, что функция GetGPSDataFromBuffer является плейсхолдером и должна быть реализована с учетом спецификации EXIF для извлечения GPS-информации.

Заключение

Теперь вы знаете, как начать работу с чтением GPS-информации из EXIF в Delphi без использования внешних библиотек. Это может потребовать некоторой практики и понимания структуры EXIF данных, но с помощью вышеописанного подхода вы сможете достичь желаемого результата. Удачи в ваших проектах!

Создано по материалам из источника по ссылке.

контекста Разработчики на Delphi рассматривают, как извлечь GPS-информацию из JPEG-файлов, используя встроенные возможности языка без внешних библиотек, для получения данных о местоположении создания фотографии.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::