Photos keywords

ramaral
Posts: 40
Joined: Thu Dec 09, 2010 10:24 pm
Location: Portugal
Contact:

Photos keywords

Post by ramaral »

Hi.

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

Thanks.
Eugene
Posts: 2940
Joined: Tue Nov 17, 2009 8:05 pm

Re: Photos keywords

Post 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
ramaral
Posts: 40
Joined: Thu Dec 09, 2010 10:24 pm
Location: Portugal
Contact:

Re: Photos keywords

Post 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.
Eugene
Posts: 2940
Joined: Tue Nov 17, 2009 8:05 pm

Re: Photos keywords

Post 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 ?
ramaral
Posts: 40
Joined: Thu Dec 09, 2010 10:24 pm
Location: Portugal
Contact:

Re: Photos keywords

Post 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).
Eugene
Posts: 2940
Joined: Tue Nov 17, 2009 8:05 pm

Re: Photos keywords

Post 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
ramaral
Posts: 40
Joined: Thu Dec 09, 2010 10:24 pm
Location: Portugal
Contact:

Re: Photos keywords

Post by ramaral »

Hi,

Properties from Aranha.jpg
Windows_1.jpg
Windows_1.jpg (61.48 KiB) Viewed 8065 times
View keywords in bridge
Bridge_1.jpg
Bridge_1.jpg (44.43 KiB) Viewed 8065 times
Change keywords in windows
Windows_2.jpg
Windows_2.jpg (60.14 KiB) Viewed 8065 times
Continues on next post.....
ramaral
Posts: 40
Joined: Thu Dec 09, 2010 10:24 pm
Location: Portugal
Contact:

Re: Photos keywords

Post by ramaral »

View keywords in bridge
Bridge_2.jpg
Bridge_2.jpg (43.9 KiB) Viewed 8065 times
Change keywords in bridge
Bridge_3.jpg
Bridge_3.jpg (43.45 KiB) Viewed 8065 times
View keywords in windows
Windows_3.jpg
Windows_3.jpg (60.1 KiB) Viewed 8065 times
ramaral
Posts: 40
Joined: Thu Dec 09, 2010 10:24 pm
Location: Portugal
Contact:

Re: Photos keywords

Post by ramaral »

Aranha.jpg
Aranha.JPG
Aranha.JPG (73.8 KiB) Viewed 8065 times
Eugene
Posts: 2940
Joined: Tue Nov 17, 2009 8:05 pm

Re: Photos keywords

Post 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.
Post Reply