Photos keywords
Posted: Tue Jan 11, 2011 10:15 pm
Hi.
How can i make albums, view or organize photos from their keywords.
Thanks.
How can i make albums, view or organize photos from their keywords.
Thanks.
Forum of program "Wild media server (UPnP, DLNA, HTTP)
https://www.wildmediaserver.com/forum/
1. Fill in the keywords in the field Album or Comment (separated by comma)ramaral wrote: How can i make albums, view or organize photos from their keywords.
Code: Select all
ReplaceStr(mpAlbum, ',', #13#10)
Why Adobe Bridge not read Windows Explorer Keywords ?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.
Keywords saved in the jpg-file, Adobe Bridge does not read keywordsramaral 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).
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.