Пример для HmsCreateMediaItemTags и THmsScriptFileTags
Posted: Mon Dec 17, 2012 9:44 am
Данная функция и класс могут быть полезны для чтения свойств файлов, которые программа не обрабатывает по-умолчанию, например, в событии "После чтения свойств медиа-ресурса".
Пример отображает список тегов текущего медиа-ресурса в списке фильмов, музыки, фото.
Настройки - Обработка - Добавить
Название: Список тегов
Включить "Кнопка на главной форме"
Скрипт:
Пример отображает список тегов текущего медиа-ресурса в списке фильмов, музыки, фото.
Настройки - Обработка - Добавить
Название: Список тегов
Включить "Кнопка на главной форме"
Скрипт:
Code: Select all
var
FileTags: THmsScriptFileTags;
TextTags: TStringList;
i: Integer;
sProviderName, sValue: string;
begin
if InputQuery('Провайдер тегов', 'Exif, FFmpeg, MediaInfo, Shell, Hms, Xmp', sProviderName) then begin
FileTags := HmsCreateMediaItemTags(sProviderName, HmsCurrentMediaListItem);
if FileTags <> nil then try
TextTags := TStringList.Create;
try
for i := 0 to FileTags.GetTagCount - 1 do begin
sValue := VarToStr(FileTags.GetTagValue(FileTags.GetTagID(i)));
if (sValue <> '') and (Length(sValue) < 100) then
TextTags.Add(Format('%s (%s): %s', [FileTags.GetTagName(i), FileTags.GetTagID(i), sValue]));
end;
ShowMessage(TextTags.Text)
finally
TextTags.Free
end
finally
FileTags.Free
end
end
end.