Серый форум — WSH: Не получается прочитать свойства файла, касаемые GPS

Re: WSH: Не получается прочитать свойства файла, касаемые GPS

2015-12-07T09:17:23Z

Всем спасибо, всё получилось!!!!

Re: WSH: Не получается прочитать свойства файла, касаемые GPS

2015-12-05T13:30:46Z

mozers пишет:

Ща буду разбираться как заставить мой фотик такую инфу писать.

Если поддержки GPS нет, то никак.

Re: WSH: Не получается прочитать свойства файла, касаемые GPS

2015-12-05T11:34:02Z

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

Re: WSH: Не получается прочитать свойства файла, касаемые GPS

2015-12-04T14:05:15Z

Prog_1C
Вас чем ссылка-то не устроила? Там показано как с помощью WIA.ImageFile + Properties получить желаемое.
Синтаксис 1С.

Кстати, "Для К=-100 По 300". Почему -100? Первый индекс - это 0. А максимум - это 286/288.

Re: WSH: Не получается прочитать свойства файла, касаемые GPS

2015-12-04T13:33:26Z

mozers

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

Re: WSH: Не получается прочитать свойства файла, касаемые GPS

2015-12-04T12:50:18Z

5 сек. на поиск.

Re: WSH: Не получается прочитать свойства файла, касаемые GPS

2015-12-04T11:40:07Z

Prog_1C, Shell.Application читает только те свойства файла, которые видит shell (т.е. explorer). Их же можно увидеть в "Свойствах" файла. Для чтения специализированных свойств (лично я не уверен что координаты вообще там присутствуют) надо искать специализированные ActiveX (они, в большинстве своем - платные).

WSH: Не получается прочитать свойства файла, касаемые GPS

2015-12-04T08:57:01Z

Добрый день. Есть фотография с координатами GPS. Необходимо программно прочитать эти координаты (широта, долгота). Я, используя объекты "Shell.Application" (Folder, Item) смог прочитать большинство свойств, но не тех, которые мне нужны.
Код на 1С: Предприятии 8.3:


    Файл = Новый Файл(ПутьДоФайла);
    WshShell = Новый COMОбъект("WScript.Shell");
    objShellApp = Новый COMОбъект("Shell.Application");
    objFolder = objShellApp.NameSpace(Файл.Путь);
    objItem = objFolder.ParseName(Файл.Имя); 
	Для К=-100 По 300 Цикл
		ИмяСвойства = СокрЛП(objFolder.GetDetailsOf(NULL, К));
		Значение = СокрЛП(objFolder.GetDetailsOf(objItem,К));
		Если ЗначениеЗаполнено(Значение) Тогда
			Сообщить(ИмяСвойства + " = " + Значение);
		КонецЕсли;
	КонецЦикла;