3 53 3cae0728-027a-4de4-9a49-4d684a026fb0 234DF17B-418C-4FDC-9DFE-CD0C586D2E76 4 0001.webtv.md 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 const PCRE_CASELESS = $00000001; PCRE_DOTALL = $00000004; PCRE_SINGLELINE = PCRE_CASELESS + PCRE_DOTALL; INTERNET_FLAG_NO_AUTO_REDIRECT = $00200000; var s,s1,reg,ini, file,kat,id,id1,pap,foto,foto1,anul,mes,god,pl,vol,seed,VerGen: string; gsHeaders, gsRec,sAnswHeaders,sRedirectLink: string; j,ind,i,aPercent,e,grp:Integer; ItemsRegExpr,ItemsRegExpr1,ItemsRegExpr2: TRegExpr; sWebPage,sWebPage1,sWebPage2,total,total1,sJsonResponse: string; Item: THmsScriptMediaItem; myYear, myMonth, myDay, : Word; sItemLink: string; procedure film(const aItemDescr: string); // выделение свойств фильмов в строке var Item: THmsScriptMediaItem; // строчка в перечне фильмов sItemLink,s: string; sItemAdr,sItemDenum,sItemImg,v,sItemID: string; begin // начало процедуры i := i + 1 ; if i > 200 then begin grp := grp + 1 ; i := 1 ; end; sItemAdr := ''; //ShowMessage(aItemDescr) ; HmsRegExMatch3('id":(.*?),.*?thumbnail":"(.*?)".*?"name":"(.*?)"', aItemDescr, sItemID, sItemImg, sItemDenum ); // в строку sItemLink вставить то что между (href=") и (") из aItemDescr sItemLink := 'http://webtv.md/view_channel.jsp?id=' + sItemID ; Item := HmsCreateMediaItem(sItemLink, FolderItem.ItemID, pap ); //создать пункт со ссылкой на фильм Item.Properties[mpiTitle] := Format('%.2d', [i]) + '. ' + sItemDenum ; //название Item.Properties[mpiThumbnail] := '' +sItemImg ; //картинка // Item.Properties[mpiComment] := sItemLink ; //Содержание // Item.Properties[mpiTimeLength] := '01:40:00.000' ; //продолжительность end; // конец процедуры // ----------------------------------------------------------------------------------------------------- procedure regiune(const aItemDescr: string); // выделение свойств фильмов в строке var Item: THmsScriptMediaItem; // строчка в перечне фильмов sItemLink,s: string; sItemAdr,sItemDenum,sItemImg,v: string; begin // начало процедуры // ShowMessage(aItemDescr) ; HmsRegExMatch('type-post_type.*?<span>(.*?)</span>', aItemDescr, reg); aItemDescr := '333' + aItemDescr + '444333'; HmsRegExMatch('333(.*?)333', aItemDescr, s); ItemsRegExpr1 := TRegExpr.Create('<li id="menu-item-(.*?)</a></li>',PCRE_SINGLELINE); //создать объект try if ItemsRegExpr1.Search(s) then repeat //искать в исх.строке объект и повторять film(ItemsRegExpr1.Match) //запускать процедуру получения свойств фильма каждый раз как найден объект until not ItemsRegExpr1.SearchAgain; finally ItemsRegExpr1.Free //освободить объект end; end; // конец процедуры // ----------------------------------------------------------------------------------------------------- begin grp := 1; FolderItem.DeleteChildItems; gsHeaders := 'Accept: application/json, text/javascript, */*; q=0.01'#10#13; gsHeaders := gsHeaders+'X-Requested-With: XMLHttpRequest'#10#13; gsHeaders := gsHeaders+'User-Agent: Mozilla/5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/47.0.2526.73 Safari/537.36'#10#13; gsHeaders := gsHeaders+'Referer: http://webtv.md/view_channel.jsp?id=185'#10#13; sJsonResponse := HmsSendRequest('webtv.md', '/service/video/channels', 'GET', 'application/x-www-form-urlencoded',gsHeaders,'',80); sJsonResponse := HmsUtf8Decode(sJsonResponse); total := HmsJsonDecode(sJsonResponse); ItemsRegExpr := TRegExpr.Create('{(.*?)}',PCRE_SINGLELINE); //создать объект try if ItemsRegExpr.Search(total) then repeat //искать в исх.строке объект и повторять film(ItemsRegExpr.Match) //запускать процедуру получения свойств фильма каждый раз как найден объект until not ItemsRegExpr.SearchAgain; finally ItemsRegExpr.Free //освободить объект end ; HmsHideInformation; end . 531 PascalScript 532 1 553 1 522 0 245 3cae0728-027a-4de4-9a49-4d684a026fb0 93 42374,8914128704 550 Var gsUrlBase: String = "http://webtv.md"; // --- Формирование ссылки канала с сайта webtv.md ---------------------------- Procedure GetLink_WebTv(); Var sLink, sID, sXml, sServ, sApp, sFlashVer, sFlashUrl, sPlaypath: String; Begin HmsRegExMatch('id=(\d+)', mpFilePath, sID); sXml := HmsDownloadURL(gsUrlBase+'/service/streams/'+sID, 'Referer: '+mpFilePath, True); HmsRegExMatch('<name>(.*?)</name>' , sXml, sPlaypath); HmsRegExMatch('<rtmp_server>(.*?)</rtmp_server>', sXml, sServ ); sApp := 'live'; sFlashVer := 'WIN 18,0,0,232'; sFlashUrl := 'http://webtv.md/swf/WebTV.swf'; // sLink := Format('rtmpdump.exe "%s" --app "%s" --flashVer "%s" -W "%s" --pageUrl "%s" --playpath "%s"', sLink := Format('-r "%s" --app "%s" --flashVer "%s" -W "%s" --pageUrl "%s" --playpath "%s"', [sServ, sApp, sFlashVer, sFlashUrl, mpFilePath, sPlaypath]); MediaResourceLink := sLink; End; /////////////////////////////////////////////////////////////////////////////// // Г Л А В Н А Я П Р О Ц Е Д У Р А // Begin GetLink_WebTv(); End. 551 PascalScript 525 42374,8918289931