Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Комментарии файла, Программно 
:(
    Опции темы
Rodman
Дата 18.6.2007, 08:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Дароф.

Как добавить комментарии к графическому файлу (т.е. что бы видно было в "Свойства-Сводка-Комментарии").

вот есть код
Код

             objShell := CreateOleObject('Shell.Application');
             str := 'C:\imgdb\newfolder\';
             objFolder := objShell.Namespace('C:\imgdb\newfolder\');
             if not VarIsEmpty(objFolder) then begin
               Comment := objFolder.GetDetailsOf('img_1324.jpg', 14);
             end;

но если в место жестко прописанного имени вставить переменную и подставить в функцию, то не работает...

Как это лечится???

Сенкс.


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
z-END
Дата 18.6.2007, 09:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


прафесар™
****


Профиль
Группа: Комодератор
Сообщений: 3014
Регистрация: 13.3.2003
Где: Венья, Пиетари

Репутация: 11
Всего: 102
Цитата(Rodman @  18.6.2007,  09:44 Найти цитируемый пост)
имени вставить переменную и подставить в функцию, то не работает...

а типы переменных сходятся?


--------------------
Каждый чилавек пасвоему праф...а памоему НЕТ! 
PM WWW ICQ   Вверх
pseud
Дата 18.6.2007, 09:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Rodman, видимо вместо строковой переменной надо подсунуть указатель на нее
т.е. так
Код

s := 'img_1324.jpg';
objFolder.GetDetailsOf(PChar(s), 14);




--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Rodman
Дата 18.6.2007, 09:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
z-END, все нормально вроде с типами...

мож у кого нить есть работающий пример?

Добавлено через 12 минут и 10 секунд
Access violation at address 00472BFB in module 'Imgdb.exe'. Read of address 00000000.
выдает на строке
Код

Comment := objFolder.GetDetailsOf('img_1324.jpg', 14);



pseud, ругается на несоответствие типов!

Это сообщение отредактировал(а) Rodman - 18.6.2007, 09:34


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
pseud
Дата 18.6.2007, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  objShell: Variant;
  str: Variant;
  objFolder: Variant;
  Comment: string;
begin
  objShell := CreateOleObject('Shell.Application');
  str := 'C:\1\';
  objFolder := objShell.Namespace('C:\1\');
  if not VarIsEmpty(objFolder) then begin
    Comment := objFolder.GetDetailsOf('image007.jpg', StrToInt(Edit1.Text));
  end;
  showmessage(Comment);
end;


прекрасно работает, только имеем мы не значения атрибутов, а имена атрибутов 
"Имя", "Автор", "Комментарий"

или я не туда копаю?

Это сообщение отредактировал(а) pseud - 18.6.2007, 10:03


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Rodman
Дата 18.6.2007, 10:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
рабочий код
Код

procedure TForm1.Button1Click(Sender: TObject);
var   ObjShell,objFolder,objFolderItem:OLEVariant;
          i:Integer;
          Info:String;
          stt:AnsiString;
begin
  objShell   :=   CreateOLEObject('Shell.Application');
  objFolder   :=   objShell.NameSpace('c:\ImgDB');
  objFolderItem   :=   objFolder.ParseName('1.jpg');
  info   :=   objFolder.GetDetailsOf(objFolderItem,   0);
  for   i:=1   to   36   do
     info   :=   info+','+objFolder.GetDetailsOf(objFolderItem,   i);   //   for   more   please   see   msdn   "GetDetailsOf"
  MessageBox(handle,PChar(info),'fff',0);
end;


не хочет работать
Код

procedure TForm1.Button1Click(Sender: TObject);
var   ObjShell,objFolder,objFolderItem:OLEVariant;
          i:Integer;
          Info:String;
          stt:AnsiString;
begin
  objShell   :=   CreateOLEObject('Shell.Application');
  stt:='c:\ImgDB';
  objFolder   :=   objShell.NameSpace(stt);
  objFolderItem   :=   objFolder.ParseName('1.jpg');
  info   :=   objFolder.GetDetailsOf(objFolderItem,   0);
  for   i:=1   to   36   do
    info   :=   info+','+objFolder.GetDetailsOf(objFolderItem,   i);   //   for   more   please   see   msdn   "GetDetailsOf"
  MessageBox(handle,PChar(info),'fff',0);
end;



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
pseud
Дата 18.6.2007, 10:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

вот теперь точно работает

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  objShell: Variant;
  objFolder: Variant;
  objFolderItem: Variant;
  s: string;
begin
  objShell := CreateOleObject('Shell.Application');
  objFolder := objShell.Namespace('C:\1\');
  objFolderItem := objFolder.ParseName('image007.jpg');
  s := objFolder.GetDetailsOf(objFolderItem, StrToInt(Edit1.Text));
  showmessage(s);
end;



--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Rodman
Дата 18.6.2007, 10:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
pseud, 
Код

procedure TForm1.Button1Click(Sender: TObject);
var
  objShell: Variant;
  str: Variant;
  objFolder: Variant;
  Comment: string;
begin
  objShell := CreateOleObject('Shell.Application');
  str := 'C:\1\';
  //objFolder := objShell.Namespace('C:\1\');// дубль
  objFolder := objShell.Namespace(str);// вот так хотелось бы
  if not VarIsEmpty(objFolder) then begin
    Comment := objFolder.GetDetailsOf('image007.jpg', StrToInt(Edit1.Text));
  end;
  showmessage(Comment);
end;



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
pseud
Дата 18.6.2007, 10:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Rodman, 

вместо
Код

stt: AnsiString;


напиши
Код

stt: Variant;


и вперед
и с песней smile
фачит - проверено


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Rodman
Дата 18.6.2007, 11:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Цитата(pseud @  18.6.2007,  08:58 Найти цитируемый пост)
или я не туда копаю?

раскопки прошли успешно, но не до конца...

это чтение Комментария, а как записать????



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Rodman
Дата 18.6.2007, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
конечно логика подсказывает что должно быть SetDetailsOf, но не получается... есть ли какой то метод?


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
Rodman
Дата 18.6.2007, 13:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
мне сказали что "это не совсем то, это текстовое значение в определённой колонке элемента, как ты прочитаешь,  а если я колонки поменяю в эксплорере!?".

т.е. возможно это даже не тот путь... 

Как в *.jpg записать комментарий программно, чтобы он был виден в (Свойства - Сводка - Комментарий)???


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
pseud
Дата 18.6.2007, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
в DRKB есть интересная статья:
"Как извлечь "Сводку" свойств файла?"

Там подход не такой красивый как ты применяешь, но можно попробовать использовать его для записи свойств.




--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Rodman
Дата 18.6.2007, 14:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122
Цитата(pseud @  18.6.2007,  13:14 Найти цитируемый пост)
извлечь

а мне не извлечь, а записать надо!!!


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
pseud
Дата 18.6.2007, 14:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Цитата(Rodman @  18.6.2007,  14:23 Найти цитируемый пост)
а мне не извлечь, а записать надо!!!


Цитата(pseud @  18.6.2007,  14:14 Найти цитируемый пост)
... но можно попробовать использовать его для записи свойств.


ну дык статью хоть покопай. Если нет DRKB - говори - выложу код.


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0988 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.