Добрый день. Подскажите, может кто уже делал такое. Необходимо в 1c 7.7 вытянуть из файла фотографии дату создания. Не дату создания файла, а дату создания фотографии.

Прочитай в уголочке фотографии.

Фотографий очень много. Это фото-отчеты агентов. Нада автоматом выводить их в тот день, когда была создана фотография. Дата создания файла не подходит, поскольку она равна дате копирования фотки с фотоаппарата.

где нибудь в свойствах файла эта дата есть ? или по имени файла ориентироваться ?

а я хотел когда-то разрешение узнать. может, поможет
узнать разрешение jpeg

(3) часто иногда бывает. формат надо разбирать

Дата зашита в самом файле и спец программы ее видят...

(0)Если только фотоаппарат пишет в свойствах нужную дату.
Остается только понять, как из JPG получить эту информацию и чем? ;)

i_view32.exe dsc_1731.jpg /info=info.txt /fullinfo

потом в info.txt ищешь DateTimeOriginal

Может есть dll-ка специальная?

http://habrahabr.ru/post/102521/

Это ещё только при условии, что картинка - jpeg

(6)Спец. программы её видят потому что информация не зашифрована.

http://infostart.ru/public/16320/

(0) 1с++ + BinaryData, курить формат Exif

(9) Все куда проще, смотри по ссылке в (12)

http://savepic.ru/4063193.png

(12) Эти даты не подходят

http://infostart.ru/upload/iblock/1e1/img_48be441a4f7b1.jpg

(16)Разуй глаза :)

+ "Дата снимка", второе фото

(12) Их можно достать из атрибутов файла:
ФС.АтрибутыФайла(Файл,,Атрибуты,время)
Но это не то.

(18) Прости не заметил. Сейчас скачаю и посмотрю...

(20)Ты не посмотрел и не понял.
Если фотокамера пишет свойства, то человек на инфостарте предлагает простое решение.
Там свойство так и называется "Дата снимка". Это не дата создания файла.

Обработку проверил - все работает. Огромное спасибо.

(23)Челу плюсик поставь, за идею :)

Обязательно

Всего 24 строчки кода, включая пустые.

(26)Сам удивился :)

покажите код, плз

Перем ФЭ,ФЭК;

Процедура Сформировать2()
   табСвойства.УдалитьСтроки();
   objShellApp=СоздатьОбъект("Shell.Application");
   objFolder=objShellApp.NameSpace(СокрЛП(ФЭК));
   objItem=objFolder.ParseName(СокрЛП(ФЭ)); //Self;
   //Сообщить("Информация об объекте """+objItem.Path+""":");
   Для ы=-1 по 50 Цикл
   //    Сообщить(""+ы+" - "+objFolder.GetDetailsOf(,ы));
   //    Сообщить(""+ы+" - "+objFolder.GetDetailsOf(objItem,ы));
       _описание  =  objFolder.GetDetailsOf(,ы);
       _значение  =  objFolder.GetDetailsOf(objItem,ы);
       Если СокрЛП(_значение)  <> "" Тогда
           табСвойства.НоваяСтрока();
           табСвойства.Н = ы;
           табСвойства.Описание = _описание;
           табСвойства.Значение = _значение;
       КонецЕсли;
   КонецЦикла;
КонецПроцедуры

табСвойства.НоваяКолонка("Н","Число",2,0);
табСвойства.НоваяКолонка("Описание","Строка",20);
табСвойства.НоваяКолонка("Значение","Строка");

(29) спс.

всё гениальное просто :)

(29)
шикарно!
Спасибо.