3
51
165683c1-2fb0-4545-85f9-385133cba960
234DF17B-418C-4FDC-9DFE-CD0C586D2E76
4
Тучка TV
515
0
700
0
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
1
512
0
532
0
553
1
522
0
570
0
245
165683c1-2fb0-4545-85f9-385133cba960
93
42242,9235293287
550
const
//csCommandLine1 = 'cmd://"%s" --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"';
// ---------------------------------------------------------------------------------------
// Получение пути AceStream плеера
function GetTsPlayerPath: string;
var
sResult: string;
begin
sResult := IncludeTrailingBackslash(RegistryRead('Software\AceStream\InstallDir')) + 'Player\ace_player.exe';
Result := ExtractShortPathName(sResult);
HmsLogMessage(1, 'Result = ' + Result);
if Result = '' then Result := sResult
end;
var sItemLink,sWebPage1,sWeb:string;
begin
// CreateHmsTsLuaScript;
HmsLogMessage(1, 'Открываем ' + mpTitle);
sWebPage1 := HmsDownloadURL(mpFilePath); //загружаем главную страницу сайта
sWebPage1 :=HmsUtf8Decode(sWebPage1); //переводим из уникода
sWebPage1 :=HmsRemoveLineBreaks(sWebPage1);
HmsRegExMatch('<center><iframe id="player" scrolling="no" frameborder="0" src="(.*?)"', sWebPage1, sItemLink); //выделяем ссылку на видео
if sItemLink='' then
HmsRegExMatch('loadPlayer.*?"(.*?)", {autoplay', sWebPage1, sItemLink);
mpFilePath := sItemLink;
if (Pos('http',mpFilePath)<>0) and (Pos('.acelive',mpFilePath)=0) then begin
sWeb := HmsUtf8Decode (HmsDownloadURL(mpFilePath));
HmsRegExMatch('loadPlayer.*?"(.*?)"', sWeb, sWeb);
MediaResourceLink := Format(csCommandLine1, [GetTsPlayerPath, sWeb]);
end
else MediaResourceLink := Format(csCommandLine1, [GetTsPlayerPath, mpFilePath]);
end.
551
PascalScript
50
AceStream (ACEPLAYER - FFMPEG)
-
51
45b87c96-af17-42a6-8960-e7ca02bf3cf0
http://tuchkatv.ru/
165683c1-2fb0-4545-85f9-385133cba960
515
1
512
2
532
1
700
2
553
2
42
3
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
571
const
PCRE_CASELESS = $00000001;
PCRE_DOTALL = $00000004;
PCRE_SINGLELINE = PCRE_CASELESS + PCRE_DOTALL;
var
s,s1,s2,ini, file,kat,id,pap,pap1,mes,god,img: string;
j,i,aPercent,e,grp:Integer;
ItemsRegExpr,ItemsRegExpr1,ItemsRegExpr2,ItemsRegExpr3: TRegExpr;
sWebPage_,sWebPage_1,sWebPage,sWebPage1,sWebPage2,total,total1: string;
Item: THmsScriptMediaItem;
myYear, myMonth, myDay : Word;
k:byte;
kol: string;
kol_i,ka,kolS:integer;
sez_adr,sez_nazv:string;
sItemLink,s3,s4,s5,nazv: string;
t_na4,t_kon,t_pr:TDatetime;
Hour, Min, Sec, MSec: Word;
ACaption, APrompt, ADefault: string;
sc: THmsScriptMediaItem;
procedure serial(const aItemDescr: string); // поцедура выделение свойств фильмов aItemDescr -строка -результат поиска ItemsRegExpr1.Match между <li> и </li>
var // обьявление в процедуре
Item: THmsScriptMediaItem; // обьект Item из класса THmsScriptMediaItem -пункт в перечне фильмов
// строка
begin // начало процедуры
inc(kolS);
HmsRegExMatch('">(.*?)</', aItemDescr, s2); // в строку sItemLink вставить то что между (href=") и (") из aItemDescr .Пример: sItemLink = /trillery/23781-punkt-naznacheniya-5-final-destination-5-2011.html
// kat:=s2[1]; // Алфавит
kat := '\' + kat ;
HmsRegExMatch('href="(.*?)"', aItemDescr, s3);
// if (s2 = 'Сериалы') or (s2 = '- Русские сериалы') or (s2 = '- Зарубежные сериалы') or (s2 = 'Аниме') or (s2 = 'HQ качество') then //
if (s2 = 'HD') then
begin
s2:= '';
s3:= '';
end
else
begin
Item := Folderitem.AddFolder(kat,true).AddFolder('http://tuchkatv.ru' + s3, false); // Создаём подкаст (Сериал)
s2:=ReplaceStr(s2, '\',' ');
s2:=ReplaceStr(s2, '/',' ');
s2:=ReplaceStr(s2, '<br/>',' ');
s2 := Uppercase(s2) ;
Item[mpiTitle] := s2; // Название
// HmsRegExMatch('<img src="(.*?)"', aItemDescr, img);
//ShowMessage(img);
//exit;
// Item.Properties[mpiThumbnail] := 'http://tuchkatv.ru' +img ; //картинка
end;
end; // конец процедуры
begin
FolderItem.DeleteChildItems;
sWebPage1 := HmsDownloadURL(mpFilePath);
sWebPage1 :=HmsUtf8Decode (sWebPage1);
sWebPage1 :=HmsRemoveLineBreaks(sWebPage1);
HmsRegExMatch('<ul id="slidemenu" class="reset">(.*?)<div class="wwide footbg">', sWebPage1, sWebPage1);
ItemsRegExpr1 := TRegExpr.Create('<li>(.*?)</li>',PCRE_SINGLELINE); //создать объект с содерж. между кавычек
try
if ItemsRegExpr1.Search(sWebPage1) then repeat //искать в исх.строке объект и повторять
serial(ItemsRegExpr1.Match) //запускать процедуру получения свойств фильма каждый раз как найден объект
until not ItemsRegExpr1.SearchAgain;
finally
ItemsRegExpr1.Free;
end;
HmsHideInformation ;
// Hmslogmessage(1,'добавлено сериалов '+inttostr(kols));
end.
572
PascalScript
570
1
245
45b87c96-af17-42a6-8960-e7ca02bf3cf0
93
42242,9239712732
4
Категории
530
const
PCRE_CASELESS = $00000001;
PCRE_DOTALL = $00000004;
PCRE_SINGLELINE = PCRE_CASELESS + PCRE_DOTALL; //нужны для класса TRegExpr
var
jpg1,jpg,pap,id,kat,nazva: string; //объявляем строки
i,j,grp:Integer; //объявляем целые числа
ItemsRegExpr,ItemsRegExpr1: TRegExpr; //объявляем объект из класса TRegExpr
sWebPage,sWebPage1,total,total1: string; //объявляем строки
procedure ProcessItem1(const aItemDescr: string); // процедура обработки инфы о видео , aItemDescr -строка с инфой о видео
var
Item: THmsScriptMediaItem; //объявляем файл в списке медиафайлов
sItemLink1,sItemLink,s: string;
begin
HmsRegExMatch('href="(.*?)"', aItemDescr, sItemLink);
HmsRegExMatch('http://tuchkatv.ru/.*?-(.*?).html', sItemLink, nazva);
Item := HmsCreateMediaItem(sItemLink, FolderItem.ItemID);
// Item := HmsCreateMediaItem(sItemLink+'&n='+IntToStr(FolderItem.ChildCount), FolderItem.ItemID );
HmsRegExMatch('канал(.*?)онлайн', aItemDescr, sItemLink); //Смотреть
// ShowMessage(sItemLink);
if (Pos('http',sItemLink)<>0) then
sItemLink := nazva;
if sItemLink='' then
sItemLink := nazva;
sItemLink := Uppercase(sItemLink) ;
Item.Properties[mpiTitle] := sItemLink ;
HmsRegExMatch('/uploads(.*?)png', aItemDescr, jpg);
jpg1 := 'http://tuchkatv.ru/uploads' + jpg + 'png';
Item.Properties[mpiThumbnail] := jpg1;
end;
//Тут начинается сама программа
begin
FolderItem.DeleteChildItems; //удаляем список видеофайлов
HmsShowInformation(mptitle);
sWebPage1 := HmsDownloadURL(mpFilePath); //загружаем главную страницу сайта
sWebPage1 :=HmsUtf8Decode(sWebPage1); //переводим из уникода
sWebPage1 :=HmsRemoveLineBreaks(sWebPage1); //убираем переводы строки
HmsRegExMatch('<div id="midside" class="lcol">(.*?)<div id="sidebar" class="rcol">', sWebPage1, sWebPage1);
ItemsRegExpr1 := TRegExpr.Create('<div class="maincont">(.*?)<div class="clr">',PCRE_SINGLELINE); //создать объект с содерж. между кавычек (инфа о категории) искать между подстрокой (<li>) и (</li>)
try
if ItemsRegExpr1.Search(sWebPage1) then repeat //искать в исх.строке объект и повторять
// ShowMessage(ItemsRegExpr1.Match);
ProcessItem1(ItemsRegExpr1.Match) // запускать процедуру обработки категории каждый раз как найден объект ItemsRegExpr1.Match = aItemDescr
until not ItemsRegExpr1.SearchAgain;
finally
ItemsRegExpr1.Free //освободить объект
end ;
HmsHideInformation;
end.
531
PascalScript
-
53
261dbe3c4464fc404fa1f459f82034e3
http://tuchkatv.ru/razvlekatelnye/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
Развлекательные
93
42243,5408579282
525
42457,8907174074
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
261dbe3c4464fc404fa1f459f82034e3
-
53
d966a3fea0ef906fd7b9ad26b654a8bc
http://tuchkatv.ru/poznavatelnye/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
4
Познавательные
93
42243,5408579282
525
42457,8907217361
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
d966a3fea0ef906fd7b9ad26b654a8bc
50
AceStream (ACEPLAYER - FFMPEG)
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';
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 := 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 (ACEPLAYER - FFMPEG)
-1
37
09d8f390-166e-4b6d-88cf-64820cf53475
-
53
433fddfcda50b2e329ebfdf7c353c5d0
http://tuchkatv.ru/kino-serialy/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
Фильмы
93
42243,5408579282
525
42457,8907261806
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
433fddfcda50b2e329ebfdf7c353c5d0
-
53
a263baaa04168cad5b8e0f9c5c0aba29
http://tuchkatv.ru/obschestvennye/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
Общественные
93
42243,5408579282
525
42457,8907313889
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
a263baaa04168cad5b8e0f9c5c0aba29
-
53
dfac16efd39de296f5759fbe73a74393
http://tuchkatv.ru/muzykalnye/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
Музыкальные
93
42243,5408579282
525
42457,8907370255
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
dfac16efd39de296f5759fbe73a74393
-
53
97f3053a0be7a2b02097fdb2005d38f5
http://tuchkatv.ru/sportivnye/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
Спортивные
93
42243,5408579282
525
42457,8907446991
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
97f3053a0be7a2b02097fdb2005d38f5
-
53
61e513b7fc95779bebb05f35bad9def0
http://tuchkatv.ru/novostnye/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
Новостные
93
42243,5408579282
525
42457,8907489468
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
61e513b7fc95779bebb05f35bad9def0
-
53
1b68f407abc86141a010a2424057ab73
http://tuchkatv.ru/detskie/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
Детские
93
42243,5408579282
525
42457,8907534375
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
1b68f407abc86141a010a2424057ab73
-
53
f856d65364f5b7469eba11cda23f519d
http://tuchkatv.ru/regionalnye/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
Региональные
93
42243,5408579282
525
42457,8907568403
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
f856d65364f5b7469eba11cda23f519d
-
53
7efe363344781686471d1031f1a2f576
http://tuchkatv.ru/religioznye/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
Религиозные
93
42243,5408579282
525
42457,8907600116
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
7efe363344781686471d1031f1a2f576
-
53
30e02830633456f4e5893325f79dd68c
http://tuchkatv.ru/18/
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
2
512
2
532
2
700
2
553
2
42
3
4
XXX
93
42243,5408579282
525
42457,8907642477
701
-1
702
-1
517
578-720,722-1080,482-576,402-480,322-400,202-320,0-200
518
0
522
0
245
30e02830633456f4e5893325f79dd68c
-
53
ada5988e-7e57-4c90-b770-a60bf877c62d
http://tuchkatv.ru/hd
45b87c96-af17-42a6-8960-e7ca02bf3cf0
515
1
512
2
532
1
700
2
553
2
42
3
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
ada5988e-7e57-4c90-b770-a60bf877c62d
93
42243,3496395718
530
const
PCRE_CASELESS = $00000001;
PCRE_DOTALL = $00000004;
PCRE_SINGLELINE = PCRE_CASELESS + PCRE_DOTALL; //нужны для класса TRegExpr
var
jpg1,jpg,pap,id,kat,nazva: string; //объявляем строки
i,j,grp:Integer; //объявляем целые числа
ItemsRegExpr,ItemsRegExpr1: TRegExpr; //объявляем объект из класса TRegExpr
sWebPage,sWebPage1,total,total1: string; //объявляем строки
procedure ProcessItem1(const aItemDescr: string); // процедура обработки инфы о видео , aItemDescr -строка с инфой о видео
var
Item: THmsScriptMediaItem; //объявляем файл в списке медиафайлов
sItemLink1,sItemLink,s: string;
begin
HmsRegExMatch('href="(.*?)"', aItemDescr, sItemLink);
HmsRegExMatch('http://tuchkatv.ru/.*?-(.*?).html', sItemLink, nazva);
Item := HmsCreateMediaItem(sItemLink, FolderItem.ItemID);
// Item := HmsCreateMediaItem(sItemLink+'&n='+IntToStr(FolderItem.ChildCount), FolderItem.ItemID );
HmsRegExMatch('канал(.*?)онлайн', aItemDescr, sItemLink); //Смотреть
// ShowMessage(sItemLink);
if (Pos('http',sItemLink)<>0) then
sItemLink := nazva;
if sItemLink='' then
sItemLink := nazva;
sItemLink := Uppercase(sItemLink) ;
Item.Properties[mpiTitle] := sItemLink ;
HmsRegExMatch('/uploads(.*?)png', aItemDescr, jpg);
jpg1 := 'http://tuchkatv.ru/uploads' + jpg + 'png';
Item.Properties[mpiThumbnail] := jpg1;
end;
//Тут начинается сама программа
begin
FolderItem.DeleteChildItems; //удаляем список видеофайлов
HmsShowInformation(mptitle);
sWebPage1 := HmsDownloadURL(mpFilePath); //загружаем главную страницу сайта
sWebPage1 :=HmsUtf8Decode(sWebPage1); //переводим из уникода
sWebPage1 :=HmsRemoveLineBreaks(sWebPage1); //убираем переводы строки
HmsRegExMatch('<div id="midside" class="lcol">(.*?)<div id="sidebar" class="rcol">', sWebPage1, sWebPage1);
ItemsRegExpr1 := TRegExpr.Create('<div class="maincont">(.*?)<div class="clr">',PCRE_SINGLELINE); //создать объект с содерж. между кавычек (инфа о категории) искать между подстрокой (<li>) и (</li>)
try
if ItemsRegExpr1.Search(sWebPage1) then repeat //искать в исх.строке объект и повторять
// ShowMessage(ItemsRegExpr1.Match);
ProcessItem1(ItemsRegExpr1.Match) // запускать процедуру обработки категории каждый раз как найден объект ItemsRegExpr1.Match = aItemDescr
until not ItemsRegExpr1.SearchAgain;
finally
ItemsRegExpr1.Free //освободить объект
end ;
HmsHideInformation;
end.
531
PascalScript
525
42457,8907715972
-
53
64832dfe-9755-4ed5-9b54-f9b2fe11b6a5
165683c1-2fb0-4545-85f9-385133cba960
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
64832dfe-9755-4ed5-9b54-f9b2fe11b6a5
93
42243,3532790741
525
42457,8907715972
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';
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 := 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 (ACEPLAYER - FFMPEG)
-1
37
09d8f390-166e-4b6d-88cf-64820cf53475