Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Комментарии файла


Автор: Rodman 18.6.2007, 08:44
Дароф.

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

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

             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;

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

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

Сенкс.

Автор: z-END 18.6.2007, 09:15
Цитата(Rodman @  18.6.2007,  09:44 Найти цитируемый пост)
имени вставить переменную и подставить в функцию, то не работает...

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

Автор: pseud 18.6.2007, 09:19
Rodman, видимо вместо строковой переменной надо подсунуть указатель на нее
т.е. так
Код

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

Автор: Rodman 18.6.2007, 09:25
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, ругается на несоответствие типов!

Автор: pseud 18.6.2007, 09:58
Код

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;


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

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

Автор: Rodman 18.6.2007, 10:09
рабочий код
Код

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;

Автор: pseud 18.6.2007, 10:10

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

Код

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;

Автор: Rodman 18.6.2007, 10:14
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;

Автор: pseud 18.6.2007, 10:16
Rodman, 

вместо
Код

stt: AnsiString;


напиши
Код

stt: Variant;


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

Автор: Rodman 18.6.2007, 11:15
Цитата(pseud @  18.6.2007,  08:58 Найти цитируемый пост)
или я не туда копаю?

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

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

Автор: Rodman 18.6.2007, 13:02
конечно логика подсказывает что должно быть SetDetailsOf, но не получается... есть ли какой то метод?

Автор: Rodman 18.6.2007, 13:59
мне сказали что "это не совсем то, это текстовое значение в определённой колонке элемента, как ты прочитаешь,  а если я колонки поменяю в эксплорере!?".

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

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

Автор: pseud 18.6.2007, 14:14
в DRKB есть интересная статья:
"Как извлечь "Сводку" свойств файла?"

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

Автор: Rodman 18.6.2007, 14:23
Цитата(pseud @  18.6.2007,  13:14 Найти цитируемый пост)
извлечь

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

Автор: pseud 18.6.2007, 14:41
Цитата(Rodman @  18.6.2007,  14:23 Найти цитируемый пост)
а мне не извлечь, а записать надо!!!


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


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

Автор: Rodman 18.6.2007, 14:48
http://forum.vingrad.ru/index.php?show_type=forum&showtopic=107322&hl=exif взял исходник. Но он меняет "User Comment", а как там менять то что в "Comments"???

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)