3 53 03436d33-e100-4f5b-adec-8edd911ef3d6 https://vk.com/football_acestream 234DF17B-418C-4FDC-9DFE-CD0C586D2E76 4 Football 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 0 522 0 245 03436d33-e100-4f5b-adec-8edd911ef3d6 93 42989,0196146759 530 /////////////////////////////////////////////////////////////////////////////// int INTERNET_FLAG_NO_AUTO_REDIRECT = 0x200000, INTERNET_FLAG_RELOAD = 0x80000000, INTERNET_FLAG_NO_COOKIES = 0x00080000; // Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е // string gsUrlBase = mpFilePath; TDateTime gTimeStart = Now; int gnItemsAdded = 0; // Флаг группировки ссылок в папки по буквам алфавита bool bGroup=false; // Регулярные выражения для поиска на странице блоков с информацией о сериалах string // Шаблон поиска фрейма/раздела со списком gsPatternCut = '<div\\s+id="page_wall_posts"(.*?)\\id="wall_more_link"', // Выражение для вырезки нужного куска из html для поиска ссылок в нём // Шаблон поиска повторяющегося блока с информацией о трансляции gsPatternBlock = '<div\\s+class="wall_text"(.*?)<\\/div>(\\s*<\\/div>){6}', // Шаблон поиска Названия трансляции gsPatternTitle = 'div\\s+class="wall_post_text">(.*?)<br>(.*?)<', // Шаблон поиска Ссылки на трансляцию gsPatternLink = 'acestream:\/\/(.*?)<', // Шаблон поиска Изображения gsPatternImg = 'background-image: url\\((.*?)\\)', // gsPatternBlock2 = '<div\\s+class="tv">(.*?)<\\/div>\\s*<\\!-- \\/edit-text -->', // Блоки, содержащие нужную информацию gsPatternLink2 = '<iframe scrolling="no" frameborder="0" src="(.*?)"', gsPatternLink3 = 'loadPlayer\\("(.*?)"', gsPatternComment= '<p>(.*?)</p>' ; /////////////////////////////////////////////////////////////////////////////// // Ф У Н К Ц И И // // ------------------------------------ Получение название группы из имени ---- string GetGroupName(string sName) { string sGrp = '#'; if (HmsRegExMatch('([A-ZА-Я0-9])', sName, sGrp, 1, PCRE_CASELESS)) sGrp = Uppercase(sGrp); if (HmsRegExMatch('[0-9]', sGrp, sGrp)) sGrp = '#'; if (HmsRegExMatch('[A-Z]', sGrp, sGrp)) sGrp = 'A..Z'; return sGrp; } // -------------------------------------------------------- Создание папки ---- THmsScriptMediaItem CreateFolder(THmsScriptMediaItem ParentFolder, string sLink, string sTitle="", string sImg="", string sComment="") { THmsScriptMediaItem Item = ParentFolder.AddFolder(sLink); Item[mpiTitle ] = sTitle; Item[mpiCreateDate ] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); Item[mpiFolderSortOrder] = "-mpCreateDate"; Item[mpiThumbnail ] = sImg; Item[mpiComment ] = sComment; gnItemsAdded++; return Item; } // ---------------------------------------- Создание ссылки на видео ---------- THmsScriptMediaItem AddMediaItem(THmsScriptMediaItem Folder, string sLink, string sTitle="", string sImg="", string sComment="", string sRef="") { THmsScriptMediaItem i; i=Folder.FindItemByProperty(mpiFilePath,sLink); if(i!=nil) return nil; THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, ""); Item[mpiTitle ] = sTitle; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,0,-gnItemsAdded,0)); Item[mpiTimeLength] = 6300; Item[mpiThumbnail ] = sImg; Item[mpiComment ] = sComment; Item[mpiProgramID ] = gnItemsAdded; //sRef; Item[mpiInternetItem] = false; gnItemsAdded++; return Item; } // -------------------- Загрузка страниц, поиск и создание ссылок на видео ---- void CreateLinks() { string sHtml2, sData, sLink2; if (bGroup) FolderItem.Sort("mpTitle"); } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // // ---------------------------------------------------------------------------- { string sHtml, sName, sLink, sImg, sComment, sGrp; string sHeaders,sAnswerHeaders, sUrlServer, sRequestPage; string sName2, sTime; int iFlags; TRegExpr RE, RE2; THmsScriptMediaItem Item, Folder = FolderItem; //HmsLogMessage(1, mpTitle+': Очистка подкаста'); FolderItem.DeleteChildItems(); // Удаление существующих ссылок // Загружаем страницу // sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+mpFilePath, true); sHeaders = mpFilePath+'\nAccept-Encoding: gzip, deflate\nUser-Agent: Mozilla/5.0 (Windows NT 6.1; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/43.0.2357.130 Safari/537.36\n'; iFlags = INTERNET_FLAG_NO_COOKIES + INTERNET_FLAG_RELOAD; //+INTERNET_FLAG_NO_AUTO_REDIRECT; HmsRegExMatch('^https://(.*)', mpFilePath, sUrlServer); HmsRegExMatch2('^(.*?)(/.*)', sUrlServer, sUrlServer, sRequestPage); sHtml = HmsSendRequestEx(sUrlServer, sRequestPage, 'GET', 'application/x-www-form-urlencoded', sHeaders, '', 80, iFlags, sAnswerHeaders, true); sHtml = HmsUtf8Decode(sHtml); sHtml = HmsRemoveLineBreaks(sHtml); // Убираем переносы, чтобы далее в HmsRegExMatch не указывать PCRE_SINGLELINE sHtml = HmsRemoveLineBreaks(HmsUtf8Decode(sHtml)); // Если указана переменная gsPatternCut - вырезаем нужный кусок из HTML if (gsPatternCut!='') HmsRegExMatch(gsPatternCut, sHtml, sHtml); // Цикл создания ссылок RE = TRegExpr.Create(gsPatternBlock, PCRE_SINGLELINE); try { // В цикле перебираем блоки описаний трансляций if (RE.Search(sHtml)) do { sName=""; sImg=""; sComment=""; HmsRegExMatch2(gsPatternTitle, RE.Match, sName, sComment); // Название HmsRegExMatch2('^(.*?) \\| Начало в (.*?)\\s+', sComment, sComment, sTime); HmsRegExMatch(gsPatternImg , RE.Match, sImg ); // Картинка //if (sImg) sImg = HmsExpandLink(sImg, gsUrlBase); //HmsRegExMatch(gsPatternLink , RE.Match, sLink); // Ссылка на трансляцию RE2 = TRegExpr.Create(gsPatternLink, PCRE_SINGLELINE); try { if (RE2.Search(RE.Match)) do { sName2=""; sLink=""; HmsRegExMatch2('^(.*?)\\s+(.*?)$' , RE2.Match, sLink, sName2); sName2 = HmsHtmlToText(sTime + ' ' + sName + ' ' + sName2 + ' ' + sComment); sName2 = ReplaceStr(sName2, "\n", " "); sName2 = ReplaceStr(sName2, "\r", ""); AddMediaItem(Folder, sLink, sName2, sImg, sComment, ""); } while (RE2.SearchAgain()); } finally { RE2.Free(); } //if (bGroup) { // // Группируем по-алфавиту // sGrp = GetGroupName(sName); // Folder = CreateFolder(FolderItem, sGrp); //} } while (RE.SearchAgain()); // Ищем пока ищется } finally { RE.Free(); } // Освобождаем объекты из памяти HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded)); //HmsLogMessage(1, mpTitle+': Время работы (сек.) - '+FloatToStr((Now-gTimeStart)*3600.0)); } 531 C++Script 525 42993,9192950463 50 AceStream (Входной поток) 215 mpCreateDate 521 1 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