Вопрос про обложки

[M174]

Подскажите пожалуйста может ли HMS сам сканировать папки с медиаконтентом на предмет наличия графических файлов типа: folder.jpg cover.jpg front.jpg и добавлять их в свойства файла в качестве обложки? Или обложки можно добавить только вручную? И ещё момент, есть опция использовать имя файла в качестве названия фильма, а использовать имя папки в качестве названия фильма нельзя?

[Eugene]

Подскажите пожалуйста может ли HMS сам сканировать папки с медиаконтентом на предмет наличия графических файлов типа: folder.jpg cover.jpg front.jpg и добавлять их в свойства файла в качестве обложки? Или обложки можно добавить только вручную? И ещё момент, есть опция использовать имя файла в качестве названия фильма, а использовать имя папки в качестве названия фильма нельзя?

Через обработку медиа-ресурсов (Настройки-Обработка) можно подключить эскиз (свойство mpiThumbnail), задать название (mpiTitle).

[M174]

обновил до 1.10.5 заработали обложки, причем в свойствах файла эскизов не видно...

[M174]

Через обработку медиа-ресурсов (Настройки-Обработка) можно подключить эскиз (свойство mpiThumbnail), задать название (mpiTitle).

Супер! спасибо огромное! осталось понять как это работает )))

[Eugene]

Через обработку медиа-ресурсов (Настройки-Обработка) можно подключить эскиз (свойство mpiThumbnail), задать название (mpiTitle).

Супер! спасибо огромное! осталось понять как это работает )))

Настройки-Обработка-Добавить
Название: Поиск эскизов
Отметить кнопку на главной форме:
Скрипт:

Code: Select all

procedure ProcessItem(aItem: THmsScriptMediaItem);
var
  sFilePath, sThumbnailFileName: string;
  
  function CheckThumbnail(const aFileName: string): Boolean;
  begin
    sThumbnailFileName := sFilePath + aFileName;
    Result := FileExists(sThumbnailFileName)
  end;
  
begin
  sFilePath := ExtractFilePath(aItem.Properties[mpiFilePath]);
  if VarToStr(aItem.Properties[mpiThumbnail]) = '' then begin
    if CheckThumbnail('folder.jpg') or CheckThumbnail('cover.jpg') or
       CheckThumbnail('front.jpg') then
      aItem.Properties[mpiThumbnail] := sThumbnailFileName;
  end;  
  aItem.Properties[mpiTitle] := ExtractFileName(ExcludeTrailingBackslash(sFilePath))  
end;
 
var
  i: Integer;
  AllMovies: THmsScriptMediaItem;
begin
  AllMovies := HmsFindMediaFolder(mfVideoAllMoviesItemID);
  if AllMovies <> nil then begin
    HmsShowInformation('Обработка медиа-ресурсов...');
    try
      for i := 0 to AllMovies.ChildCount - 1 do
        ProcessItem(AllMovies.ChildItems[i])
    finally
      HmsHideInformation
    end
  end;  
  HmsDatabaseAutoSave;
  ProcessMediaResult := True      
end.

OK-OK-OK
Нажать кнопку "Поиск эскизов".
Если в каталоге несколько файлов фильмов, то все они получат одно и то же имя.

[M174]

Респект!