Домашний медиа-сервер (UPnP, DLNA, HTTP) Домашний медиа-сервер (UPnP, DLNA, HTTP) Домашний медиа-сервер (UPnP, DLNA, HTTP)
Главная Решения пользователей программы "Домашний медиа-сервер (UPnP, DLNA, HTTP)"
 
Текущее время: Чт ноя 21, 2019 9:52 am

Часовой пояс: UTC+03:00




Начать новую тему  Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
СообщениеДобавлено: Пт окт 12, 2012 5:27 pm 
Не в сети

Зарегистрирован: Вт сен 16, 2008 7:30 pm
Сообщения: 2767
Этот пример демонстрирует возможность создавать динамические папки и копировать скрипт в свойства дочерних элементов для создания последующих уровней навигации. Может быть использован для папки Коллекции (плейлисты) или Интернет-телевидение (радио)

Папка "Интернет телевидение" - нажать кнопку "Добавить папку"
Заголовок: Динамические папки
Тип: Динамическая (скрипт)
Нажать кнопку Скрипт

Выражение
Код:
const
  mpiFolderType         = 200; 
  mpiDynamicScript      = 500;
  mpiDynamicSyntaxType  = 501; 

function ItemLevel(aItem: THmsScriptMediaItem): Integer;
begin
  Result := -1;
  while aItem <> nil do begin
    aItem := aItem.ItemParent;
    Inc(Result)
  end   
end;

var
  ChildFolder: THmsScriptMediaItem; 
  i: Integer;
begin
//  HmsLogMessage(mtiInfo, FolderItem.Properties[mpiTitle]);
  if ItemLevel(FolderItem) < 10 then begin
    for i := 1 to 5 do begin
      ChildFolder := FolderItem.AddFolder(FolderItem.Properties[mpiTitle] + '_' + IntToStr(i));
      if ChildFolder <> nil then begin   
        ChildFolder.Properties[mpiFolderType] := FolderItem.Properties[mpiFolderType];       
        ChildFolder.Properties[mpiDynamicScript] := FolderItem.Properties[mpiDynamicScript];
        ChildFolder.Properties[mpiDynamicSyntaxType] := FolderItem.Properties[mpiDynamicSyntaxType];       
      end
    end   
  end else 
    for i := 1 to 5 do         
      HmsCreateMediaItem(FolderItem.Properties[mpiTitle] + '_Item_' + IntToStr(i), FolderItem.ItemID);
end.


Ok - Ok

Вложение:
dynfolders.jpg
dynfolders.jpg [ 169.54 КБ | 10018 просмотров ]


Вернуться к началу
Показать сообщения за:  Поле сортировки  
Начать новую тему  Ответить на тему  [ 1 сообщение ] 

Часовой пояс: UTC+03:00


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 5 гостей


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Limited
Русская поддержка phpBB