3
51
daa53b34-8803-472a-855e-e1ddb70079a1
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
4
Torrent TV (без транскода)
-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"';
csHmsTsLuaScript =
'local PlaylistItem'#13#10 +
''#13#10 +
'local bPlaylistExists = 1'#13#10 +
'local iPlaylistItemID = -1'#13#10 +
''#13#10 +
'while (bPlaylistExists == 1) and not vlc.misc.should_die() do'#13#10 +
' bPlaylistExists = 0'#13#10 +
' PlaylistItem = vlc.playlist.get("playlist")'#13#10 +
' for i = 1, #PlaylistItem.children do'#13#10 +
' if (PlaylistItem.children[i].name == config.torrentfile) then'#13#10 +
' bPlaylistExists = 1'#13#10 +
' end'#13#10 +
' end'#13#10 +
' if (bPlaylistExists == 0) then'#13#10 +
' for i = 1, #PlaylistItem.children do'#13#10 +
' if PlaylistItem.children[i].name == config.torrentsubfile then'#13#10 +
' iPlaylistItemID = PlaylistItem.children[i].id'#13#10 +
' break'#13#10 +
' end'#13#10 +
' end'#13#10 +
' else'#13#10 +
' vlc.misc.mwait ( vlc.misc.mdate() + 10000)'#13#10 +
' end'#13#10 +
'end'#13#10 +
''#13#10 +
'vlc.var.create(vlc.object.libvlc(), "demux", "dump")'#13#10 +
''#13#10 +
'if iPlaylistItemID ~= -1 then'#13#10 +
' vlc.playlist.goto(iPlaylistItemID)'#13#10 +
'end'#13#10;
procedure CreateHmsTsLuaScript;
var
sFileName: string;
begin
sFileName := IncludeTrailingBackslash(RegistryRead('Software\AceStream\InstallDir')) + 'Player\lua\intf\hmsts.lua';
if not FileExists(sFileName) then
HmsStringToFile(csHmsTsLuaScript, sFileName)
end;
// ---------------------------------------------------------------------------------------
// Получение пути 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;
procedure CopyProperties(aSourceItem, aDestItem: THmsScriptMediaItem; const aProperties: array of Integer);
var
i: Integer;
begin
for i := 0 to Length(aProperties) - 1 do
aDestItem.Properties[aProperties[i]] := aSourceItem.Properties[aProperties[i]]
end;
function EscapeChars(const aText: string): string;
var
i: Integer;
begin
Result := '';
for i := 1 to Length(aText) do begin
if aText[i] in [#39, '\'] then
Result := Result + '\';
Result := Result + aText[i]
end
end;
procedure CreateTorrentSubItem(const aName, aPath: string; aFileSize: Variant;
const aTorrentFileName: string; aSubFileIndex: Integer);
var
sName: string;
TorrentSubItem: THmsScriptMediaItem;
begin
if HmsFileMediaType(aName) = mtVideo then begin
TorrentSubItem := HmsCreateMediaItem(aName, PodcastItem.ItemID, aPath);
if TorrentSubItem <> nil then begin
TorrentSubItem.Properties[mpiFileSize] := aFileSize;
if aPath <> '' then
sName := IncludeTrailingBackslash(aPath) + aName
else
sName := aName;
TorrentSubItem.Properties[mpiMediaResourceLink] :=
Format(csCommandLine2, [GetTsPlayerPath, EscapeChars(ExtractFileName(aTorrentFileName)), EscapeChars(sName), aTorrentFileName]);
CopyProperties(PodcastItem, TorrentSubItem, [mpiFilePath, mpiThumbnail, mpiComment, mpiTimeLength, mpiYear, mpiGenre, mpiDirector, mpiCreateDate]);
TorrentSubItem.Properties[mpiTitle] := aName;
end
end
end;
procedure CreateTorrentItems(const aFileName: string);
var
i: Integer;
TorrentFile: TTorrentFile;
TorrentSubFile: TTorrentSubFile;
begin
TorrentFile := TTorrentFile.Create;
try
TorrentFile.LoadFromFile(aFileName);
if SameText(PodcastItem.Properties[mpiTitle], ExtractFileName(mpFilePath)) then
PodcastItem.Properties[mpiTitle] := TorrentFile.Name;
if TorrentFile.MultiFile then
for i := 0 to TorrentFile.Count - 1 do begin
TorrentSubFile := TorrentFile.Files[i];
CreateTorrentSubItem(TorrentSubFile.Name, TorrentSubFile.Path, TorrentSubFile.Length, aFileName, i)
end
else
CreateTorrentSubItem(TorrentFile.Name, '', TorrentFile.Length, aFileName, 0)
finally
TorrentFile.Free
end
end;
var
bFileExists: Boolean; iFlags: Integer;
sID, sTmpFile, sWebPage, sHeaders, sAnswerHeaders, sToken, sCookie: string;
mail, pass, sPage: string;
begin
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_RELOAD и INTERNET_FLAG_NO_COOKIES - куки добавляем сами
// HmsSendRequestEx('1ttv.org', '/banhammer/pid', 'GET', 'application/x-www-form-urlencoded', sHeaders, '', 80, iFlags, sAnswerHeaders, true);
// HmsRegExMatch('X-BH-Token: (.*?)\r', sAnswerHeaders, sToken);
// sHeaders := sHeaders+'Cookie: BHC='+sToken+#10#13;
mail := HmsHttpEncode( HmsUtf8Encode(mpPodcastAuthorizationUserName)); // логин
pass := HmsHttpEncode( HmsUtf8Encode(mpPodcastAuthorizationPassword)); // пароль
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 HmsRegExMatch('(PHPSESSID=.*?);', sAnswerHeaders, sCookie) then
sHeaders := sHeaders+'Cookie: '+sCookie+#10#13;
if HmsRegExMatch('(torrenttv_remember=.*?);', sAnswerHeaders, sCookie) then
sHeaders := sHeaders+'Cookie: '+sCookie+#10#13;
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 not HmsRegExMatch('loadTorrent..(.*?)",' , sWebPage, sID) then
HmsRegExMatch('this.loadPlayer..(.*?)",', sWebPage, sID);
if (sID ='') then sWebPage := HmsDownloadURL(sID, 'Referer: '+sHeaders, true);
if (sID<>'') then HmsLogMessage(1, 'Открываем по ID ' + mpTitle )
else HmsLogMessage(1, 'Открываем по торренту ' + mpTitle );
mpTitle := Copy(mpTitle, 1, 20);
sTmpFile := HmsTempDirectory + '\' + mpTitle + '.acelive';
bFileExists := FileExists(sTmpFile);
if (sID<>'') then begin
MediaResourceLink := Format(csCommandLine1, [GetTsPlayerPath, sID]);
exit;
end;
if not bFileExists then bFileExists := HmsDownloadURLToFile(sID, sTmpFile);
if bFileExists then begin
MediaResourceLink := Format(csCommandLine1, [GetTsPlayerPath, sTmpFile]);
end else
HmsLogMessage(1, 'Ошибка при загрузке торрента "' + mpFilePath + '"');
end.
551
PascalScript
530
const
PCRE_CASELESS = $00000001;
PCRE_DOTALL = $00000004;
PCRE_SINGLELINE = PCRE_CASELESS + PCRE_DOTALL;
var
sWebPage, sAnswerHeaders, sToken, sHeaders, sPage, mail, pass, sCookie: string;
ItemsRegExpr: TRegExpr; i, iFlags: Integer; gsNameArray: string;
gsHeaders: 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' Then Item.Delete;
End;
End;
///////////////////////////////////////////////////////////////////////////////
Function Login1TTV(): Boolean;
Var
sName, sUser, sPass, sPost, sHeaders, sAnswHeaders, sCookie: String;
iFlags: Integer;
Begin
sHeaders := 'http://1ttv.org/auth.php'+#10#13+
'Origin: http://1ttv.org'+#10#13;
iFlags := $00200000; // INTERNET_FLAG_NO_AUTO_REDIRECT=0x00200000
sUser := HmsPercentEncode(HmsUtf8Encode(mpPodcastAuthorizationUserName));
sPass := HmsPercentEncode(HmsUtf8Encode(mpPodcastAuthorizationPassword));
sPost := 'email='+sUser+'&password='+sPass+'&enter=%D0%92%D0%BE%D0%B9%D1%82%D0%B8';
HmsSendRequestEx('1ttv.org', '/auth.php', 'POST', 'application/x-www-form-urlencoded', sHeaders, sPost, 80, iFlags, sAnswHeaders, true);
Result := HmsRegExMatch('(PHPSESSID=.*?);', sAnswHeaders, sCookie);
If Result Then
gsHeaders := gsHeaders+'Cookie: '+sCookie+#10#13
Else
HmsLogMessage(2, "Ошибка авторизации на 1ttv.org");
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
// Помечаем все созданные ранее ссылки для удаления
For i := 0 to FolderItem.ChildCount-1 Do FolderItem.ChildItems[i].Properties[4001] := '1';
gsHeaders := 'Referer: '+mpFilePath+#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 mpPodcastAuthorizationUserName<>'' Then Login1TTV();
sWebPage := HmsDownloadURL(mpFilePath, gsHeaders, True);
if (Pos('film_selector.php', sPage)>1) then
for i := 2 to 20 do sWebPage := sWebPage+HmsDownloadURL(mpFilePath+'&page='+IntToStr(i), gsHeaders, True);
sWebPage := HmsUtf8Decode(sWebPage);
sWebPage := HmsRemoveLineBreaks(sWebPage);
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
daa53b34-8803-472a-855e-e1ddb70079a1
95
3
215
mpTitle
55
http://1ttv.org/images/logo.png
43
video/mpeg
42
2
-
53
f46a993e-65db-4f37-84e0-9aedaba77ee6
daa53b34-8803-472a-855e-e1ddb70079a1
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
42260,0773091088
42
3
-
53
b68d3085-0e62-4a5e-b096-ef62dfc7e953
http://1ttv.org/hd_channels.php
daa53b34-8803-472a-855e-e1ddb70079a1
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
42273,9765978819
42
3
43
video/mpeg
-
51
afe0805e-2e1d-4d5d-af10-c1e04504f3a0
daa53b34-8803-472a-855e-e1ddb70079a1
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
-
53
4a64cb82-7fe5-436d-a068-fd1759a220e4
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
4a64cb82-7fe5-436d-a068-fd1759a220e4
93
41657,8653941435
525
42266,3758511111
-
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
42273,8081762037
-
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
42266,7936856366
-
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
42266,7633458333
-
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
42252,9144839005
-
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
42266,7958035301
-
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
42252,9127474074
-
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
42245,275374919
-
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
42242,920726713
-
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
42272,7279128588
-
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
42268,9229877546
-
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
42250,7459834028
-
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
42266,7946577431
-
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
42266,7953481134
-
51
5c35b398-8e05-4ed9-ba01-76268c2e1197
daa53b34-8803-472a-855e-e1ddb70079a1
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
-
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
42273,9827638426
-
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
42259,5109152315
-
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
42242,9213754514
-
53
84d981ac-af37-4dc6-aa7f-cce1d4bcb4f3
http://1ttv.org/film_selector.php?last_added
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
42266,7605309954
-
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
42243,9026330671
-
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
42242,9421420718
-
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
42266,7621700231
-
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
42181,7847406019
-
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
42181,7865255556
-
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
42181,7927817361
-
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
42181,7939404282
-
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
42181,7945553588
-
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
42181,7965071528
-
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
42181,7972696643
-
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
42182,3243817477
-
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
42243,9042129167
-
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
42181,80340125
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
42181,8040247222
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
42261,8669673958
-
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
42261,8682163079
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
42181,8097984491
-
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
42181,810492581
-
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
42181,8136261806
-
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
42181,8146187731
-
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
42181,8153160301
-
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
42181,8160173611
-
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
42181,817185081
-
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
42181,8178134375
-
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
42261,8675944329
-
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
42185,8415177083
-
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
42181,8198416204
-
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
42181,8203032292
-
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
42181,8213863194
-
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
42246,955058044
-
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
42193,6973124306
-
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
42191,9415153009
-
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
42182,8788921991
-
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
42181,8296374884
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