в общем есть фотка с galaxy Note, там в свойствах изображения есть широта и долгота... как программно достать значения оттуда?

пробовал, как делали тут v8: размер картинки из 1С

Шел = Новый COMОбъект("Shell.Application");
Папка = Шел.NameSpace(ДиалогОткрытияФайла.Каталог);
Файл = СтрЗаменить(ДиалогОткрытияФайла.ПолноеИмяФайла,"\","" "");
Файл = Папка.ParseName(СтрПолучитьСтроку(Файл,СтрЧислоСтрок(Файл)));
Для Сч=-100000 По 100000 Цикл
   Попытка
       Значение = Папка.GetDetailsOf(Файл,Сч);
       Если ЗначениеЗаполнено(Значение) Тогда
           Сообщить(Строка(Сч) + ": " + Значение);
       КонецЕсли;
   Исключение
   КонецПопытки;
КонецЦикла;

так большинство свойств достается, но нет широты и долготы.

Возможно это пользовательские свойства и у них индекс больше 100000, например с 0x8000000

(1), сейчас попробовал 10млн - пусто

http://www.exiv2.org/tags.html
вконце

(3), а можете подсказать как это понять :) я в англ. не силен, да и еще то что есть там не совпадает с моим.

например у меня есть при сч = 12 : ?20.?04.?2012 ??5:59

может я чтото не туда пишу?

Оригинал картинки на файло обменник и ссылку. Самому интересно.

http://exfile.ru/346148

Занятно нету там его. Даже поля такого.

Для Сч=0 По 300 Цикл
   Попытка
       Значение = Папка.GetDetailsOf(Файл,Сч);
       Если ЗначениеЗаполнено(Значение) Тогда
           Сообщить(Строка(Сч) + ": " + Значение);
       КонецЕсли;
   Исключение
   КонецПопытки;
КонецЦикла;

С неправильным путем выдает все 267 вариантов. В которых широты и долготы нет. Хотя должно выдавать все, что показывает эксплорер а тот координаты показывает.

Короче никто этого ни на одном языке не делал. Копать в сторону GetDetailsEx и всяких выражений типа{9B174B33-40FF-11d2-A27E-00C04FC30871}

плохи дела... в понедельник уже нужно чтоб готово было, видимо выходные испорчены.

Процедура Сформировать()
ПутьКФайлу = "D:\Downloads\Картинки\"; // обязательно заканчивать слэшем
ИмяФайла = "281af404c604206bc45eb6b7cea.jpg";
Попытка
ScrptCtrl=СоздатьОбъект("MSScriptControl.ScriptControl");
ScrptCtrl.Language="vbscript";
ScrptCtrl.AddCode("
|Function GetEXIFDate()
|Set objShellApp = CreateObject(""Shell.Application"")
|Set objFolder = objShellApp.NameSpace(""" + ПутьКФайлу + """)
|Set objItem = objFolder.ParseName(""" + ИмяФайла + """)
| GetEXIFDate = objFolder.GetDetailsOf(objItem, 31)
|End Function");
РезультатСкрипта=СокрЛП(ScrptCtrl.Run("GetEXIFDate"));
Сообщить(РезультатСкрипта);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры

(10) Эта переписанная с семерочного примера процедура выдает то-же самое, что и (1) только с семерочным гемором. GetDetailsOf выдает 267 параметров файла, данных геотегирования там нет. Есть в GetDetailsEx который еще никто для этих целей толком не заюзал. Так, что или читать вдумчиво сайт микрософта, там примеры есть но я с ходу не разобрался или использовать сторонние длл, которые придется регистрировать, либо самому читать файл и вычленять оттуда. Лучше бы автор разобрался с GetDetailsEx и нам рассказал, там много вкусностей есть.

http://preview.library.microsoft.com/en-us/library/bb775051(v=vs.85).aspx