3
51
e94518a9-ea50-46a3-94f0-25f90b4e115a
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
4
Torrent TV (1ttv.org)
-1
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
1
522
0
-1
-1
570
2
93
41291,401043287
550
const
//csCommandLine1 = 'cmd://"%s" --udp-caching=1500 --no-crashdump --play-and-exit --language en -Idummy --demuxdump-file="<OUTPUT FILE>" --access=p2p_access "%s" :demux=dump';
csCommandLine1 = 'cmd://"%s" --no-crashdump --play-and-exit --language en -Idummy --demuxdump-file="<OUTPUT FILE>" vlc://pause:2 --access=p2p_access "%s" :demux=dump';
csCommandLine2 = 'cmd://"%s" --no-crashdump --play-and-exit --language en --no-auto-preparse --no-playlist-autostart --extraintf=dummy -Iluaintf --lua-intf=hmsts --lua-config "hmsts={torrentfile='#39'%s'#39', torrentsubfile='#39'%s'#39'}" --demuxdump-file="<OUTPUT FILE>" --access=p2p_access "%s"';
csDivRegPattern = '<div\\s+class="reg">(.*?)<\\/div>';
// ---------------------------------------------------------------------------------------
// Получение пути TorrentStream плеера
function GetTsPlayerPath: string;
var
sResult: string;
begin
sResult := IncludeTrailingBackslash(RegistryRead('Software\AceStream\InstallDir')) + 'player\ace_player.exe';
Result := ExtractShortPathName(sResult);
if Result = '' then Result := sResult
end;
var
bFileExists: Boolean; iFlags: Integer;
sID, sTmpFile, sWebPage, sHeaders, sAnswerHeaders, sToken, sCookie: string;
mail, pass, sPage: string;
begin
HmsLogMessage(mtiInfo, 'Torrent-TV: Запуск скрипта получения ссылки на ресурс mpFilePath=' + mpFilePath );
Randomize;
sHeaders := mpFilePath+#10#13+
'Accept-Encoding: gzip, deflate'+#10#13+
'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.130 Safari/537.36'+#10#13;
iFlags := StrToInt('$00200000');
// INTERNET_FLAG_NO_AUTO_REDIRECT := $00200000;
// INTERNET_FLAG_RELOAD := $80000000;
// INTERNET_FLAG_NO_COOKIES := $00080000;
sTmpFile := HmsTempDirectory + '\' + Copy(mpTitle, 1, 20) + '.acelive';
if FileExists(sTmpFile) then begin
MediaResourceLink := Format(csCommandLine1, [GetTsPlayerPath, sTmpFile]);
end else begin
if mpPodcastAuthorizationStream and (mpPodcastAuthorizationUserName<>"") then begin
// Открываем корневую страницу сайта
sWebPage := HmsRemoveLineBreaks(HmsUtf8Decode(HmsSendRequestEx('1ttv.org', '', 'GET', 'application/x-www-form-urlencoded', sHeaders, '',80, iFlags, sAnswerHeaders, true)));
if not HmsRegExMatch('<div\s+class="reg"(.*?)<\/div>', sWebPage, sToken) then Begin
HmsLogMessage(mtiError, 'Torrent-TV: На корневой странице не найден раздел авторизации. Сайт не доступен или его структура изменена владельцами');
exit;
end;
if pos('auth.php',sToken)>0 Then begin
mail := HmsHttpEncode( HmsUtf8Encode(mpPodcastAuthorizationUserName)); // логин
pass := HmsHttpEncode( HmsUtf8Encode(mpPodcastAuthorizationPassword)); // пароль
HmsLogMessage(mtiInfo, 'Torrent-TV: Авторизация под пользователем ' + mpPodcastAuthorizationUserName );
sWebPage := HmsSendRequestEx('1ttv.org', '/auth.php', 'POST', 'application/x-www-form-urlencoded', sHeaders, 'email='+mail+'&password='+pass+'&remember=on&enter=%D0%92%D0%BE%D0%B9%D1%82%D0%B8',80, iFlags, sAnswerHeaders, true);;
If Not HmsRegExMatch('Location:', sAnswerHeaders, '') Then begin
HmsLogMessage(mtiError, 'Torrent-TV: Ошибка авторизации');
exit;
end;
end;
//if HmsRegExMatch('(PHPSESSID=.*?);', sAnswerHeaders, sCookie) then
// sHeaders := sHeaders+'Cookie: '+sCookie+#10#13;
//if HmsRegExMatch('(torrenttv_remember=.*?);', sAnswerHeaders, sCookie) then
// sHeaders := sHeaders+'Cookie: '+sCookie+#10#13;
end;
HmsRegExMatch('//.*?(/.*)', mpFilePath, sPage);
sWebPage := HmsSendRequestEx('1ttv.org', sPage, 'GET', 'application/x-www-form-urlencoded', sHeaders, '', 80, iFlags, sAnswerHeaders, true);
sWebPage := HmsUtf8Decode(sWebPage);
sWebPage := HmsRemoveLineBreaks(sWebPage);
if pos('Location: /404.php', sAnswerHeaders)>0 then begin
HmsLogMessage(mtiError, 'Torrent-TV: Медиа-ресурс не найден. Попробуйте обновить подкаст ');
end else if HmsRegExMatch('this.loadPlayer..(.*?)",', sWebPage, sID) then begin
HmsLogMessage(mtiInfo, 'Torrent-TV: Открываем по ID ' + sID );
MediaResourceLink := Format(csCommandLine1, [GetTsPlayerPath, sID]);
end else if HmsRegExMatch('loadTorrent..(.*?)",' , sWebPage, sID) then begin
HmsLogMessage(mtiInfo, 'Torrent-TV: Открываем по торренту ' + mpTitle );
bFileExists := HmsDownloadURLToFile(sID, sTmpFile);
if bFileExists then
MediaResourceLink := Format(csCommandLine1, [GetTsPlayerPath, sTmpFile])
else begin
HmsLogMessage(mtiError, 'Torrent-TV: Ошибка при загрузке торрента "' + mpFilePath + '"');
exit;
end;
end else begin
HmsLogMessage(mtiError, 'Torrent-TV: Ошибка при загрузке c сайта 1ttv.org');
end;
end;
HmsLogMessage(mtiInfo, 'Torrent-TV: MediaResourceLink="' + MediaResourceLink + '"');
end.
551
PascalScript
530
const
PCRE_CASELESS = $00000001;
PCRE_DOTALL = $00000004;
PCRE_SINGLELINE = PCRE_CASELESS + PCRE_DOTALL;
var
sWebPage, sNextPage, sAnswerHeaders, sToken, sHeaders, sPage, mail, pass, sAnswHeaders: string;
ItemsRegExpr: TRegExpr; i, iFlags: Integer; gsNameArray: string;
///////////////////////////////////////////////////////////////////////////////
Procedure DeleteOldLinks();
Var
i: Integer; Item: THmsScriptMediaItem;
Begin
For i := FolderItem.ChildCount-1 DownTo 0 Do Begin
Item := FolderItem.ChildItems[i];
If (Item[4001] = '1') and Item.IsLink Then Item.Delete;
End;
End;
///////////////////////////////////////////////////////////////////////////////
procedure Kanal(const aItemDescr: string);
var
sLink, sName, sImg, sBase: string;
Item: THmsScriptMediaItem;
begin
HmsRegExMatch('<a[^>]+href="(.*?)"' , aItemDescr, sLink);
HmsRegExMatch('<strong>(.*?)</strong>', aItemDescr, sName);
HmsRegExMatch('<img src="(.*?)"' , aItemDescr, sImg );
sBase := 'http://1ttv.org/'; // База, для коротких (относительных) ссылок
sName := HmsHtmlToText(sName); // Если в названиях будут теги html - избавляемся от них
sLink := HmsExpandLink(sLink, sBase); // Дополняем, если нужно, до полной ссылки
sImg := HmsExpandLink(sImg , sBase); // Дополняем, если нужно, до полной ссылки
// Пытаемся найти элемент по наименованию
Item := FolderItem.FindItemByProperty(mpiTitle, sName);
// Если не найден - создаём
if Item = nil then Item := HmsCreateMediaItem(sLink, FolderItem.ItemID);
// Обновляем всю информацию
Item[mpiFilePath ] := sLink;
Item[mpiTitle ] := sName;
Item[mpiThumbnail ] := sImg;
Item[mpiTimeLength ] := '11:40:00.000'; // длинная длительность
Item[mpiInternetItem ] := '1';
Item[mpiDVDAspectRatio] := '16:9';
Item[4001 ] := ''; // Снимаем пометку удаления
end;
///////////////////////////////////////////////////////////////////////////////
// ========================================================================= //
begin
HmsLogMessage(mtiInfo, 'Torrent-TV: Запуск скрипта обновления списка ресурсов ' + mpTitle);
// Помечаем все созданные ранее ссылки для удаления
For i := 0 to FolderItem.ChildCount-1 Do FolderItem.ChildItems[i].Properties[4001] := '1';
iFlags := StrToInt('$00200000');
// INTERNET_FLAG_NO_AUTO_REDIRECT := $00200000;
// INTERNET_FLAG_RELOAD := $80000000;
// INTERNET_FLAG_NO_COOKIES := $00080000;
sHeaders := 'http://1ttv.org'+#10#13+
'Origin: http://1ttv.org'+#10#13+
'Accept-Encoding: gzip, deflate'+#10#13+
'User-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.130 Safari/537.36'+#10#13;
// Открываем страницу сайта
//if mpTitle='Torrent TV (1ttv.org)' then sWebPage := HmsDownloadURL('http://1ttv.org/exit.php', sHeaders, True);
HmsRegExMatch('//.*?(/.*)', mpFilePath, sPage);
//sWebPage := HmsDownloadURL(mpFilePath, sHeaders, True);
sWebPage := HmsRemoveLineBreaks(HmsUtf8Decode(HmsSendRequestEx('1ttv.org', sPage, 'GET', 'application/x-www-form-urlencoded', sHeaders, '',80, iFlags, sAnswerHeaders, true)));
if not HmsRegExMatch('<div\s+class="reg"(.*?)<\/div>', sWebPage, sToken) then Begin
HmsLogMessage(mtiError, 'Torrent-TV: На странице не найден раздел авторизации. Сайт не доступен или его структура изменена владельцами');
exit;
end;
if (pos('auth.php',sToken)>0) and mpPodcastAuthorizationPages and (mpPodcastAuthorizationUserName<>"") then begin
mail := HmsHttpEncode( HmsUtf8Encode(mpPodcastAuthorizationUserName)); // логин
pass := HmsHttpEncode( HmsUtf8Encode(mpPodcastAuthorizationPassword)); // пароль
HmsLogMessage(mtiInfo, 'Torrent-TV: Авторизация под пользователем ' + mpPodcastAuthorizationUserName );
sWebPage := HmsRemoveLineBreaks(HmsUtf8Decode(HmsSendRequestEx('1ttv.org', '/auth.php', 'POST', 'application/x-www-form-urlencoded', sHeaders, 'email='+mail+'&password='+pass+'&remember=on&enter=%D0%92%D0%BE%D0%B9%D1%82%D0%B8',80, iFlags, sAnswerHeaders, true)));;
//if (not HmsRegExMatch('<div\s+class="reg"(.*?)<\/div>', sWebPage, sToken)) or (pos('auth.php',sToken)>0) then Begin
if pos('Location: http://1ttv.org/cabinet.php',sAnswerHeaders)=0 then begin
HmsLogMessage(mtiError, 'Torrent-TV: Ошибка авторизации. Проверьте правильность указания логина/пароля в настройках подкаста');
exit;
end;
sWebPage := HmsRemoveLineBreaks(HmsUtf8Decode(HmsSendRequestEx('1ttv.org', sPage, 'GET', 'application/x-www-form-urlencoded', sHeaders, '',80, iFlags, sAnswerHeaders, true)));
if not HmsRegExMatch('<div\s+class="reg"(.*?)<\/div>', sWebPage, sToken) then begin
HmsLogMessage(mtiError, 'Torrent-TV: На странице не найден раздел авторизации. Сайт не доступен или его структура изменена владельцами');
exit;
end else if pos('auth.php',sToken)>0 then begin
HmsLogMessage(mtiError, 'Torrent-TV: Попытка авторизации не удалась');
exit;
end;
end;
//if (Pos('film_selector.php', sWebPage)>1) then
// for i := 2 to 20 do sWebPage := sWebPage+HmsDownloadURL(mpFilePath+'&page='+IntToStr(i), sHeaders, True);
i:=1; sNextPage:= sWebPage;
While pos('>туда</a>',sNextPage)>0 Do Begin
Inc(i);
sNextPage := HmsRemoveLineBreaks(HmsUtf8Decode(HmsDownloadURL(mpFilePath+'&page='+IntToStr(i), sHeaders, True)));
sWebPage := sWebPage+sNextPage;
if (mpTitle='Последние фильмы') and (i>4) then Break;
end;
ItemsRegExpr := TRegExpr.Create('best-channels-content(.*?)</h5>', PCRE_SINGLELINE); // поиск блоков, который будет между скобок
try
if ItemsRegExpr.Search(sWebPage) then repeat // искать в исх.строке совпадение и повторять
Kanal(ItemsRegExpr.Match) // запускать процедуру получения свойств фильма каждый раз как найден объект
until not ItemsRegExpr.SearchAgain;
finally
ItemsRegExpr.Free;
end;
DeleteOldLinks(); // Удаляем ссылки, имён которых мы не обновляли (устаревшие)
end.
531
PascalScript
571
const
PCRE_CASELESS = $00000001;
PCRE_DOTALL = $00000004;
PCRE_SINGLELINE = PCRE_CASELESS + PCRE_DOTALL;
reg1 = '(\d\d\d)';
reg2 = '(\d\d)';
reg3 = '(\d)';
cifr = ['0','1','2','3','4','5','6','7','8','9'];
var
s,s1,s2,ini, file,kat,id,pap,pap1,mes,god,adres: string;
j,i,aPercent,e,grp:Integer;
ItemsRegExpr,ItemsRegExpr1,ItemsRegExpr2: TRegExpr;
sWebPage_,sWebPage_1,sWebPage,sWebPage1,sWebPage2,total,total1: string;
Item: THmsScriptMediaItem;
myYear, myMonth, myDay : Word;
k:byte;
kol,adr,n,adr_m,adr_f: string;
kol_i,ka:integer;
dlit,nazv,thum:string;
procedure kanal(const aItemDescr2: string);
begin
HmsRegExMatch('"(.*?)"', aItemDescr2, adr);
HmsRegExMatch('">(.*?)</a>', aItemDescr2, nazv);
// HmsRegExMatch('<a href="(.*?)"', aItemDescr2, thum);
adr:='http://1ttv.org/'+adr;
Item := HmsCreateMediaItem(adr, FolderItem.ItemID,kat );
Item.Properties[mpiTitle] := nazv ;
Item.Properties[mpiThumbnail ] := thum;
end;
procedure kategor(const aItemDescr: string); // поцедура выделение свойств фильмов aItemDescr -строка -результат поиска ItemsRegExpr1.Match между <li> и </li>
var // обьявление в процедуре
Item: THmsScriptMediaItem; // обьект Item из класса THmsScriptMediaItem -пункт в перечне фильмов
// строка
begin // начало процедуры
HmsRegExMatch('style="color: #FFF;">(.*?)</a>', aItemDescr, kat);
ItemsRegExpr2 := TRegExpr.Create('<a href=(.*?)</li>',PCRE_SINGLELINE);
try
if ItemsRegExpr2.Search(aItemDescr) then repeat //искать в исх.строке объект и повторять
kanal(ItemsRegExpr2.Match) //запускать процедуру получения свойств фильма каждый раз как найден объект
until not ItemsRegExpr2.SearchAgain;
finally
ItemsRegExpr2.Free;
end;
end;
begin
//j:=0;
// FolderItem.DeleteChildItems;
// mpfilepath:='http://1ttv.org/category.php?cat=8';
mpfilepath:='http://1ttv.org';
sWebPage1 := HmsDownloadURL(mpfilepath);
sWebPage1 :=HmsUtf8Decode (sWebPage1);
sWebPage1 :=HmsRemoveLineBreaks(sWebPage1);
//
ItemsRegExpr1 := TRegExpr.Create('category.php(.*?)</li><li>',PCRE_SINGLELINE); //создать объект с содерж. между кавычек
try
if ItemsRegExpr1.Search(sWebPage1) then repeat //искать в исх.строке объект и повторять
kategor(ItemsRegExpr1.Match) //запускать процедуру получения свойств фильма каждый раз как найден объект
until not ItemsRegExpr1.SearchAgain;
finally
ItemsRegExpr1.Free;
end ;
HmsHideInformation ;
end.
572
PascalScript
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
-1
245
e94518a9-ea50-46a3-94f0-25f90b4e115a
95
3
215
mpTitle
55
http://1ttv.org/images/logo.png
43
video/mpeg
50
AceStream (ACEPLAYER - FFMPEG)
-
53
f46a993e-65db-4f37-84e0-9aedaba77ee6
e94518a9-ea50-46a3-94f0-25f90b4e115a
515
2
512
2
532
0
700
2
553
2
4
Избранные
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
f46a993e-65db-4f37-84e0-9aedaba77ee6
93
41784,5774392245
525
42382,9964444444
42
3
4001
1
-
53
b68d3085-0e62-4a5e-b096-ef62dfc7e953
http://1ttv.org/hd_channels.php
e94518a9-ea50-46a3-94f0-25f90b4e115a
515
2
512
2
532
2
700
2
553
2
4
HD
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
b68d3085-0e62-4a5e-b096-ef62dfc7e953
93
41657,8676109375
525
42382,9964522917
42
3
43
video/mpeg
4001
1
-
51
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
e94518a9-ea50-46a3-94f0-25f90b4e115a
515
2
512
2
532
2
700
2
553
2
42
3
4
Категории
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
0
245
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
93
41791,097291713
4001
1
-
53
650f99de-f849-4864-8e81-3815934eb051
http://1ttv.org/category.php?cat=10
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Мужские
-1
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
-1
-1
93
41291,4038803819
525
42382,9964570023
-
53
81b3949c-8d92-449f-a1e0-3d3ce52940c6
http://1ttv.org/category.php?cat=2
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Музыка
-1
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
-1
-1
93
41291,4036305208
245
81b3949c-8d92-449f-a1e0-3d3ce52940c6
525
42382,9964673843
-
53
3a5ef185-80cc-43e1-ae09-5177f06e5df3
http://1ttv.org/category.php?cat=6
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Познавательные
-1
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
-1
-1
93
41291,403352581
-1
-1
-1
-1
-1
-1
245
3a5ef185-80cc-43e1-ae09-5177f06e5df3
525
42382,996472963
-
53
01114956-a44c-4ab3-a832-cd9be25bd457
http://1ttv.org/category.php?cat=4
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Спорт
-1
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
-1
-1
93
41291,4031054167
525
42382,9964852199
-
53
3c131ec2-b556-48d2-9931-1236e449d364
http://1ttv.org/category.php?cat=3
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Фильмы
-1
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
-1
-1
93
41291,4028075116
-1
-1
-1
245
3c131ec2-b556-48d2-9931-1236e449d364
525
42382,9964996991
-
53
8d821786-4281-4ed6-b1d6-51534694a017
http://1ttv.org/category.php?cat=8
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Развлекательные
-1
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
-1
-1
93
41291,4022379282
-1
-1
-1
245
8d821786-4281-4ed6-b1d6-51534694a017
525
42382,9965094444
-
53
b8c820f0-a804-4b11-a631-b40818ba29b2
http://1ttv.org/category.php?cat=7
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Новостные
-1
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
-1
-1
93
41291,4017085185
525
42382,9965218056
-
53
a1775721-0c9f-48ac-93d1-1d2fb032a37e
http://1ttv.org/category.php?cat=5
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Общие
-1
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
-1
-1
93
41291,4013226042
530
const
PCRE_CASELESS = $00000001;
PCRE_DOTALL = $00000004;
PCRE_SINGLELINE = PCRE_CASELESS + PCRE_DOTALL;
reg1 = '(\d\d\d)';
reg2 = '(\d\d)';
reg3 = '(\d)';
cifr = ['0','1','2','3','4','5','6','7','8','9'];
var
s,s1,s2,ini, file,kat,id,pap,pap1,mes,god,adres: string;
j,i,aPercent,e,grp:Integer;
ItemsRegExpr,ItemsRegExpr1,ItemsRegExpr2: TRegExpr;
sWebPage_,sWebPage_1,sWebPage,sWebPage1,sWebPage2,total,total1: string;
Item: THmsScriptMediaItem;
myYear, myMonth, myDay : Word;
k:byte;
kol,adr,n,adr_m,adr_f: string;
kol_i,ka:integer;
dlit,nazv,thum:string;
procedure kanal(const aItemDescr2: string);
begin
HmsRegExMatch('<a href="(.*?)"', aItemDescr2, adr);
HmsRegExMatch('<strong>(.*?)</strong>', aItemDescr2, nazv);
HmsRegExMatch('<a href="(.*?)"', aItemDescr2, thum);
adr:='http://1ttv.org/'+adr;
Item := HmsCreateMediaItem(adr, FolderItem.ItemID, );
Item.Properties[mpiTitle] := nazv ;
Item.Properties[mpiThumbnail ] := thum;
end;
procedure kategor(const aItemDescr: string); // поцедура выделение свойств фильмов aItemDescr -строка -результат поиска ItemsRegExpr1.Match между <li> и </li>
var // обьявление в процедуре
Item: THmsScriptMediaItem; // обьект Item из класса THmsScriptMediaItem -пункт в перечне фильмов
// строка
begin // начало процедуры
HmsRegExMatch('style="color: #FFF;">(.*?)</a>', sWebPage1, kat);
ItemsRegExpr2 := TRegExpr.Create('<li onclick=(.*?)</li></ul></li>',PCRE_SINGLELINE);
try
if ItemsRegExpr2.Search(aItemDescr) then repeat //искать в исх.строке объект и повторять
kanal(ItemsRegExpr2.Match) //запускать процедуру получения свойств фильма каждый раз как найден объект
until not ItemsRegExpr2.SearchAgain;
finally
ItemsRegExpr2.Free;
end;
end;
begin
//j:=0;
FolderItem.DeleteChildItems;
// mpfilepath:='http://1ttv.org/category.php?cat=8';
sWebPage1 := HmsDownloadURL(mpfilepath);
sWebPage1 :=HmsUtf8Decode (sWebPage1);
sWebPage1 :=HmsRemoveLineBreaks(sWebPage1);
//
ItemsRegExpr1 := TRegExpr.Create('<div class="best-channels-content"(.*?)</h5>',PCRE_SINGLELINE); //создать объект с содерж. между кавычек
try
if ItemsRegExpr1.Search(sWebPage1) then repeat //искать в исх.строке объект и повторять
kanal(ItemsRegExpr1.Match) //запускать процедуру получения свойств фильма каждый раз как найден объект
until not ItemsRegExpr1.SearchAgain;
finally
ItemsRegExpr1.Free;
end ;
HmsHideInformation ;
end.
531
PascalScript
-1
-1
-1
245
a1775721-0c9f-48ac-93d1-1d2fb032a37e
525
42382,9965271065
-
53
3fd6a69b-18b1-4fbd-b043-a397aaa2b868
http://1ttv.org/on_moderation.php
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
На модерации
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
3fd6a69b-18b1-4fbd-b043-a397aaa2b868
93
42041,8126561921
525
42382,99653125
-
53
73a2c4d3-a94a-4476-8b9e-f59201547bd3
http://1ttv.org/index.php
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Популярные
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
73a2c4d3-a94a-4476-8b9e-f59201547bd3
93
42041,8143009144
525
42382,9965407292
-
53
d8c32d90-fb5f-4230-8890-b27e7dbe1052
http://1ttv.org/category.php?cat=1
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Детские
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
d8c32d90-fb5f-4230-8890-b27e7dbe1052
93
42041,9355829745
525
42382,9965451736
-
53
9b91fabf-dd19-4b50-8890-4d81d19dfda9
http://1ttv.org/category.php?cat=11
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Региональные
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
9b91fabf-dd19-4b50-8890-4d81d19dfda9
93
42041,9364160069
525
42382,996549375
-
53
69daf825-1e12-44cf-940e-679c69a7332f
http://1ttv.org/category.php?cat=12
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
Религиозные
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
69daf825-1e12-44cf-940e-679c69a7332f
93
42041,9385848611
525
42382,9965539005
-
53
ac9e2277-618e-4ea9-9e68-e91f6e8550ac
http://1ttv.org/category.php?cat=9
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
515
2
512
2
532
2
700
2
553
2
42
3
4
XXX
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
ac9e2277-618e-4ea9-9e68-e91f6e8550ac
93
42372,5978038194
525
42382,9965583218
-
51
5c35b398-8e05-4ed9-ba01-76268c2e1197
e94518a9-ea50-46a3-94f0-25f90b4e115a
515
2
512
2
532
2
700
2
553
2
4
Фильмы
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
0
245
5c35b398-8e05-4ed9-ba01-76268c2e1197
93
42181,7637193287
50
AceStream (Входной поток)
42
3
4001
1
-
53
5ac45198-dbe3-4c8a-b5cb-46047cd7981e
http://1ttv.org/films.php
5c35b398-8e05-4ed9-ba01-76268c2e1197
515
2
512
2
532
2
700
2
553
2
42
3
4
Главная
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
5ac45198-dbe3-4c8a-b5cb-46047cd7981e
93
42181,7652742824
525
42382,9966380556
-
53
1c9b6217-09c5-489c-8d77-334901c49e22
http://1ttv.org/film_selector.php?new&sort_type=date
5c35b398-8e05-4ed9-ba01-76268c2e1197
515
2
512
2
532
2
700
2
553
2
42
3
4
Новинки
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
1c9b6217-09c5-489c-8d77-334901c49e22
93
42181,7672834722
525
42382,9968246296
-
53
15a3cf0d-ff14-4d2f-936e-c2b7b4c10f07
http://1ttv.org/film_selector.php?serials&sort_type=date
5c35b398-8e05-4ed9-ba01-76268c2e1197
515
2
512
2
532
2
700
2
553
2
42
3
4
Сериалы
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
15a3cf0d-ff14-4d2f-936e-c2b7b4c10f07
93
42181,7681074653
525
42382,9971102199
-
53
84d981ac-af37-4dc6-aa7f-cce1d4bcb4f3
http://1ttv.org/film_selector.php?last_added&sort_type=date
5c35b398-8e05-4ed9-ba01-76268c2e1197
515
2
512
2
532
2
700
2
553
2
42
3
4
Последние фильмы
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
84d981ac-af37-4dc6-aa7f-cce1d4bcb4f3
93
42181,7694552431
525
42382,9973339583
-
53
0de5a602-e8da-42f7-b746-712f10e53db5
http://1ttv.org/film_selector.php?specific=1080&sort_type=date
5c35b398-8e05-4ed9-ba01-76268c2e1197
515
2
512
2
532
2
700
2
553
2
42
3
4
Фильмы 1080
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
0de5a602-e8da-42f7-b746-712f10e53db5
93
42181,7721687963
525
42382,9975569444
-
53
8b1a06a8-906c-42c8-9885-1bd356b86682
http://1ttv.org/film_selector.php?specific=hd&sort_type=date
5c35b398-8e05-4ed9-ba01-76268c2e1197
515
2
512
2
532
2
700
2
553
2
42
3
4
Фильмы 720
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
8b1a06a8-906c-42c8-9885-1bd356b86682
93
42181,7728997801
525
42382,9977703009
-
53
67caf764-c4eb-4f6c-8f98-9b7d4b33aa9e
http://1ttv.org/film_selector.php?specific=3d&sort_type=date
5c35b398-8e05-4ed9-ba01-76268c2e1197
515
2
512
2
532
2
700
2
553
2
42
3
4
Фильмы 3D
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
67caf764-c4eb-4f6c-8f98-9b7d4b33aa9e
93
42181,7767627083
525
42382,9979218287
-
51
28cbf1d9-383a-4903-bd43-ec8420e68634
5c35b398-8e05-4ed9-ba01-76268c2e1197
515
2
512
2
532
2
700
2
553
2
42
3
4
Категории
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
570
0
245
28cbf1d9-383a-4903-bd43-ec8420e68634
93
42181,7843086458
-
53
5ce7d6ec-d1d6-44e0-a62d-b80e675bc9f5
http://1ttv.org/film_selector.php?genre=293&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Аниме
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
5ce7d6ec-d1d6-44e0-a62d-b80e675bc9f5
93
42181,7846729282
525
42382,9980370486
-
53
376ca783-2b11-43f9-9832-e020df5eb6cb
http://1ttv.org/film_selector.php?genre=306&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Биография
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
376ca783-2b11-43f9-9832-e020df5eb6cb
93
42181,786460706
525
42382,998239375
-
53
7daa60dc-ca37-4b43-a178-91b89d977751
http://1ttv.org/film_selector.php?genre=279&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Боевик
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
7daa60dc-ca37-4b43-a178-91b89d977751
93
42181,7926891898
525
42382,9984544444
-
53
ab401b7f-81ab-41aa-95db-3d8c85466746
http://1ttv.org/film_selector.php?genre=326&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Вестерн
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
ab401b7f-81ab-41aa-95db-3d8c85466746
93
42181,7938823958
525
42382,9985619792
-
53
cb0d0ed9-d453-43cc-9105-50a3a4d4fc2d
http://1ttv.org/film_selector.php?genre=315&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Военный
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
cb0d0ed9-d453-43cc-9105-50a3a4d4fc2d
93
42181,7944740278
525
42382,9988104514
-
53
ebe82366-bdf9-4676-a60c-ee95a9b425c3
http://1ttv.org/film_selector.php?genre=313&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Детектив
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
ebe82366-bdf9-4676-a60c-ee95a9b425c3
93
42181,7964300579
525
42382,9990238542
-
53
aeb6b1a6-7597-46f2-9d3f-075f39669c50
http://1ttv.org/film_selector.php?genre=308&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Детский
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
aeb6b1a6-7597-46f2-9d3f-075f39669c50
93
42181,7971980787
525
42382,9991553472
-
53
2eea7b3e-82a9-4e2b-b06d-355abfbf5c8f
http://1ttv.org/film_selector.php?genre=314&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
XXX
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
2eea7b3e-82a9-4e2b-b06d-355abfbf5c8f
93
42181,7977198148
525
42382,9992908102
-
53
ed444744-0333-4bd9-828e-a9a2ac9fca09
http://1ttv.org/film_selector.php?genre=275&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Документальный
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
ed444744-0333-4bd9-828e-a9a2ac9fca09
93
42181,7984283218
525
42382,9994762732
-
53
7f8d4c18-a6a4-4bfe-867f-4dd38a9bbea1
http://1ttv.org/film_selector.php?genre=278&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Драма
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
7f8d4c18-a6a4-4bfe-867f-4dd38a9bbea1
525
42382,9997421528
93
42181,8042588889
-
53
d053af0f-0929-483d-bf09-eff4accd09e3
http://1ttv.org/film_selector.php?genre=331&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Игра
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
d053af0f-0929-483d-bf09-eff4accd09e3
525
42382,9998340509
93
42181,8042588889
-
53
e26015aa-a302-464e-8e0c-73fc9d0bbdbe
http://1ttv.org/film_selector.php?genre=319&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
История
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
e26015aa-a302-464e-8e0c-73fc9d0bbdbe
93
42181,8046012153
525
42383,0000784028
-
53
9a0c586d-e873-4000-b293-49412d05ea7c
http://1ttv.org/film_selector.php?genre=282&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Комедия
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
9a0c586d-e873-4000-b293-49412d05ea7c
525
42383,0003418403
93
42181,8084392014
-
53
e847bab3-879f-4666-8f93-65233b4d0985
http://1ttv.org/film_selector.php?genre=298&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Концерт
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
e847bab3-879f-4666-8f93-65233b4d0985
93
42181,8095269907
525
42383,0004376389
-
53
c8248eaa-3a1c-4555-bbfd-0295cf1fd700
http://1ttv.org/film_selector.php?genre=286&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Короткометражка
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
c8248eaa-3a1c-4555-bbfd-0295cf1fd700
93
42181,810422338
525
42383,0006022222
-
53
4c051f60-320d-4a05-b62a-95d8fa9784b0
http://1ttv.org/film_selector.php?genre=283&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Криминал
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
4c051f60-320d-4a05-b62a-95d8fa9784b0
93
42181,8135283449
525
42383,0008416667
-
53
8dda60cf-8803-4f48-9658-d95381d6a64a
http://1ttv.org/film_selector.php?genre=296&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Мелодрама
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
8dda60cf-8803-4f48-9658-d95381d6a64a
93
42181,8145252431
525
42383,0011034491
-
53
c235a50a-f51d-46b0-a973-598e9b233ad0
http://1ttv.org/film_selector.php?genre=302&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Музыка
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
c235a50a-f51d-46b0-a973-598e9b233ad0
93
42181,815244919
525
42383,0012598032
-
53
56b2011e-ec7c-417d-9897-951cfd02957f
http://1ttv.org/film_selector.php?genre=291&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Мультфильмы
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
56b2011e-ec7c-417d-9897-951cfd02957f
93
42181,8159469792
525
42383,0015065509
-
53
d7c58a2a-0543-4b1e-ab34-2130ad23a8af
http://1ttv.org/film_selector.php?genre=311&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Мюзикл
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
d7c58a2a-0543-4b1e-ab34-2130ad23a8af
93
42181,8167418171
525
42383,0016632755
-
53
974c2ebe-91b3-463c-a1ec-5791e8dab8b8
http://1ttv.org/film_selector.php?genre=304&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Новости
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
974c2ebe-91b3-463c-a1ec-5791e8dab8b8
93
42181,8177370023
525
42383,0017622454
-
53
6efc6306-616d-4bc0-a1ed-6615ecebd38a
http://1ttv.org/film_selector.php?genre=294&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Приключения
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
6efc6306-616d-4bc0-a1ed-6615ecebd38a
93
42181,8183569213
525
42383,0019762731
-
53
6b7ca9c1-f6c3-4da5-8a6f-993ffa235a0b
http://1ttv.org/film_selector.php?genre=309&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Реальное ТВ
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
6b7ca9c1-f6c3-4da5-8a6f-993ffa235a0b
93
42181,8191386574
525
42383,0020962037
-
53
6245cff0-befa-44c7-b67a-5b9f339b4d18
http://1ttv.org/film_selector.php?genre=297&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Семейный
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
6245cff0-befa-44c7-b67a-5b9f339b4d18
93
42181,8197535301
525
42383,0023303357
-
53
65342193-143d-4575-a24c-53ab356648a3
http://1ttv.org/film_selector.php?genre=318&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Спорт
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
65342193-143d-4575-a24c-53ab356648a3
93
42181,8202522569
525
42383,0024659954
-
53
bd642bad-53a5-4ae5-91b5-3df44c78ebea
http://1ttv.org/film_selector.php?genre=324&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Ток-шоу
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
bd642bad-53a5-4ae5-91b5-3df44c78ebea
93
42181,8213258218
525
42383,0025684838
-
53
6e06a682-3690-433f-b9d9-52eee1f48769
http://1ttv.org/film_selector.php?genre=280&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Триллер
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
6e06a682-3690-433f-b9d9-52eee1f48769
93
42181,825048206
525
42383,0028198611
-
53
de546538-ad52-4de9-820a-a5c40e157e5e
http://1ttv.org/film_selector.php?genre=289&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Ужасы
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
de546538-ad52-4de9-820a-a5c40e157e5e
93
42181,8258326968
525
42383,0030542708
-
53
a53af94a-2949-4499-be44-f4b321bc87de
http://1ttv.org/film_selector.php?genre=284&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Фантастика
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
a53af94a-2949-4499-be44-f4b321bc87de
93
42181,8272954977
525
42383,0032998958
-
53
261c6cc4-6552-405e-89c6-20c3ac4a7340
http://1ttv.org/film_selector.php?genre=336&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Фильм-Нуар
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
261c6cc4-6552-405e-89c6-20c3ac4a7340
93
42181,8286096991
525
42383,0034075347
-
53
b62e88d2-fd51-4176-909f-6ac69d9ef3a4
http://1ttv.org/film_selector.php?genre=301&sort_type=date
28cbf1d9-383a-4903-bd43-ec8420e68634
515
2
512
2
532
2
700
2
553
2
42
3
4
Фэнтези
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
b62e88d2-fd51-4176-909f-6ac69d9ef3a4
93
42181,8295659144
525
42383,0036515509
ACEPLAYER
%Registry\SOFTWARE\AceStream\InstallDir%\player\ace_player.exe
http://www.acestream.org
http://www.acestream.org
ACEPLAYER
PascalScript
Транскодирование для TorrentStream, AceStream медиа-ресурсов
3
var
i: Integer;
sFileExt: string;
begin
if mpFileType <> '' then begin
if SameText(mpFileType, 'mpegts') then
sFileExt := 'ts'
else if SameText(mpFileType, 'mpeg') then
sFileExt := 'mpg'
else if MatchText(mpFileType, ['matroska', 'matroska,webm']) then
sFileExt := 'mkv'
else if SameText(mpFileType, 'asf') then
sFileExt := 'wmv'
else begin
i := Pos(',', mpFileType);
if i > 0 then
sFileExt := Copy(mpFileType, 1, i - 1)
else
sFileExt := mpFileType
end;
MimeType := HmsGetMimeType(sFileExt)
end
end.
PascalScript
0
const
csVideoLanParams = '--no-crashdump --play-and-exit -Idummy --language en --demuxdump-file="<OUTPUT FILE>" --access=p2p_access "%s" :demux=dump';
var
sInputFileName, sMediaResourceLink: string;
begin
sInputFileName := '<INPUT FILE>';
if InputFileName = '-' 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;
TranscodingParams := Format(csVideoLanParams, [sInputFileName])
end.
PascalScript
AceStream (Входной поток)
-1
16
9b658aac-e270-40ba-9114-0ca9d833c2a1
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
video/mpeg
begin
//HmsLogMessage(1, 'cfgTranscodingFileFormat: '+ cfgTranscodingFileFormat);
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 := ''
//cfgTranscodingVideoMimeType
end.
PascalScript
1
const
csVlcParams = '-Idummy --language en vlc://pause:2 --demuxdump-file="%s" --access=p2p_access "%s" :demux=dump';
var
sFileType, sInputFileName, sMediaResourceLink, sReadPipeName, sWritePipeName, sTranscodingParams: string;
begin
HmsLogMessage(mtiInfo, 'AceStream Transcoder: mpTitle: "' + mpTitle + '"');
TranscodingResult := False;
sInputFileName := InputFileName;
if sInputFileName = '-' then begin
sMediaResourceLink := HmsGetItemProperty(mpiMediaResourceLink);
if sMediaResourceLink = "" then begin
HmsLogMessage(mtiInfo, 'AceStream Transcoder: no media resource available, stop processing');
exit;
end else if Pos('--demuxdump-file', sMediaResourceLink) > 0 then begin
if not HmsRegExMatch('--access=p2p_access "(.*?)"', sMediaResourceLink, sInputFileName) then
HmsRegExMatch('"(.*?\.torrent)"', sMediaResourceLink, sInputFileName);
end else begin
sInputFileName := sMediaResourceLink;
end;
end;
if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin
sTranscodingParams := Format(csVlcParams, [sWritePipeName, sInputFileName]);
HmsLogMessage(mtiInfo, 'AceStream Transcoder: Start ACEPLAYER ' + sTranscodingParams);
if HmsTranscodingExecute('ACEPLAYER', sTranscodingParams, False) then begin
if mpFileType <> '' then
sFileType := '-f "' + mpFileType + '" '
else
sFileType := '';
mpInternetItem := False;
sTranscodingParams := HmsTranscodingProfileParams('Фильмы (основной)');
sTranscodingParams := ReplaceStr(sTranscodingParams, '<HMSMPEG> ', sFileType);
sTranscodingParams := ReplaceStr(sTranscodingParams, '<INPUT FILE>', sReadPipeName);
sTranscodingParams := sTranscodingParams + ' "' + OutputFileName + '"';
HmsLogMessage(mtiInfo, 'AceStream Transcoder: Start transcoding HMSMPEG ' + sTranscodingParams);
TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True)
end
end
end.
PascalScript
AceStream (ACEPLAYER - FFMPEG)
-1
37
09d8f390-166e-4b6d-88cf-64820cf53475