Решения пользователей программы "Домашний медиа-сервер (UPnP, DLNA, HTTP)"
https://www.homemediaserver.ru/forum/
Через обработку медиа-ресурсов (Настройки-Обработка) можно подключить эскиз (свойство mpiThumbnail), задать название (mpiTitle).M174 wrote:Подскажите пожалуйста может ли HMS сам сканировать папки с медиаконтентом на предмет наличия графических файлов типа: folder.jpg cover.jpg front.jpg и добавлять их в свойства файла в качестве обложки? Или обложки можно добавить только вручную? И ещё момент, есть опция использовать имя файла в качестве названия фильма, а использовать имя папки в качестве названия фильма нельзя?
Супер! спасибо огромное! осталось понять как это работает )))Eugene wrote: Через обработку медиа-ресурсов (Настройки-Обработка) можно подключить эскиз (свойство mpiThumbnail), задать название (mpiTitle).
Настройки-Обработка-ДобавитьM174 wrote:Супер! спасибо огромное! осталось понять как это работает )))Eugene wrote: Через обработку медиа-ресурсов (Настройки-Обработка) можно подключить эскиз (свойство 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.