v7: Дата создания фотографии

1C 7.7

14.02.13

✎

13:49

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

1 Мимохожий Однако

14.02.13

✎

13:50

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

2 AlexFF

14.02.13

✎

13:54

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

3 пипец

14.02.13

✎

13:55

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

4 Wobland

14.02.13

✎

13:55

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

5 Wobland

14.02.13

✎

13:55

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

6 AlexFF

14.02.13

✎

13:58

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

7 ЧеловекДуши

14.02.13

✎

13:58

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

8 aka MIK

14.02.13

✎

14:00

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

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

9 AlexFF

14.02.13

✎

14:00

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

10 mikecool

14.02.13

✎

14:00

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

11 1Сергей

14.02.13

✎

14:01

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

12 ЧеловекДуши

14.02.13

✎

14:01

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

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

13 mehfk

14.02.13

✎

14:03

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

14 ЧеловекДуши

14.02.13

✎

14:04

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

15 1Сергей

14.02.13

✎

14:04

http://savepic.ru/4063193.png

16 AlexFF

14.02.13

✎

14:04

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

17 ЧеловекДуши

14.02.13

✎

14:05

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

18 ЧеловекДуши

14.02.13

✎

14:05

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

19 ЧеловекДуши

14.02.13

✎

14:06

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

20 AlexFF

14.02.13

✎

14:06

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

21 AlexFF

14.02.13

✎

14:07

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

22 ЧеловекДуши

14.02.13

✎

14:07

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

23 AlexFF

14.02.13

✎

14:10

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

24 ЧеловекДуши

14.02.13

✎

14:11

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

25 AlexFF

14.02.13

✎

14:12

Обязательно

26 AlexFF

14.02.13

✎

14:13

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

27 ЧеловекДуши

14.02.13

✎

14:14

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

28 1Сергей

14.02.13

✎

14:15

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

29 ЧеловекДуши

14.02.13

✎

14:16

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

Процедура Сформировать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);
табСвойства.НоваяКолонка("Значение","Строка");

30 1Сергей

14.02.13

✎

14:16

(29) спс.

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

31 НЕА123

14.02.13

✎

14:52

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