Page 1 of 2

Photos keywords

Posted: Tue Jan 11, 2011 10:15 pm
by ramaral
Hi.

How can i make albums, view or organize photos from their keywords.

Thanks.

Re: Photos keywords

Posted: Wed Jan 12, 2011 8:33 am
by Eugene
Hi,
ramaral wrote: How can i make albums, view or organize photos from their keywords.
1. Fill in the keywords in the field Album or Comment (separated by comma)
2. Folder "Albums" - right click - Add Folder - Title: Keywords - Ok
3. Drag and drop header of column "Album" or "Comment" to folder "Keywords"
4. Folder "Keywords" - Grouping - mpAlbum - right click - Edit - Expression grouping -

Code: Select all

ReplaceStr(mpAlbum, ',', #13#10)
Ok

Re: Photos keywords

Posted: Thu Jan 13, 2011 9:41 pm
by ramaral
Hi Eugene.

My question is how can i do that in a automatic way.
My photos already have keywords, i use Adobe Bridge to do that.
When WMS read files properties like file size or file date, why it didn't read keywords too.

Thanks.

Re: Photos keywords

Posted: Fri Jan 14, 2011 8:40 am
by Eugene
Hi,
ramaral wrote: My question is how can i do that in a automatic way.
My photos already have keywords, i use Adobe Bridge to do that.
When WMS read files properties like file size or file date, why it didn't read keywords too.
Why Adobe Bridge not read Windows Explorer Keywords ?

Re: Photos keywords

Posted: Fri Jan 14, 2011 11:12 pm
by ramaral
Hi,

This is not entirely correct.
I test for jpg file type and Adobe Bridge read windows keywords and windows also read Adobe Bridge keywords.
I know this extended properties differ from file type to file type and are not well documented how to extract them.
I found same information at http://www.codeguru.com/forum/showthread.php?t=446195.
Maybe in the next windows file system (WinFS).

Re: Photos keywords

Posted: Sat Jan 15, 2011 7:51 am
by Eugene
Hi,
ramaral wrote: This is not entirely correct.
I test for jpg file type and Adobe Bridge read windows keywords and windows also read Adobe Bridge keywords.
I know this extended properties differ from file type to file type and are not well documented how to extract them.
I found same information at http://www.codeguru.com/forum/showthread.php?t=446195.
Maybe in the next windows file system (WinFS).
Keywords saved in the jpg-file, Adobe Bridge does not read keywords

Re: Photos keywords

Posted: Sat Jan 15, 2011 1:24 pm
by ramaral
Hi,

Properties from Aranha.jpg
Windows_1.jpg
Windows_1.jpg (61.48 KiB) Viewed 10755 times
View keywords in bridge
Bridge_1.jpg
Bridge_1.jpg (44.43 KiB) Viewed 10755 times
Change keywords in windows
Windows_2.jpg
Windows_2.jpg (60.14 KiB) Viewed 10755 times
Continues on next post.....

Re: Photos keywords

Posted: Sat Jan 15, 2011 1:28 pm
by ramaral
View keywords in bridge
Bridge_2.jpg
Bridge_2.jpg (43.9 KiB) Viewed 10755 times
Change keywords in bridge
Bridge_3.jpg
Bridge_3.jpg (43.45 KiB) Viewed 10755 times
View keywords in windows
Windows_3.jpg
Windows_3.jpg (60.1 KiB) Viewed 10755 times

Re: Photos keywords

Posted: Sat Jan 15, 2011 1:32 pm
by ramaral
Aranha.jpg
Aranha.JPG
Aranha.JPG (73.8 KiB) Viewed 10755 times

Re: Photos keywords

Posted: Sat Jan 15, 2011 7:44 pm
by Eugene
Hi,

So, you can use system ole-objects for reading keywords and event "After reading of properties of a media resources" (Settings - Processing and Settings - Additional - Events).

P.S.
Language: PascalScript

Code: Select all

var
  FolderItem, Keywords, Shell: Variant;
  i: Integer;  
  sFilePath, sAlbum: string;
begin
  if (CurrentMediaItem <> nil) and (CurrentMediaItem.MediaType = mtImage) then begin
    sFilePath := CurrentMediaItem.Properties[mpiFilePath];    
    Shell := CreateOleObject('Shell.Application');
    FolderItem := Shell.NameSpace(ExtractFileDir(sFilePath)).ParseName(ExtractFileName(sFilePath));    
    Keywords := FolderItem.ExtendedProperty('{F29F85E0-4FF9-1068-AB91-08002B27B3D9} 5');    
    if Length(Keywords) > 0 then begin    
      sAlbum := Keywords[0];
      for i := 1 to Length(Keywords) - 1 do      
        sAlbum := sAlbum + ',' + Keywords[i];
      CurrentMediaItem.Properties[mpiAlbum] := sAlbum           
    end
  end   
end.