Тема: Воспроизведение всех фото из заданного альбома (каталога)
Добрый день!
Как то можно заставить HMS воспроизводить при помощи скрипта все фото, содержащиеся в указанном альбоме (каталоге)?
В общем задача такая: есть 3 телека, которые включаются по расписанию и выключаются по расписанию.
Примерно через 5 минут после включения нужно запустить скрипт на показ различных фото из указанного каталога в идеале все это совместить с синхронизацией указанного каталога, т.к. как минимум раз в день фото меняются, но основное это показ. Нарыл такой скрипт, подправил пару параметров и вроде работает. Но чтобы фото менялось - скрипт нужно постоянно выполнять. Все бы ничего, я бы поставил его на выполнение каждые там 20 секунд, но в самой программе минимальное врмя 1 минута. Может как-то можно все фото сразу добавить в плейлист, а при повторном запуске скрипта плейлист сбрасывался и добавлялись новые фото.
Скрипт:
var
MediaFolder: THmsScriptMediaItem; nCounter: Integer;
begin
MediaFolder := HmsFindMediaFolder(mfImageAlbumsItemID , '-test');
if (MediaFolder <> nil) and MediaFolder.HasChildItems then begin
nCounter := MediaFolder[mpiTrack];
HmsPlayToDevice(MediaFolder.ChildItems[nCounter], '192.168.26.17', false);
nCounter := nCounter + 1;
if nCounter >= MediaFolder.ChildCount then nCounter := 0;
MediaFolder[mpiTrack] := nCounter;
end;
end.