3
51
fd4a77bd-f712-4739-a7e5-d9821015e4a9
IPTV playlists
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
55
http://www.city-t.ru/sites/default/files/IPTV-logo.jpg
4
IPTV playlists
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
530
///////////////////////////////////////////////////////////////////////////////
// Глобальные переменные
int gnTotal = 0 ; // Счетчик созданных ссылок
string gsPlaylist = ''; // Глобальная переменная для создания плейлиста (по ключу --m3u8="D:\myplaylist.m3u8")
///////////////////////////////////////////////////////////////////////////////
// Создание ссылки на канал с проверкой, не создана ли уже с таким именем
void CreateLink(string sLink, string sName, string sGrp) {
THmsScriptMediaItem Item, Folder = FolderItem; // Folder - текущая папка
sName = Trim(sName);
// Если указана группа - находим сначала её и делаем текущей папкой
if (sGrp!='') Folder = Folder.FindItemByProperty(mpiTitle, sGrp);
// Пытаемся найти элемент по наименованию в папке
if (sGrp!='')
Item = FolderItem.FindItemByProperty(mpiTitle, sGrp).FindItemByProperty(mpiTitle, sName);
else
Item = FolderItem.FindItemByProperty(mpiTitle, sName);
// Если не найден - создаём
if ((Item == nil) || (Item == null)) Item = HmsCreateMediaItem(sLink, FolderItem.ItemID, sGrp);
// Обновляем всю информацию
Item[mpiFilePath ] = sLink;
Item[mpiTitle ] = sName;
Item[mpiThumbnail ] = 'http://wonky.lostcut.net/tvim/'+HmsHttpEncode(sName)+'.png';
Item[mpiTimeLength ] = '11:40:00.000'; // длинная длительность
Item[mpiInternetItem ] = '1';
Item[mpiDVDAspectRatio] = '16:9';
Item[4001 ] = ''; // Снимаем пометку удаления
gnTotal++;
}
///////////////////////////////////////////////////////////////////////////////
// Рекурсивное удаление помеченных на удаление ссылок или пометка на удаление всех ссылок
void DeleteOldLinks(THmsScriptMediaItem CurrentFolder, bool bOnlyMark, bool bRoot = true) {
int q; THmsScriptMediaItem Item;
// Проверяем пометку для удаления у всех вложенных элементов (начиная с последней)
for(q=CurrentFolder.ChildCount-1; q>=0; q--) {
Item = CurrentFolder.ChildItems[q]; // Получаем очередную ссылку на канал/папку
if (Item.IsFolder ) DeleteOldLinks(Item, bOnlyMark, false); // Если это папка - удаляем ссылки в ней
else if (bOnlyMark && !bRoot) Item[4001] = '1'; // Иначе, если эта функция вызвана только пометить - помечаем
else if (Item[4001] == '1' ) Item.Delete(); // Иначе, если эта ссылка помечена на удаление - конец ей
// Если это реальное удаление ссылок и есть папка, в которой нет ссылок
if (!bOnlyMark && Item.IsFolder && (Item.ChildCount==0))
Item.Delete(); // то удаляем такую пустую папку
}
}
///////////////////////////////////////////////////////////////////////////////
// Создание файла m3u8 плейлиста (рекурсивно, начиная с укзанной папки)
void CreateM3U8_playlist(THmsScriptMediaItem Folder, string sFile, bool bContinue = false) {
string sGrp, sName, sLink, sImg, sServer, sVal; int i; THmsScriptMediaItem Item;
HmsRegExMatch('--server="(.*?)"', mpPodcastParameters, sServer);
// Цикл обхода всех элементов в папке Folder
for (i=0; i<Folder.ChildCount; i++) {
Item = Folder.ChildItems[i];
// Если элемент - папка, то запускаем формирование плейлиста для этой папки
if (Item.IsFolder) {
CreateM3U8_playlist(Item, "", true); // Да, это она - "Рекурсия"
continue;
}
if (bContinue) sGrp = Folder.Properties[mpiTitle];
else sGrp = "";
sName = Item.Properties[mpiTitle ];
sImg = Item.Properties[mpiThumbnail];
gsPlaylist += Format('#EXTINF:-1 group-title="%s" tvg-logo="%s" tvg-name="%.3d",%s\r\n', [sGrp, sImg, i+1, sName]);
gsPlaylist += 'http://'+sServer+'/MediaServer/VideoItems/'+Item.ItemID+'.mpg\r\n';
}
if (!bContinue) {
// Попытка записать сформированые данные в файл
try { HmsStringToFile('#EXTM3U\r\n'+HmsUtf8Encode(gsPlaylist), sFile); }
except { HmsLogMessage(1, "Не удалось записать файл "+sFile); }
}
}
///////////////////////////////////////////////////////////////////////////////
// Загрузка плейлиста и создание ссылок из него -------------------------------
void LoadPlaylist(string sFile) {
string sData, sLink, sName, sImg, sGrp, sReplaceWhat='', sReplaceWith='';
THmsScriptMediaItem Item; bool bGroupInName, bGroupHD;
// Проверяем, если ссылка на плейлист начинается на http
if (HmsRegExMatch('^http', sFile, ''))
sData = HmsDownloadUrl(sFile, '', true); // Загружаем из интернета
else
sData = HmsStringFromFile(sFile); // Загружаем файл с диска
sData = HmsUtf8Decode(sData); // Перекодируем из UTF-8
// Если указаны параметры автозамены содержимого, делаем её
HmsRegExMatch('--replaceWhat="(.*?)"', mpPodcastParameters, sReplaceWhat);
HmsRegExMatch('--replaceWith="(.*?)"', mpPodcastParameters, sReplaceWith);
if (sReplaceWhat!='') sData = ReplaceStr(sData, sReplaceWhat, sReplaceWith);
bGroupInName = Pos('--groupInName', mpPodcastParameters)>0;
bGroupHD = Pos('--groupHD' , mpPodcastParameters)>0;
// Разбор содержимого плейлиста и создание ссылок на каналы
TRegExpr RE = TRegExpr.Create('#EXTINF:(.*?)$.*?^([^#].+?)$', PCRE_SINGLELINE || PCRE_MULTILINE);
try {
if (RE.Search(sData)) do {
sName = RE.Match(1);
sLink = RE.Match(2);
sGrp = '';
if (!HmsRegExMatch('group-title="(.+?)"', sName, sGrp) && bGroupInName)
HmsRegExMatch('.*\\((.*?)\\)', sName, sGrp);
if (sGrp!='') sName = ReplaceStr(sName, '('+sGrp+')', '');
if (!HmsRegExMatch('tvg-logo="(http.*?)"', sName, sImg))
sImg = 'http://wonky.lostcut.net/tvim/'+HmsHttpEncode(sName)+'.png';
HmsRegExMatch('.*,(.*)', sName, sName);
sName = Trim(sName);
CreateLink(sLink, sName, sGrp);
if (bGroupHD && HmsRegExMatch('\\b(HD)\\b', sName, sGrp)) {
CreateLink(sLink, sName, sGrp);
}
} while (RE.SearchAgain());
} finally { RE.Free(); }
HmsLogMessage(1, 'Всего каналов: '+IntToStr(gnTotal));
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
///////////////////////////////////////////////////////////////////////////////
{
// Помечаем все созданные ранее ссылки для удаления
DeleteOldLinks(FolderItem, true);
// Загружаем плейлист с каналами, где у обновлённых ссылок снимаем пометку на удаление
LoadPlaylist(mpFilePath);
// Удаляем все оставшиеся помеченные для удаления ссылки
DeleteOldLinks(FolderItem, false);
// Если в параметрах указан файл m3u8 - то запускаем функцию его создания
if (HmsRegExMatch('--m3u8="([^"]+)"', mpPodcastParameters, mpFilePath))
CreateM3U8_playlist(FolderItem, mpFilePath);
}
531
C++Script
532
1
553
1
522
0
570
0
245
fd4a77bd-f712-4739-a7e5-d9821015e4a9
93
42510,942361956
41
В папку добавить подкаст, где в поле "Ссылка" указать путь до плейлиста m3u8 и задать любое наименование.
550
///////////////////////////////////////////////////////////////////////////////
// Глобальные переменные
string csCommandLine = 'cmd://"%s" --no-crashdump --play-and-exit --language en -Idummy --demuxdump-file="<OUTPUT FILE>" vlc://pause:4 --access=p2p_access "%s" :demux=dump';
///////////////////////////////////////////////////////////////////////////////
// Получение пути AceStream плеера --------------------------------------------
string GetTsPlayerPath() {
return ExtractShortPathName(IncludeTrailingBackslash(RegistryRead('Software\\AceStream\\InstallDir')))+'Player\\ace_player.exe';
}
///////////////////////////////////////////////////////////////////////////////
// Формирование ссылки на медиа поток -----------------------------------------
void GetTTVLink() {
string sData, sLink, sID = '';
if (HmsRegExMatch('acestream://(.*)', mpFilePath, sID)) {
HmsLogMessage(1, mpTitle+': Открываем по ID в ссылке');
} else if (HmsRegExMatch('/pid/.*?/stream.mp4', mpFilePath, '')) {
//MediaResourceLink = mpFilePath;
} else if (HmsRegExMatch('^(.*acelive)$', mpFilePath, sID)) {
HmsLogMessage(1, mpTitle+': Открываем по файлу .acelive');
} else if (HmsRegExMatch('\\.m3u8?', mpFilePath, '')) {
mpFilePath = ' '+Trim(mpFilePath);
} else {
mpFilePath = ' '+Trim(mpFilePath);
//sData = HmsUtf8Decode(HmsDownloadURL(mpFilePath, '', true));
//
//if (HmsRegExMatch('loadTorrent\\("(.*?)"', sData, sLink)) {
// sID = HmsTempDirectory() + '\\' + mpTitle + '.acelive';
// HmsDownloadURLToFile(sLink, sID);
// HmsLogMessage(1, mpTitle+': Открываем по торрент файлу');
//
//} else if (HmsRegExMatch('this.loadPlayer\\("(.*?)"', sData, sID)) {
// HmsLogMessage(1, mpTitle+': Открываем по ID в загруженной странице');
//
//} else {
// //
//}
}
if (sID!='') MediaResourceLink = Format(csCommandLine, [GetTsPlayerPath(), sID]);
else MediaResourceLink = mpFilePath;
}
///////////////////////////////////////////////////////////////////////////////
// Г Л А В Н А Я П Р О Ц Е Д У Р А //
///////////////////////////////////////////////////////////////////////////////
{
if (!PodcastItem.IsFolder) {
GetTTVLink();
}
}
551
C++Script
50
Фильмы (основной) + V15000-AC3
-
53
627b4df3-052f-4d32-b165-bb2666979550
http://pomoyka.win/trash/ttv-list/ttv.all.tag.iproxy.m3u
fd4a77bd-f712-4739-a7e5-d9821015e4a9
515
2
512
2
532
2
700
2
553
2
4
!.TTV.all.iproxy
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
627b4df3-052f-4d32-b165-bb2666979550
93
42966,3487898148
525
43520,336525706
42
3
-
53
f561a88e-d9e8-4e02-bba7-1a34c14a891a
http://pomoyka.win/trash/ttv-list/ttv.all.player.m3u
fd4a77bd-f712-4739-a7e5-d9821015e4a9
515
2
512
2
532
2
700
2
553
2
4
!.TTV-VIP playlist (real)
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
f561a88e-d9e8-4e02-bba7-1a34c14a891a
93
42510,9512025463
525
43268,6525235185
527
--groupInName --groupHD
43
video/mpeg
50
AceStream (ACE-FFMPEG) + V15000-AC3
HMSMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HmsMPEG
Hmsmpeg.exe
http://www.ffmpeg.org/
hmsMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HMSMPEG
PascalScript
Транскодирование для TorrentStream, AceStream медиа-ресурсов
3
cfgTranscodingVideoMimeType
PascalScript
1
const
csVlcParams = '-Idummy --language en vlc://pause:2 --demuxdump-file="%s" --access=p2p_access "%s" :demux=dump';// --extraintf=logger --verbose=2 --logfile=D:\vlc.log --logmode=text --file-logging';
var
sFileType, sInputFileName, sMediaResourceLink, sReadPipeName, sWritePipeName, sTranscodingParams: string;
begin
TranscodingResult := False;
sInputFileName := InputFileName;
if sInputFileName = '-' then begin
sMediaResourceLink := HmsGetItemProperty(mpiMediaResourceLink);
if Pos('--demuxdump-file', sMediaResourceLink) > 0 then begin
if not HmsRegExMatch('--access=p2p_access "(.*?)"', sMediaResourceLink, sInputFileName) then
HmsRegExMatch('"(.*?\.torrent)"', sMediaResourceLink, sInputFileName)
end
end;
if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin
if HmsTranscodingExecute('ACEPLAYER', Format(csVlcParams, [sWritePipeName, sInputFileName]), False) then begin
if mpFileType <> '' then
sFileType := '-f "' + mpFileType + '" '
else
sFileType := '';
mpInternetItem := False;
sTranscodingParams := Format('-i "<INPUT FILE>" -f dvd -vcodec mpeg2video -vb 15000000 -acodec ac3 -ab %d -ar 48000 -threads 4', [cfgTranscodingAudioBitrate]);
sTranscodingParams := ReplaceStr(sTranscodingParams, '<HMSMPEG> ', sFileType);
sTranscodingParams := ReplaceStr(sTranscodingParams, '<INPUT FILE>', sReadPipeName);
sTranscodingParams := sTranscodingParams + ' "' + OutputFileName + '"';
TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True)
end
end
end.
PascalScript
AceStream (ACE-FFMPEG) + V15000-AC3
-1
40
ffd1f246-3e71-49f6-b08b-b7611e2f7b09
-
53
687ae610-680e-4856-88b9-ecd17b5c1cc3
http://asplaylist.net/n/5fP17bzNqQ/4100/tv.m3u
fd4a77bd-f712-4739-a7e5-d9821015e4a9
515
2
512
2
532
2
700
2
553
2
4
Noxbit Proxy
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
687ae610-680e-4856-88b9-ecd17b5c1cc3
93
42966,3325105556
525
43494,3410716204
42
3
-
53
b5074b8b-bc9c-4052-ad0a-5cabdfe1afd5
http://iptv.slynet.tv/KinodromSlyNet.m3u
fd4a77bd-f712-4739-a7e5-d9821015e4a9
515
2
512
2
532
2
700
2
553
2
4
KinodromSlyNet IPTV
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
b5074b8b-bc9c-4052-ad0a-5cabdfe1afd5
93
42970,3384379745
525
43046,5543855208
HMSMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HmsMPEG
Hmsmpeg.exe
http://www.ffmpeg.org/
hmsMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HMSMPEG
Нет скрипта
Транскодирование с перекодированием видео
3
begin
if SameText(cfgTranscodingFileFormat, 'MPEG (DVD)') then
FileExt := 'mpg'
else if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then
FileExt := 'ts'
else if Pos('ASF', cfgTranscodingFileFormat) > 0 then
FileExt := 'wmv'
else if SameText(cfgTranscodingFileFormat, 'MP4') then
FileExt := 'mp4'
else if SameText(cfgTranscodingFileFormat, 'MPEG1') then
FileExt := 'mpeg'
else
FileExt := '';
if FileExt <> '' then
MimeType := HmsGetMimeType(FileExt)
else
MimeType := ''
end.
PascalScript
0
TranscodingParams := Format('-i "<INPUT FILE>" -f dvd -vcodec mpeg2video -vb 15000000 -acodec ac3 -ab %d -ar 48000 -threads 4', [cfgTranscodingAudioBitrate])
PascalScript
Фильмы (основной) + V15000-AC3
-1
16
4b062482-80ad-4734-b503-b53a8bf0dc0c