3 53 0c189586-ac4a-4e33-8912-80bc12095ccf http://www.vipsop.su/ 234DF17B-418C-4FDC-9DFE-CD0C586D2E76 4 Vipsop 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 530 /////////////////////////////////////////////////////////////////////////////// // Г Л О Б А Л Ь Н Ы Е П Е Р Е М Е Н Н Ы Е // int gnItemsAdded = 0; string gsUrlBase = mpFilePath; TDateTime gTimeStart = Now; // Регулярные выражения для поиска на странице блоков с информацией о сериалах string gsPatternBlock = '<div\\s+class="tv-list-block\\sffl">(.*?)<\\/p>\\s+<\\/div>', // Блоки, содержащие нужную информацию gsPatternBlock2 = '<div\\s+class="tv">(.*?)<\\/div>\\s*<\\!-- \\/edit-text -->', // Блоки, содержащие нужную информацию gsPatternCut = '<div\\s+class="main-center\\sffl">(.*?)\\/tv-list -->', // Выражение для вырезки нужного куска из html для поиска ссылок в нём gsPatternTitle = '<p>\\[\\d+\\](.*?)</p>', // Название gsPatternLink = '<a[^>]+href="\\.\\.\\/(.*?)"', // Ссылка gsPatternLink2 = '<iframe scrolling="no" frameborder="0" src="(.*?)"', gsPatternLink3 = 'loadPlayer\\("(.*?)"', gsPatternImg = '<img[^>]+src="(.*?)"', // Картинка 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="") { THmsScriptMediaItem Item = HmsCreateMediaItem(sLink, Folder.ItemID, ""); Item[mpiTitle ] = sTitle; Item[mpiCreateDate] = VarToStr(IncTime(gTimeStart,0,-gnItemsAdded,0,0)); Item[mpiTimeLength] = 4800; Item[mpiThumbnail ] = sImg; Item[mpiComment ] = sComment; Item[mpiInternetItem] = true; gnItemsAdded++; return Item; } // -------------------- Загрузка страниц, поиск и создание ссылок на видео ---- void CreateLinks() { string sHtml, sHtml2, sData, sName, sLink, sLink2, sImg, sGrp, sComment; TRegExpr RE; THmsScriptMediaItem Item, Folder = FolderItem; bool bGroup=false; // Загружаем страницу sHtml = HmsDownloadURL(mpFilePath, 'Referer: '+gsUrlBase, true); // Убираем переносы, чтобы далее в 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=""; sLink=""; sImg=""; HmsRegExMatch(gsPatternTitle, RE.Match + '</p>', sName); // Название HmsRegExMatch(gsPatternLink , RE.Match, sLink); // Ссылка на сериал HmsRegExMatch(gsPatternImg , RE.Match, sImg ); // Картинка if (Length(sLink) < 4) continue; // Приводим в порядок полученные данные sLink = HmsExpandLink(sLink, gsUrlBase)+'/'; sName = HmsHtmlToText(sName); sName = ReplaceStr(sName, "\n", " "); sName = ReplaceStr(sName, "\r", ""); if (sImg) sImg = HmsExpandLink(sImg, gsUrlBase); // Загружаем страницу с описанием телеканала sHtml2 = HmsRemoveLineBreaks(HmsUtf8Decode(HmsDownloadURL(sLink, 'Referer: '+gsUrlBase, true))); HmsRegExMatch(gsPatternBlock2, sHtml2, sHtml2); HmsRegExMatch(gsPatternComment, sHtml2, sComment ); // Комментарий sComment = HmsHtmlToText(sComment); HmsRegExMatch(gsPatternLink2, sHtml2, sLink2 ); // Ссылка на торрент-тв // Загружаем страницу с плейером торрент тв sHtml2 = HmsRemoveLineBreaks(HmsUtf8Decode(HmsDownloadURL(sLink2, 'Referer: '+sLink, true))); HmsRegExMatch(gsPatternLink3, sHtml2, sLink ); // идентификатор AceStream if (bGroup) { // Группируем по-алфавиту sGrp = GetGroupName(sName); Folder = CreateFolder(FolderItem, sGrp); } // Создаём ресурс //CreateFolder(Folder, sLink, sName, sImg, sComment); AddMediaItem(Folder, sLink, sName, sImg, sComment); } while (RE.SearchAgain()); // Ищем пока ищется } finally { RE.Free(); } // Освобождаем объекты из памяти if (bGroup) FolderItem.Sort("mpTitle"); } /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // // ---------------------------------------------------------------------------- { FolderItem.DeleteChildItems(); // Удаление существующих ссылок CreateLinks(); // Загрузка страницы, поиск и создание ссылок HmsLogMessage(1, mpTitle+': Создано ссылок - '+IntToStr(gnItemsAdded)); } 531 C++Script 532 1 553 0 522 0 245 0c189586-ac4a-4e33-8912-80bc12095ccf 93 42355,9779820602 525 42358,7940860417 41 Спортивное on-line телевидение VIPSOP.su. Бесплатный просмотр прямых трансляций спортивных событий, как в высоком качестве (HD), так и в стандартном (SD) 55 http://www.vipsop.su/logo.png 43 video/mpeg 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 video/mpeg begin HmsLogMessage(1, 'cfgTranscodingFileFormat: '+ cfgTranscodingFileFormat); if SameText(cfgTranscodingFileFormat, 'MPEG (DVD)') then FileExt := 'mpg' else if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then FileExt := 'ts' else if Pos('ASF', cfgTranscodingFileFormat) > 0 then FileExt := 'wmv' else if SameText(cfgTranscodingFileFormat, 'MP4') then FileExt := 'mp4' else if SameText(cfgTranscodingFileFormat, 'MPEG1') then FileExt := 'mpeg' else FileExt := ''; if FileExt <> '' then MimeType := HmsGetMimeType(FileExt) else MimeType := '' //cfgTranscodingVideoMimeType end. PascalScript 1 const csVlcParams = '-Idummy --language en vlc://pause:2 --demuxdump-file="%s" --access=p2p_access "%s" :demux=dump'; var sFileType, sInputFileName, sMediaResourceLink, sReadPipeName, sWritePipeName, sTranscodingParams: string; begin TranscodingResult := False; sInputFileName := InputFileName; HmsLogMessage(1, 'Start transcoding '+InputFileName+' @ '+HmsGetItemProperty(mpiMediaResourceLink)); 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 else begin sInputFileName := HmsGetItemProperty(mpiMediaResourceLink); 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