Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Чтение тегов геолокации графических файлов / 11 сообщений из 11, страница 1 из 1
15.05.2020, 23:30
    #39958245
Эль А. Скрипка
Эль А. Скрипка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение тегов геолокации графических файлов
готов заплатить за рабочий код, можно без оформления для Delphi 7, для чтения тегов геолокации графических файлов: дата, время, широта, долгота, высота, азимут.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.05.2020, 23:51
    #39958252
Kazantsev Alexey
Kazantsev Alexey
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение тегов геолокации графических файлов
Эль А. Скрипка,

посмотри это: https://github.com/cutec-chris/dexif
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2020, 00:17
    #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:35
    #39958266
Kazantsev Alexey
Kazantsev Alexey
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение тегов геолокации графических файлов
[посыпался пеплом]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2020, 18:15
    #39958395
Эль А. Скрипка
Эль А. Скрипка
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение тегов геолокации графических файлов
alekcvp,
Возможно ты и прав.Я никогда не пользовался этим форумом. Пару дней назад задал вопрос невпопад - даже обиделся мужик на мое предложение.
Тут похоже такие вопросы не в чести...
Тебе спасибо. От предложения не отказываюсь.
Дельфи не открывал лет 12, а потребовалось - вот и написал.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2020, 18:36
    #39958400
alekcvp
alekcvp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чтение тегов геолокации графических файлов
Эль А. Скрипка
Тут похоже такие вопросы не в чести...

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

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

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

ПОдскажи уж еще: ты мне прислал библиотеки CCR.Exif, но как их подключить я не знаю. И какая подойдет для delphi 7?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.05.2020, 21:03
    #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:38
    #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
| Ответить | Цитировать | Написать  
17.05.2020, 11:40
    #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
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Чтение тегов геолокации графических файлов / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 367ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2038321]:
 0ms
get settings:
 8ms
get forum list:
 7ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 79ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 25ms
get tp. blocked users:
 1ms
others: 235ms
total:  367ms
x
x
Закрыть


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