Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Delphi Новый топик    Ответить
 Чтение тегов геолокации графических файлов  [new]
Эль А. Скрипка
Member

Откуда:
Сообщений: 4
готов заплатить за рабочий код, можно без оформления для Delphi 7, для чтения тегов геолокации графических файлов: дата, время, широта, долгота, высота, азимут.

Сообщение было отредактировано: 16 май 20, 13:35
15 май 20, 23:30    [22134013]     Ответить | Цитировать Сообщить модератору
 Re: Готов заплатить  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 4389
Эль А. Скрипка,

посмотри это: https://github.com/cutec-chris/dexif
15 май 20, 23:51    [22134023]     Ответить | Цитировать Сообщить модератору
 Re: Готов заплатить  [new]
alekcvp
Member

Откуда:
Сообщений: 2035
Эль А. Скрипка,

Трудно, наверное, когда в гугле забанили, да? 😁

uses
  System.SysUtils,
  CCR.Exif;

var
  ExifData: TExifData;
begin
  try
    ExifData := TExifData.Create;
    ExifData.LoadFromGraphic('..\..\test.jpg');
    WriteLn('Latitude: ', ExifData.GPSLatitude.ToString);
    WriteLn('Longitude: ', ExifData.GPSLongitude.ToString);
    WriteLn('Altitude: ', ExifData.GPSAltitude.AsString);
    WriteLn('DateTime: ', ExifData.GPSDateTimeUTC.AsString);
    ExifData.Free;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;
end.

https://delphihaven.wordpress.com/ccr-exif/
https://code.google.com/archive/p/ccr-exif/downloads
16 май 20, 00:17    [22134029]     Ответить | Цитировать Сообщить модератору
 Re: Готов заплатить  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 4389
[посыпался пеплом]

Сообщение было отредактировано: 16 май 20, 00:35
16 май 20, 00:35    [22134038]     Ответить | Цитировать Сообщить модератору
 Re: Чтение тегов геолокации графических файлов  [new]
Эль А. Скрипка
Member

Откуда:
Сообщений: 4
alekcvp,
Возможно ты и прав.Я никогда не пользовался этим форумом. Пару дней назад задал вопрос невпопад - даже обиделся мужик на мое предложение.
Тут похоже такие вопросы не в чести...
Тебе спасибо. От предложения не отказываюсь.
Дельфи не открывал лет 12, а потребовалось - вот и написал.
16 май 20, 18:15    [22134247]     Ответить | Цитировать Сообщить модератору
 Re: Чтение тегов геолокации графических файлов  [new]
alekcvp
Member

Откуда:
Сообщений: 2035
Эль А. Скрипка
Тут похоже такие вопросы не в чести...

Я ответ на этот вопрос нашёл за 5 минут в гугле. Ещё за 5 написал тестовый пример. И да, я не настоящий сварщик.
Поэтому они и не в чести.

Сообщение было отредактировано: 16 май 20, 18:35
16 май 20, 18:36    [22134253]     Ответить | Цитировать Сообщить модератору
 Re: Чтение тегов геолокации графических файлов  [new]
Эль А. Скрипка
Member

Откуда:
Сообщений: 4
Kazantsev Alexey,

Алексей, спасибо тебе за подсказки, но я видимо стар во всем разбираться. По этому и предлагал заплатить, но получить готовый код.
СПАСИБО!!
16 май 20, 20:09    [22134288]     Ответить | Цитировать Сообщить модератору
 Re: Чтение тегов геолокации графических файлов  [new]
Эль А. Скрипка
Member

Откуда:
Сообщений: 4
alekcvp,

Извини, на счет сварщика я не понял - в моем кругу сварщиками называют людей определенной профессии.

ПОдскажи уж еще: ты мне прислал библиотеки CCR.Exif, но как их подключить я не знаю. И какая подойдет для delphi 7?
16 май 20, 20:15    [22134293]     Ответить | Цитировать Сообщить модератору
 Re: Чтение тегов геолокации графических файлов  [new]
wadman
Member

Откуда: Санкт-Петербург
Сообщений: 26574
Эль А. Скрипка
ПОдскажи уж еще: ты мне прислал библиотеки CCR.Exif, но как их подключить я не знаю. И какая подойдет для delphi 7?

По ссылкам есть вся необходимая информация:
автор
Supported Delphi versions: Delphi 2006 and up, preferably Delphi 2007 and up. Supports XE2’s OS X and Win64 targets, though not iOS since the Delphi compiler and RTL are required.
16 май 20, 21:03    [22134308]     Ответить | Цитировать Сообщить модератору
 Re: Чтение тегов геолокации графических файлов  [new]
Kazantsev Alexey
Member

Откуда:
Сообщений: 4389
Эль А. Скрипка,

CCR.Exif семёрку не поддерживает. Если нужна именно семёрка, бери библиотеку по ссылке, что я дал. Читается примерно так:
uses

 dMetadata, dGlobal;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
const

 FileName = 'thorsmork.jpg';

var

 md : TImgData;

begin

 memo1.Clear;

 md := TImgData.Create;
 try

  if md.ProcessFile(FileName, [mdkExif]) and md.HasEXIF then
   begin

    Memo1.Lines.Add('latitude: ' + FloatToStr(md.ExifObj.GPSLatitude));
    Memo1.Lines.Add('longitude: ' + FloatToStr(md.ExifObj.GPSLongitude));
    Memo1.Lines.Add('altitude: ' + string(md.ExifObj.TagValue['GPSAltitude']));

    Memo1.Lines.Add('');
    Memo1.Lines.Add(md.ExifObj.TagValueAsString['GPSLatitude']);
    Memo1.Lines.Add(md.ExifObj.TagValueAsString['GPSlongitude']);
    Memo1.Lines.Add(md.ExifObj.TagValueAsString['GPSAltitude']);
    Memo1.Lines.Add(md.ExifObj.TagValueAsString['GPSTimestamp']);

   end;

 finally

  md.Free;

 end;

end;
16 май 20, 21:38    [22134324]     Ответить | Цитировать Сообщить модератору
 Re: Чтение тегов геолокации графических файлов  [new]
makhaon
Member

Откуда: A galaxy far far away
Сообщений: 3666
можно еще погуглить NativeJpg Delphi, либа тоже умеет с EXIF работать, ну и так много всего разного, не только вот это:
автор
// Pointer to JFIF info marker (if any)
property JfifInfo: TsdJFIFMarker read GetJfifInfo;
// Pointer to EXIF info marker (if any)
property ExifInfo: TsdEXIFMarker read GetExifInfo;
// Pointer to IPTC info marker (if any)
property IptcInfo: TsdIPTCMarker read GetIptcInfo;
// Pointer to Adobe APP14 info marker (if any)
можно забрать например тут:
https://torry.net/authorsmore.php?id=4374

Сообщение было отредактировано: 17 май 20, 11:41
17 май 20, 11:40    [22134461]     Ответить | Цитировать Сообщить модератору
Все форумы / Delphi Ответить