ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Чтение тегов геолокации графических файлов
11 сообщений из 11, страница 1 из 1
Чтение тегов геолокации графических файлов
    #39958245
Эль А. Скрипка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эль А. Скрипка
Гость
готов заплатить за рабочий код, можно без оформления для Delphi 7, для чтения тегов геолокации графических файлов: дата, время, широта, долгота, высота, азимут.
...
Рейтинг: 0 / 0
15.05.2020, 23:30
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958252
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
Эль А. Скрипка,

посмотри это: https://github.com/cutec-chris/dexif
...
Рейтинг: 0 / 0
15.05.2020, 23:51
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958258
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Эль А. Скрипка,

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

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
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
...
Рейтинг: 0 / 0
16.05.2020, 00:17
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958266
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
[посыпался пеплом]
...
Рейтинг: 0 / 0
16.05.2020, 00:35
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958395
Эль А. Скрипка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эль А. Скрипка
Гость
alekcvp,
Возможно ты и прав.Я никогда не пользовался этим форумом. Пару дней назад задал вопрос невпопад - даже обиделся мужик на мое предложение.
Тут похоже такие вопросы не в чести...
Тебе спасибо. От предложения не отказываюсь.
Дельфи не открывал лет 12, а потребовалось - вот и написал.
...
Рейтинг: 0 / 0
16.05.2020, 18:15
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958400
alekcvp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alekcvp
Участник
Эль А. Скрипка
Тут похоже такие вопросы не в чести...

Я ответ на этот вопрос нашёл за 5 минут в гугле. Ещё за 5 написал тестовый пример. И да, я не настоящий сварщик.
Поэтому они и не в чести.
...
Рейтинг: 0 / 0
16.05.2020, 18:36
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958424
Эль А. Скрипка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эль А. Скрипка
Гость
Kazantsev Alexey,

Алексей, спасибо тебе за подсказки, но я видимо стар во всем разбираться. По этому и предлагал заплатить, но получить готовый код.
СПАСИБО!!
...
Рейтинг: 0 / 0
16.05.2020, 20:09
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958429
Эль А. Скрипка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Эль А. Скрипка
Гость
alekcvp,

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

ПОдскажи уж еще: ты мне прислал библиотеки CCR.Exif, но как их подключить я не знаю. И какая подойдет для delphi 7?
...
Рейтинг: 0 / 0
16.05.2020, 20:15
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958439
Фотография wadman
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wadman
Участник
Эль А. Скрипка
ПОдскажи уж еще: ты мне прислал библиотеки 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.
...
Рейтинг: 0 / 0
16.05.2020, 21:03
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958449
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
Эль А. Скрипка,

CCR.Exif семёрку не поддерживает. Если нужна именно семёрка, бери библиотеку по ссылке, что я дал. Читается примерно так:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
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;
...
Рейтинг: 0 / 0
16.05.2020, 21:38
| Ответить | Цитировать | Написать  
Чтение тегов геолокации графических файлов
    #39958543
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
можно еще погуглить 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
...
Рейтинг: 0 / 0
17.05.2020, 11:40
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Чтение тегов геолокации графических файлов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=44&tid=2038321]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 68ms
get tp. blocked users:
 2ms
others: 233ms
total:  405ms
созд. / загр.: 405ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]