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('$80080000'); // INTERNET_FLAG_RELOAD и INTERNET_FLAG_NO_COOKIES - куки добавляем сами
HmsSendRequestEx('torrent-tv.ru', '/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('torrent-tv.ru', '/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('torrent-tv.ru', 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;
///////////////////////////////////////////////////////////////////////////////
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;
///////////////////////////////////////////////////////////////////////////////
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://torrent-tv.ru/'; // База, для коротких (относительных) ссылок
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';
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('$80080000'); // INTERNET_FLAG_RELOAD и INTERNET_FLAG_NO_COOKIES - куки добавляем сами
HmsSendRequestEx('torrent-tv.ru', '/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('torrent-tv.ru', '/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('torrent-tv.ru', sPage, 'GET', 'application/x-www-form-urlencoded', sHeaders, '', 80, iFlags, sAnswerHeaders, 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://torrent-tv.ru/'+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://torrent-tv.ru/category.php?cat=8';
mpfilepath:='http://torrent-tv.ru';
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://torrent-tv.ru/images/logo.png
50
Фильмы (Ремуксирование)
-
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
42042,7087693403
42
3
-
53
b68d3085-0e62-4a5e-b096-ef62dfc7e953
http://torrent-tv.ru/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
42234,9735925347
42
3
-
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://torrent-tv.ru/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
42182,7624151505
-
53
650f99de-f849-4864-8e81-3815934eb051
http://torrent-tv.ru/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
42195,7721291435
-
53
81b3949c-8d92-449f-a1e0-3d3ce52940c6
http://torrent-tv.ru/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
42193,6796945833
-
53
3a5ef185-80cc-43e1-ae09-5177f06e5df3
http://torrent-tv.ru/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
42182,0884461921
-
53
01114956-a44c-4ab3-a832-cd9be25bd457
http://torrent-tv.ru/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
42180,0403177894
-
53
3c131ec2-b556-48d2-9931-1236e449d364
http://torrent-tv.ru/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
42180,0504158912
-
53
8d821786-4281-4ed6-b1d6-51534694a017
http://torrent-tv.ru/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
42188,9905448264
-
53
b8c820f0-a804-4b11-a631-b40818ba29b2
http://torrent-tv.ru/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
42188,9703466898
-
53
a1775721-0c9f-48ac-93d1-1d2fb032a37e
http://torrent-tv.ru/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://torrent-tv.ru/'+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://torrent-tv.ru/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
42180,0506618056
-
53
3fd6a69b-18b1-4fbd-b043-a397aaa2b868
http://torrent-tv.ru/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
42188,9706745602
-
53
73a2c4d3-a94a-4476-8b9e-f59201547bd3
http://torrent-tv.ru/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
42193,6847056366
-
53
d8c32d90-fb5f-4230-8890-b27e7dbe1052
http://torrent-tv.ru/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
42180,0507865856
-
53
9b91fabf-dd19-4b50-8890-4d81d19dfda9
http://torrent-tv.ru/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
42180,0508216782
-
53
69daf825-1e12-44cf-940e-679c69a7332f
http://torrent-tv.ru/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
42180,0508679745
-
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 (ACE-FFMPEG) + HW Acceleration
42
3
-
53
5ac45198-dbe3-4c8a-b5cb-46047cd7981e
http://torrent-tv.ru/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
42195,7733097685
-
53
1c9b6217-09c5-489c-8d77-334901c49e22
http://torrent-tv.ru/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
42195,8033723264
-
53
15a3cf0d-ff14-4d2f-936e-c2b7b4c10f07
http://torrent-tv.ru/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
42195,8029737963
-
53
84d981ac-af37-4dc6-aa7f-cce1d4bcb4f3
http://torrent-tv.ru/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
42195,7864677083
-
53
0de5a602-e8da-42f7-b746-712f10e53db5
http://torrent-tv.ru/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
42195,8025470486
-
53
8b1a06a8-906c-42c8-9885-1bd356b86682
http://torrent-tv.ru/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
42195,8020372685
-
53
67caf764-c4eb-4f6c-8f98-9b7d4b33aa9e
http://torrent-tv.ru/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
42195,801579919
-
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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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
42195,787177419
-
53
7f8d4c18-a6a4-4bfe-867f-4dd38a9bbea1
http://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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
42181,8046601852
-
53
9a0c586d-e873-4000-b293-49412d05ea7c
http://torrent-tv.ru/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
42185,8408811111
93
42181,8084392014
-
53
e847bab3-879f-4666-8f93-65233b4d0985
http://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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
42181,8184333912
-
53
6b7ca9c1-f6c3-4da5-8a6f-993ffa235a0b
http://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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
42195,9203494676
-
53
de546538-ad52-4de9-820a-a5c40e157e5e
http://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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://torrent-tv.ru/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
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 := '-hwaccel auto '+HmsTranscodingProfileParams('Фильмы (основной)');
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) + HW Acceleration
-1
13
ffd1f246-3e71-49f6-b08b-b7611e2f7b09
HMSMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HmsMPEG
Hmsmpeg.exe
http://www.ffmpeg.org/
hmsMPEG
hmsmpeg.exe
http://www.ffmpeg.org/
HMSMPEG
PascalScript
Транскодирование без перекодирования видео
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 if SameText(cfgTranscodingFileFormat, 'FLV') then
FileExt := 'flv'
else
FileExt := '';
if FileExt <> '' then
MimeType := HmsGetMimeType(FileExt)
else
MimeType := ''
end.
PascalScript
1
const
csFFMpegVideoParams = ' -vcodec %s %s%s -pix_fmt yuv420p';
csFFMpegAudioParams = ' -acodec %s -ab %d -ar %d -ac %d';
procedure GetAudioTranscodingParams(const aAudioCodec: string;
var aCodecName, aFileFormat: string; var aCodecID, aAudioBitrate, aAudioChannels: Integer);
begin
aAudioBitrate := cfgTranscodingAudioBitrate;
if (cfgTranscodingAudioChannels <> 0) then
aAudioChannels := cfgTranscodingAudioChannels;
if SameText(aAudioCodec, 'AAC') then begin
aCodecName := 'libfaac';
aFileFormat := 'adts';
aCodecID := CODEC_ID_AAC;
end else if SameText(aAudioCodec, 'MP3') then begin
aCodecName := 'libmp3lame';
aFileFormat := 'mp3';
aCodecID := CODEC_ID_MP3;
if aAudioBitrate > 320000 then
aAudioBitrate := 320000;
if aAudioChannels > 2 then
aAudioChannels := 2;
end else if SameText(aAudioCodec, 'MP2') then begin
aCodecName := 'mp2';
aFileFormat := 'mp2';
aCodecID := CODEC_ID_MP2;
if aAudioBitrate > 320000 then
aAudioBitrate := 320000;
if aAudioChannels > 2 then
aAudioChannels := 2;
end else if SameText(aAudioCodec, 'LPCM') then begin
aCodecName := 'pcm_s16be';
aFileFormat := 's16be';
aCodecID := CODEC_ID_PCM_BLURAY;
end else if SameText(aAudioCodec, 'DTS') then begin
aCodecName := 'dca';
aFileFormat := 'dts';
aCodecID := CODEC_ID_DTS;
aAudioChannels := 0
end else if SameText(aAudioCodec, 'WMA') then begin
aCodecName := 'wmav2';
aFileFormat := 'asf';
aCodecID := CODEC_ID_WMAV2;
if aAudioChannels > 2 then
aAudioChannels := 2;
end else begin
aCodecName := 'ac3';
aFileFormat := 'ac3';
if SameText(aAudioCodec, 'AC3') then
aCodecID := CODEC_ID_AC3
else
aCodecID := CODEC_ID_NONE;
end
end;
function GetFileFormat(const aFileFormat: string): string;
begin
if (aFileFormat = '') or SameText(aFileFormat, 'MPEG (DVD)') then
Result := 'dvd'
else if Pos('MPEGTS', aFileFormat) > 0 then
Result := 'mpegts'
else if Pos('ASF', aFileFormat) > 0 then
Result := 'asf'
else if SameText(aFileFormat, 'MP4') then
Result := 'ipod'
else if SameText(aFileFormat, 'FLV') then
Result := 'flv'
else if SameText(aFileFormat, 'MPEG1') then
Result := 'mpeg'
else
Result := aFileFormat
end;
function GetVideoCodec(const aVideoCodec: string): string;
begin
if (aVideoCodec = '') or SameText(aVideoCodec, 'MPEG2') then
Result := 'mpeg2video'
else if SameText(aVideoCodec, 'MPEG1') then
Result := 'mpeg1video'
else if SameText(aVideoCodec, 'FLV') then
Result := 'flv'
else if SameText(aVideoCodec, 'WMV') then
Result := 'wmv2'
else if SameText(aVideoCodec, 'MPEG4') then
Result := 'mpeg4'
else if SameText(aVideoCodec, 'X264') then
Result := 'libx264 -x264opts "fast-pskip=1:rc-lookahead=0:aq_mode=0" -partitions none -sc_threshold 0 -trellis 0 -me_method dia -refs 1 -subq 0 -vprofile baseline -level 30 -bufsize 10000000 '
else
Result := aVideoCodec
end;
function GetMultiThreadSupported(const aVideoCodec: string): Boolean;
begin
Result := not MatchText(aVideoCodec, ['WMV', 'MPEG1', 'FLV'])
end;
function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer;
begin
if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then
Result := 320000
else
Result := aAudioBitrate
end;
function GetAudioSampleRate(const aFileFormat, aAudioCodec: string): Integer;
begin
if MatchText(aFileFormat, ['FLV']) and not SameText(aAudioCodec, 'AAC') then
Result := 44100
else
Result := 48000
end;
function GetAudioChannels(const aAudioCodec: string; aConfigAudioChannels, aStreamAudioChannels: Integer): Integer;
begin
if aConfigAudioChannels > 0 then
Result := aConfigAudioChannels
else
Result := aStreamAudioChannels;
if (Result > 2) and MatchText(aAudioCodec, ['MP2', 'MP3']) then
Result := 2
else if (Result = 1) and MatchText(aAudioCodec, ['AAC', 'AC3']) then
Result := 2
else if Result > 6 then
Result := 6
end;
function VideoCodecCompatible: Boolean;
begin
if (cfgTranscodingFileFormat = '') or SameText(cfgTranscodingFileFormat, 'MPEG (DVD)') then
Result := MatchText(mpVideoCodec, ['MPEG2VIDEO', 'MPEG1VIDEO'])
else if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then
Result := MatchText(mpVideoCodec, ['H264', 'MPEG2VIDEO', 'MPEG1VIDEO', 'MPEG4'])
else if Pos('ASF', cfgTranscodingFileFormat) > 0 then
Result := MatchText(mpVideoCodec, ['H264', 'MPEG4', 'WMV2'])
else if SameText(cfgTranscodingFileFormat, 'MP4') then
Result := MatchText(mpVideoCodec, ['H264', 'MPEG4'])
else if SameText(cfgTranscodingFileFormat, 'FLV') then
Result := MatchText(mpVideoCodec, ['H264', 'FLV'])
else if SameText(cfgTranscodingFileFormat, 'MPEG1') then
Result := MatchText(mpVideoCodec, ['MPEG2VIDEO', 'MPEG1VIDEO'])
else
Result := False
end;
procedure AddFilterParams(var aFilterParams: string; const aAddParams: string);
begin
if aFilterParams <> '' then
aFilterParams := aFilterParams + ',';
aFilterParams := aFilterParams + aAddParams
end;
var
bMapStreams, bDeinterlace, bh264_mp4toannexb, bPipe, bSuccess, bAudioTranscoding, bVideoTranscoding: Boolean;
iAudioBitrate, iAudioChannels, iAudioCfgBitrate, iAudioCfgCodecID, iAudioStreamNo,
iCodecID, iFrameWidth, iFrameHeight, iWidth, iHeight,
iPadLeft, iPadTop, iPadRight, iPadBottom, iVideoCodecID, iAudioCodecID: Integer;
sVideoTranscodingParams, sAudioTranscodingParams, sTranscodingParams,
sAudioCfgCodecName, sAudioCfgFileFormat, sInputAudioFileName,
sInputVideoFileName, sFrameRate, sResourcePipe, sSoxTranscodingParams,
sVideoBitrate, sVideoMinMaxRate, sFilterParams, sPadParams: string;
begin
if HmsGetStreamCount = 0 then
HmsRetrieveProperties;
bPipe := Pos('\\.\pipe\', InputFileName) > 0;
bDeinterlace := SameText(HmsGetVideoSettings(vstDeinterlace), 'on');
if bPipe then
else if (mpIsoItem or mpDvdItem or mpBdItem) and HmsCreateResourcePipe(sResourcePipe) then begin
InputFileName := sResourcePipe;
bPipe := True;
end else if mpPodcastItem then begin
InputFileName := HmsGetItemProperty(mpiMediaResourceSource);
bPipe := Pos('\\.\pipe\', InputFileName) > 0;
end;
bVideoTranscoding := False;
bAudioTranscoding := False;
sInputVideoFileName := InputFileName;
sInputAudioFileName := InputFileName;
iAudioStreamNo := mpAudioStreamNo;
if iAudioStreamNo < 0 then
iAudioStreamNo := 0;
iVideoCodecID := HmsGetStreamCodecID(stVideo, 0);
iAudioCodecID := HmsGetStreamCodecID(stAudio, iAudioStreamNo);
iAudioChannels := HmsGetStreamChannels(iAudioStreamNo);
if iAudioChannels < 2 then iAudioChannels := 2;
iAudioBitrate := HmsGetStreamBitrate(stAudio, iAudioStreamNo);
sTranscodingParams := ''; sSoxTranscodingParams := '';
bVideoTranscoding := False;
bAudioTranscoding := False;
if SameText(HmsGetVideoSettings(vstVideoOriginal), 'On') then
bVideoTranscoding := False
else if SameText(HmsGetVideoSettings(vstVideoOriginal), 'Off') then
bVideoTranscoding := True
else if (mpSubtitleLanguage <> '') or (HmsGetVideoSettings(vstSubtitle) <> '') or bDeinterlace then
bVideoTranscoding := True
else if (mpFrameRate > 0) and (mpFrameRate < 20) then
bVideoTranscoding := True
else if not VideoCodecCompatible then
bVideoTranscoding := True
else begin
if (mpOriginalWidth > 0) then begin
iWidth := mpOriginalWidth;
iHeight := mpOriginalHeight;
end else begin
iWidth := mpWidth;
iHeight := mpHeight;
end;
if (iWidth > cfgMaximumVideoResolutionWidth) or (iHeight > cfgMaximumVideoResolutionHeight) then
bVideoTranscoding := True
end;
GetAudioTranscodingParams(cfgTranscodingAudioCodec, sAudioCfgCodecName,
sAudioCfgFileFormat, iAudioCfgCodecID, iAudioCfgBitrate, iAudioChannels);
if SameText(HmsGetVideoSettings(vstAudioOriginal), 'On') then
bAudioTranscoding := False
else if SameText(HmsGetVideoSettings(vstAudioOriginal), 'Off') then
bAudioTranscoding := True
else if (iAudioCodecID <> iAudioCfgCodecID) or
((cfgTranscodingAudioChannels <> 0) and (cfgTranscodingAudioChannels <> iAudioChannels)) or
((cfgTranscodingFileFormat = 'FLV') and
(GetAudioSampleRate(cfgTranscodingFileFormat, cfgTranscodingAudioCodec) <> mpAudioSampleRate)) then
bAudioTranscoding := True;
if bVideoTranscoding then begin
sVideoMinMaxRate := '';
if cfgTranscodingVideoBitrate > 0 then begin
sVideoBitrate := '-b:v ' + IntToStr(cfgTranscodingVideoBitrate);
if cfgTranscodingVideoMinMaxRate then
sVideoMinMaxRate := Format(' -minrate %d -maxrate %d -bufsize %d',
[cfgTranscodingVideoBitrate, cfgTranscodingVideoBitrate,
HmsTranscodingBufferSize(cfgTranscodingVideoBitrate)])
end else
sVideoBitrate := '-q:v 0';
sVideoTranscodingParams := Format(csFFMPegVideoParams,
[GetVideoCodec(cfgTranscodingVideoCodec), sVideoBitrate,
sVideoMinMaxRate]);
sFrameRate := HmsGetVideoSettings(vstFrameRate);
if sFrameRate = '' then
sFrameRate := cfgTranscodingFrameRate;
if sFrameRate = '' then begin
if SameText(cfgTranscodingVideoCodec, 'FLV') then
sFrameRate := FormatFloat('0', mpFrameRate)
else if (mpFrameRate > 0) and (mpFrameRate < 20) then
sFrameRate := '23.976'
end;
if sFrameRate <> '' then
sVideoTranscodingParams := sVideoTranscodingParams + ' -r ' + sFrameRate;
iWidth := mpWidth; iHeight := mpHeight;
if (iWidth > 0) and (iHeight > 0) then begin
sFilterParams := ''; sPadParams := '';
if HmsTranscodingFrameParams(iWidth, iHeight, cfgTranscodingScreenFormat,
iPadLeft, iPadTop, iPadRight, iPadBottom) then begin
if mp3DVideoType in [1, 2] then begin
iWidth := iWidth + iPadLeft + iPadRight;
iHeight := iHeight + iPadTop + iPadBottom;
if mp3DVideoType = 1 then
iWidth := (iWidth div 4) * 4
else
iHeight := (iHeight div 4) * 4
end;
iFrameWidth := iWidth;
iFrameHeight := iHeight;
if (mp3DVideoType = 0) and ((iPadLeft > 0) or (iPadRight > 0) or (iPadTop > 0) or (iPadBottom > 0)) then begin
Inc(iFrameWidth, iPadLeft + iPadRight);
Inc(iFrameHeight, iPadTop + iPadBottom);
sPadParams := Format('pad=%d:%d:%d:%d:0x%s',
[iFrameWidth, iFrameHeight, iPadLeft, iPadTop, HmsConvertColor(cfgTranscodingPadColor)]);
if cfgTranscodingFrameExists then
sVideoTranscodingParams := sVideoTranscodingParams + cfgTranscodingFrameParams;
end
end else begin
iFrameWidth := iWidth;
iFrameHeight := iHeight;
end;
AddFilterParams(sFilterParams, Format('scale=%d:%d', [iWidth, iHeight]));
if sPadParams <> '' then AddFilterParams(sFilterParams, sPadParams);
AddFilterParams(sFilterParams, 'setdar=' + cfgTranscodingAspectRatio);
sVideoTranscodingParams := sVideoTranscodingParams + Format(' -vf "%s"', [sFilterParams]);
sVideoTranscodingParams := sVideoTranscodingParams + HmsTranscodingSubTitleParams(
iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop);
if (cfgTranscodingThreadCount > 1) and GetMultiThreadSupported(cfgTranscodingVideoCodec) then
sVideoTranscodingParams := sVideoTranscodingParams + ' -threads ' + IntToStr(cfgTranscodingThreadCount);
end
end else begin
sVideoTranscodingParams := ' -copyinkf -vcodec copy ';
if SameText(mpVideoCodec, 'H264') then begin
if VarToStr(mpCodecNalLengthSize) <> '' then
bh264_mp4toannexb := VarToStr(mpCodecNalLengthSize) <> '0'
else
bh264_mp4toannexb := not MatchText(mpFileType, ['mpegts', 'wtv', 'hls', 'applehttp'], True);
if bh264_mp4toannexb then
sVideoTranscodingParams := sVideoTranscodingParams + ' -vbsf h264_mp4toannexb'
end
end;
if bAudioTranscoding then
sAudioTranscodingParams := Format(csFFMpegAudioParams, [sAudioCfgCodecName, iAudioCfgBitrate,
GetAudioSampleRate(cfgTranscodingFileFormat, cfgTranscodingAudioCodec), iAudioChannels])
else
sAudioTranscodingParams := ' -acodec copy';
bMapStreams := HmsGetStreamCount > 0;
sTranscodingParams := HmsTranscodingProbeParams;
if mpTimeStart <> '' then
sTranscodingParams := sTranscodingParams + '-ss ' + mpTimeStart + ' ';
if SameText(mpFileType, 'mpeg') then
sTranscodingParams := sTranscodingParams + '-f mpeg ';
sTranscodingParams := sTranscodingParams + Format('-i "%s" ', [InputFileName]);
sTranscodingParams := sTranscodingParams + '-f ' + GetFileFormat(cfgTranscodingFileFormat);
sTranscodingParams := sTranscodingParams + sVideoTranscodingParams + sAudioTranscodingParams;
if bMapStreams then
sTranscodingParams := sTranscodingParams + Format(' -map 0:%d -map 0:%d', [HmsGetStreamIndex(stVideo, 0), HmsGetStreamIndex(stAudio, iAudioStreamNo)]);
sTranscodingParams := sTranscodingParams + ' "<OUTPUT FILE>"';
// TranscodingParams := sTranscodingParams;
TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True, InputFileName, OutputFileName)
end.
PascalScript
Фильмы (Ремуксирование)
-1
6
6d153a01-6207-4503-8a0f-6b4cf722e95e