3 32 fec2e7a9caea3a791692f6eaf077550b dm800 085C4743-A4DC-43B3-AB29-957BB759C6DF 200 1 500 { string sScript = // Скрипт динамической папки конкретного канала '{\r\n'+ ' string sLink = HmsDownloadURL(mpFilePath); // получаем ссылку на поток\r\n'+ ' THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, FolderItem.ItemID); // Создаём ссылку\r\n'+ ' Item[mpiTitle] = mpTitle; // присваиваем название канала как у папки\r\n'+ ' HmsDownloadURL("http://dm800/web/zap?sRef={ref}"); // переключаем на канал\r\n'+ '}'; FolderItem.DeleteChildItems(); string xmlText = HmsDownloadURL('http://dm800/web/getallservices'); // Загружаем инфу о всех категориях и каналах //string xmlText = HmsStringFromFile('D:\\allservices.xml'); // local test TXMLDocument XML = TXMLDocument.Create(); XML.LoadFromString(xmlText); for (int nCat=0; nCat < XML.Root.Count; nCat++) { TXMLItem CATEGORY = XML.Root[nCat]; TXMLItem ChLIST = CATEGORY.Find('e2servicelist'); if (ChLIST == nil) continue; // Если категория не содержит каналов, пропускаем string sRefCategory = Trim(CATEGORY.ChildValues['e2servicereference']); THmsScriptMediaItem FolderCat = FolderItem.AddFolder('http://dm800/web/getservices?sRef='+HmsHttpEncode(sRefCategory), false, 32); FolderCat[mpiTitle] = CATEGORY.ChildValues['e2servicename']; // Цикл создания списка каналов в папке категории for (int nChan=0; nChan < ChLIST.Count; nChan++) { TXMLItem CHANNEL = ChLIST.Items[nChan]; string sRef = Trim(CHANNEL.ChildValues['e2servicereference']); THmsScriptMediaItem Item = FolderCat.AddFolder('http://dm800/web/stream.m3u?ref='+HmsHttpEncode(sRef), false, 32); Item[mpiTitle] = CHANNEL.ChildValues['e2servicename']; // Название канала Item[200] = 1; // mpiFolderType 1 - "динамическая (скрипт)" Item[500] = ReplaceStr(sScript, '{ref}', sRef); // mpiDynamicScript Item[501] = 'C++Script'; // mpiDynamicSyntaxType } } XML.Free(); } 501 C++Script 245 fec2e7a9caea3a791692f6eaf077550b 93 43372,9993618171