1 53 db583df9-7aef-4ddc-a4f9-01ed1fa52f8a http://www.aimp.ru/forum/index.php?PHPSESSID=a3c44f7du6s2kg884n62liti70&action=dlattach;topic=22023.0;attach=51695 F38A68A9-EF1A-4862-972C-1E254946A010 4 101.ru 515 1 700 0 701 -1 702 -1 517 578-720,722-1080,482-576,402-480,322-400,202-320,0-200 518 0 512 0 532 1 553 0 522 0 245 db583df9-7aef-4ddc-a4f9-01ed1fa52f8a 93 42793,0069451042 525 43088,609837581 530 int gnTotal=0; // ---------------------------------------------------------------------------- void LoadPlaylist() { string sData, sLink, sName, sImg, sVal, spName, TSINDEXVALUE; THmsScriptMediaItem Item, tRootFolder; int i, iTmp; // Если ссылка плейлиста начинается на http, то скачиваем, если нет - загружаем как локальный файл if (LeftCopy(mpFilePath, 4)=='http') sData = HmsDownloadUrl(mpFilePath, '', true); // Загрузка плейлиста из интернета else sData = HmsStringFromFile(mpFilePath); // Загрузка плейлиста с локального диска sData = HmsUtf8Decode(sData); // Декодируем из UTF-8 кодировки tRootFolder = FolderItem; TStringList TSLINKS = TStringList.Create(); TStringList TSINDEX = TStringList.Create(); // Разрешаем создание дубликатов. Не работает, видимо неправильно делаю. TSLINKS.Duplicates=dupAccept; // Создаём объект для поиска по регулярному выражению (в C++Script символ \ экранирует, поэтому двойной) TRegExpr RE = TRegExpr.Create('#EXTINF:-1,(.*?)[\\r\\n]+(.*?)([\\r\\n]|$)'); try { if (RE.Search(sData)) do { // Запускаем поиск и создаём цикл, пока найдены совпадения sName = Trim(RE.Match(1)); // Получаем значение первой группировки регулярного выражения (первая строка после #EXTINF:) sLink = Trim(RE.Match(2)); // Получаем значение второй группировки регулярного выражения (вся вторая строка) sName = Trim(ReplaceStr(sName,'=','')); // Убираем лишние знаки равенства (ну глючит с ними) sName = Lowercase(sName); // Все в строчные, иначе с папками накладки могут быть if (Pos('pcradio',sLink)) break; // Если ссылка на PC Radio - пропускаем ее // Костыль для ссылок с одинаковым названием if(TSLINKS.IndexOfName(sName) != -1) sName = sName + ' ' + Str(gnTotal); // Заполняем список название станции=сслыка на поток TSLINKS.Values[sName] = sLink; // Берем часть имени до первого пробела для формирования папок spName = ExtractStr(sName, ' ', 0); // Заполняем индексный список имя папки=<n> или имя папки=<n1>+<n2>+<nn> if (TSINDEX.IndexOfName(spName) == -1) TSINDEX.Values[spName] = '<' + Str(gnTotal) + '>'; else TSINDEX.Values[spName] = TSINDEX.Values[spName] + '+<' + Str(gnTotal) + '>'; gnTotal++; // Увеличиваем счетчик созданных ссылок } while (RE.SearchAgain()); // Повторяем цикл, пока найдены следующие совпадения } finally { RE.Free(); } // Освобождаем объект из памяти, что бы ни случилось // Перебираем индексный список и формируем ссылки (с папками или без) for (i = 0; i < TSINDEX.Count; i++) { TSINDEXVALUE = TSINDEX.Values[TSINDEX.Names[i]]; if (Pos('+',TSINDEXVALUE) > 0) { TRegExpr RE1 = TRegExpr.Create('<([\\d]+)>'); try { if (RE1.Search(TSINDEXVALUE)) do { iTmp = StrToInt(Trim(RE1.Match(1))); Item = FolderItem.AddFolder(ExtractStr(TSLINKS.Names[iTmp],' ',0)); CreateItems(Item, TSLINKS.Names[iTmp],TSLINKS.Values[TSLINKS.Names[iTmp]]); } while (RE1.SearchAgain()); } finally { RE1.Free(); } } else { HmsRegExMatch('<([\\d]+)>',TSINDEXVALUE,spName); iTmp = StrToInt(Trim(spName)); CreateItems(tRootFolder, TSLINKS.Names[iTmp],TSLINKS.Values[TSLINKS.Names[iTmp]]); } } TSLINKS.Free(); TSINDEX.Free(); HmsLogMessage(1, mpTitle+': создано ссылок '+IntToStr(gnTotal)); } void CreateItems(THmsScriptMediaItem aFolder, String aName, String aLink) { String sImg, sTmp; THmsScriptMediaItem Item; //Заглушка для иконки sImg = 'http://viscera.ru/music/img/glavnaya.jpg'; // Создаём ссылку Item = HmsCreateMediaItem(aLink, aFolder.ItemID); Item[mpiTitle ] = aName; // Наименование Item[mpiThumbnail] = sImg; // Картинка Item[mpiAlbum] = aName; Item[mpiAuthor ] = 'RadioSlyNet'; Item[mpiAlbumArtist] = 'RadioSlyNet'; //Дублируем настройки подкаста в ссылки if (mpDirectLink) { Item[mpiInternetItem] = '1'; Item[mpiDirectLink] = '1'; // Параметр "Передавать данную ссылку, как ссылку на медиаресурс Item[mpiMimeType] = mpMimeType; // Тип MIME для ссылки } } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // // ---------------------------------------------------------------------------- { FolderItem.DeleteChildItems(); // Удаляем созданные ранее ссылки LoadPlaylist(); // Вызов процедуры загрузки плейлиста и создания из него ссылок } 531 C++Script 43 audio/mpeg 55 https://lh6.googleusercontent.com/sbrc0CQdzG6RSk6Fqw5o5evCkHk09p7Yh1WPzGEJgRSMVBI2k0DVe6HWXLrNawT2-v_vzT48deM=s640-h400-e365 42 4