helpf.pro
Регистрация
 0 
Распечатать

Установка атрибутов файлу на закладке Сводка

Смысл в следующем. В windows присутствует файл библиотеки dsofile.dll ( Скачивать файлы может только зарегистрированный пользователь! ), при помощи которого эти самые свойства можно получать или устанавливать.
title

Небольшая процедурка, как установить свойства:
Код 1C v 7.x
  Процедура глУстановитьСвойстваЗакладкиСводка(текФайл, тОписание="", тАвтор="", тКлючевыеСлова="", тФирма="", тКатегория="", тЗаголовок="", тТема="") Экспорт

Попытка
ФайлДляУстановки = CreateObject("DSOFile.OleDocumentProperties");
ФайлДляУстановки.Open(текФайл);
ФайлДляУстановки.SummaryProperties.Author = тАвтор;
ФайлДляУстановки.SummaryProperties.Keywords = тКлючевыеСлова;
ФайлДляУстановки.SummaryProperties.Company = тФирма;
ФайлДляУстановки.SummaryProperties.Category = тКатегория;
ФайлДляУстановки.SummaryProperties.Comments = тОписание;
ФайлДляУстановки.SummaryProperties.Subject = тТема;
ФайлДляУстановки.SummaryProperties.Title = тЗаголовок;
ФайлДляУстановки.Save();
ФайлДляУстановки=0;

Исключение
Сообщить("Не удалось установить параметры файла, не зарегистрирована библиотека!","!!!");
КонецПопытки;
КонецПроцедуры

и как получить:
Код 1C v 7.x
 Процедура глПолучитьСвойстваЗакладкиСводка(текФайл) Экспорт

Попытка

ФайлДляУстановки = CreateObject("DSOFile.OleDocumentProperties");
ФайлДляУстановки.Open(текФайл);
тАвтор = ФайлДляУстановки.SummaryProperties.Author;
тКлючевыеСлова= ФайлДляУстановки.SummaryProperties.Keywords;
тФирма= ФайлДляУстановки.SummaryProperties.Company;
тКатегория= ФайлДляУстановки.SummaryProperties.Category;
тОписание= ФайлДляУстановки.SummaryProperties.Comments;
тТема= ФайлДляУстановки.SummaryProperties.Subject;
тЗаголовок= ФайлДляУстановки.SummaryProperties.Title;
ФайлДляУстановки=0;

Исключение
Сообщить("Не удалось прочитать параметры файла, не зарегистрирована библиотека!","!!!");
КонецПопытки;

КонецПроцедуры

Автор: maxpiter
Разместил:   Версии: | 7.x |  Дата:   Прочитано: 4954
 0 
Распечатать
Возможно, вас также заинтересует
COM-соединение не обнаружило свободной лицензии / ключ защиты 0
Иногда при подключении к 1С возникает ошибка: COM-соединение не обнаружило свободной лицензии! COM-соединение не обнаружило ключ защиты программы! https://helpf.pro/uploads/img/_1-UsuyAg6E2P.jpg В таких случаях, иногда, может помочь...
Cодержимое указанного ниже веб-сайта в этом приложении блокируется... Aboutsecurity_1cv8c.exe 0
Проблема: После обновления на 1С:Бухгалтерию предприятия 3-й версии, при нажатии на закладку командного интерфейса 1С:предприятие, выскакивает ошибка: Aboutsecurity_1cv8c.exe или Aboutsecurity_1cv8.exe «Содержимое указанного ниже...
Excel файл как Внешний источник данных 4
Подключимся и загрузим из файла Excel данные в таблицу значений 1С. Сделать теперь это очень просто. 1. В конфигурации добавляет новый объект метаданных типа " Внешние источники данных" и назовем его просто " Excel" . ...
PostgreSQL: установка, настройка, обслуживание 2
PostgreSQL напрямую "из коробки" применяться для использования с 1С Предприятем не может. Необходима именно адаптированная версия от 1С, превращающая PostgreSQL в блокировочник, причем нужно понимать, что блокировки будут...
rphost занимает память и грузит процессор 12
У многих возникают проблемы с rphost.exe, разного вида: rphost занимает всю память rphost грузит процессор rphost жрет память причем 1С даже на запущена, а в диспетчере следующее: ежеминутно расчет на 2-3 мегабайта. Как быть и...
Посмотреть все результаты поиска похожих
Комментарии
nikk911
23.07.2013 17:03Комментарий: 3
nikk911
Огромное спасибо!
Экспериментально дошел до того, что для картинок отображаются другие поля на закладке "подробно" (в XP сводка), а те атрибуты которые отображаются для офиса скрыты.
DLL все-таки позволяет устанавливать автора, описание, ... и читать их. (только в свойствах файла ты их не видишь).
E_Migachev
23.07.2013 13:26Комментарий: 2
E_Migachev
nikk911, да, это только для офиса, а JPG хранит внутри себя, открой блокнотом его, там строки перед двоичными кодами изображения. чем и как их изменить не скажу, не видел пока ничего такого
nikk911
23.07.2013 13:11Комментарий: 1
nikk911
Все это работает для файлов офиса, а для JPG файлов не читает и не устанавливает. Чем можно прочитать и установить для JPG?
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.