1
54
8bb9d349-a9b4-4cd1-8941-0156ca5acbe5
AudioAddict Premium Radio
D07257A1-2B10-4D2B-9A4C-9C65C6F5B394
4
AudioAddict Premium Radio
515
0
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
570
0
245
8bb9d349-a9b4-4cd1-8941-0156ca5acbe5
93
43050,4585934028
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 = 'https://media.licdn.com/media/AAEAAQAAAAAAAAWTAAAAJDQ4YzY2MGU4LWE1NWItNGI5My04MmQ1LTkxYWMyZDk2NDc5Zg.png';
// Создаём ссылку
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
55
https://media.licdn.com/media/AAEAAQAAAAAAAAWTAAAAJDQ4YzY2MGU4LWE1NWItNGI5My04MmQ1LTkxYWMyZDk2NDc5Zg.png
-
53
2c146b71-b4a9-4f8e-8aa5-b63ab5180d16
https://api.friezy.ru/playlists/m3u/CR.m3u
8bb9d349-a9b4-4cd1-8941-0156ca5acbe5
515
1
512
2
532
1
700
2
553
0
42
3
4
Classical Radio
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
551
Нет скрипта
522
0
245
2c146b71-b4a9-4f8e-8aa5-b63ab5180d16
93
43050,4589477546
525
43050,4699203588
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 = 'https://media.licdn.com/media/AAEAAQAAAAAAAAWTAAAAJDQ4YzY2MGU4LWE1NWItNGI5My04MmQ1LTkxYWMyZDk2NDc5Zg.png';
// Создаём ссылку
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
-
53
28208876-5e33-47b4-ad5e-d20de3d88001
https://api.friezy.ru/playlists/m3u/DI.m3u
8bb9d349-a9b4-4cd1-8941-0156ca5acbe5
515
1
512
2
532
1
700
2
553
2
42
3
4
DI.FM
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
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 = 'https://media.licdn.com/media/AAEAAQAAAAAAAAWTAAAAJDQ4YzY2MGU4LWE1NWItNGI5My04MmQ1LTkxYWMyZDk2NDc5Zg.png';
// Создаём ссылку
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
522
0
245
28208876-5e33-47b4-ad5e-d20de3d88001
93
43050,4603482176
525
43050,4707433912
-
53
6f337742-0a2b-450e-a44e-bd0ca85ff0c8
https://api.friezy.ru/playlists/m3u/JR.m3u
8bb9d349-a9b4-4cd1-8941-0156ca5acbe5
515
1
512
2
532
1
700
2
553
2
42
3
4
Jazz Radio
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
6f337742-0a2b-450e-a44e-bd0ca85ff0c8
93
43050,4626469097
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 = 'https://media.licdn.com/media/AAEAAQAAAAAAAAWTAAAAJDQ4YzY2MGU4LWE1NWItNGI5My04MmQ1LTkxYWMyZDk2NDc5Zg.png';
// Создаём ссылку
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
525
43050,4708969676
-
53
5e02ba8d-13c6-46dd-a899-4133f7ba6ec8
https://api.friezy.ru/playlists/m3u/RT.m3u
8bb9d349-a9b4-4cd1-8941-0156ca5acbe5
515
1
512
2
532
1
700
2
553
2
42
3
4
Radio Tunes
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
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 = 'https://media.licdn.com/media/AAEAAQAAAAAAAAWTAAAAJDQ4YzY2MGU4LWE1NWItNGI5My04MmQ1LTkxYWMyZDk2NDc5Zg.png';
// Создаём ссылку
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
522
0
245
5e02ba8d-13c6-46dd-a899-4133f7ba6ec8
93
43050,4654665857
525
43050,4709656482
-
53
fc3f495c-0bec-4e8f-85a4-8a6484a286c4
https://api.friezy.ru/playlists/m3u/RR.m3u
8bb9d349-a9b4-4cd1-8941-0156ca5acbe5
515
1
512
2
532
1
700
2
553
2
42
3
4
Rock Radio
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
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 = 'https://media.licdn.com/media/AAEAAQAAAAAAAAWTAAAAJDQ4YzY2MGU4LWE1NWItNGI5My04MmQ1LTkxYWMyZDk2NDc5Zg.png';
// Создаём ссылку
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
522
0
245
fc3f495c-0bec-4e8f-85a4-8a6484a286c4
93
43050,4660671759
525
43050,4710076273