3 53 0959a36b-22f4-424c-aff2-68c2163d394e CyberHouse 234DF17B-418C-4FDC-9DFE-CD0C586D2E76 4 CyberHouse 50 Интернет-телевидение 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 0959a36b-22f4-424c-aff2-68c2163d394e 93 42037,9642572685 530 int gnTotal=0, gnImagesNotFound=0; // ---------------------------------------------------------------------------- void LoadPlaylist() { string sData, sLink, sName, sGrp, sFile, sImg, sVal, group, sReplaceWhat='', sReplaceWith=''; THmsScriptMediaItem Item; sFile = mpFilePath; if (Trim(mpComment)!='') sFile = mpComment; HmsRegExMatch('--playlist="(.*?)"' , mpPodcastParameters, sFile); HmsRegExMatch('--replaceWhat="(.*?)"', mpPodcastParameters, sReplaceWhat); HmsRegExMatch('--replaceWith="(.*?)"', mpPodcastParameters, sReplaceWith); if (HmsRegExMatch('^http', sFile, '')) sData = HmsDownloadUrl(sFile, '', true); else sData = HmsStringFromFile(sFile); sData = HmsUtf8Decode(sData); if (sReplaceWhat!='') sData = ReplaceStr(sData, sReplaceWhat, sReplaceWith); TRegExpr RE = TRegExpr.Create('#EXTINF:-?\\d?,?(.*?)[\\r\\n]([^\\r\\n]+)[\\r\\n$]', PCRE_SINGLELINE); try { if (RE.Search(sData)) do { sName = RE.Match(1); sLink = RE.Match(2); sGrp = ''; if (HmsRegExMatch('group-title="(.*)"', sName, sGrp)) sName = ReplaceStr(sName, sGrp, ''); sName = ReplaceStr(sName, 'group-title="", ', ''); sName = Trim(sName); Item = HmsCreateMediaItem(sLink, FolderItem.ItemID, sGrp); Item[mpiTitle] = sName; Item[mpiThumbnail] = 'http://wonky.lostcut.net/TVimg/'+sName+'.png'; gnTotal++; if (HmsRegExMatch('\\b(HD)\\b', sName, sGrp)) { Item = HmsCreateMediaItem(sLink, FolderItem.ItemID, sGrp); Item[mpiTitle ] = sName; Item[mpiThumbnail] = 'http://wonky.lostcut.net/TVimg/'+sName+'.png'; } } while (RE.SearchAgain()); } finally { RE.Free(); } HmsLogMessage(1, 'Всего каналов: '+IntToStr(gnTotal)); } // ---------------------------------------------------------------------------- { FolderItem.DeleteChildItems(); LoadPlaylist(); } 531 C++Script 527 --replaceWhat="tvg-shift=0" --replaceWith="" 525 42048,4709412847 550 string csCommandLine = 'cmd://"%s" --no-crashdump --play-and-exit --language en -Idummy --demuxdump-file="<OUTPUT FILE>" vlc://pause:4 --access=p2p_access "%s" :demux=dump'; // --------------------------------------- Получение пути AceStream плеера ---- string GetTsPlayerPath() { return ExtractShortPathName(IncludeTrailingBackslash(RegistryRead('Software\\AceStream\\InstallDir')))+'Player\\ace_player.exe'; } // ---------------------------------------------------------------------------- void GetTTVLink() { string sData, sLink, sID = ''; if (HmsRegExMatch('acestream://(.*)', mpFilePath, sID)) { HmsLogMessage(1, mpTitle+': Открываем по ID в ссылке'); } else if (HmsRegExMatch('/pid/.*?/stream.mp4', mpFilePath, '')) { MediaResourceLink = mpFilePath; } else { sData = HmsUtf8Decode(HmsDownloadURL(mpFilePath, '', true)); if (HmsRegExMatch('loadTorrent\\("(.*?)"', sData, sLink)) { sID = HmsTempDirectory() + '\\' + mpTitle + '.acelive'; HmsDownloadURLToFile(sLink, sID); HmsLogMessage(1, mpTitle+': Открываем по торрент файлу'); } else if (HmsRegExMatch('this.loadPlayer\\("(.*?)"', sData, sID)) { HmsLogMessage(1, mpTitle+': Открываем по ID в загруженной странице'); } else { //HmsLogMessage(2, mpTitle+': Ошибка! Не найден ID или ссылка на torrent файл.'); //return; } } if (sID!='') MediaResourceLink = Format(csCommandLine, [GetTsPlayerPath(), sID]); else MediaResourceLink = mpFilePath; } // ---------------------------------------------------------------------------- { GetTTVLink(); } 551 C++Script 41 http://sblack/cybephouse.pl 42 1 43 video/mpeg VLC %Registry\SOFTWARE\VideoLAN\VLC\InstallDir%\vlc.exe http://www.videolan.org http://www.videolan.org VLC mpInternetItem PascalScript Транскодирование для интернет медиа-ресурсов 3 0 function GetAudioCodec: string; begin if Pos('wmv', cfgTranscodingTvsetMimeType) > 0 then Result := 'wma2' else if (Pos('IPOD', UpperCase(cfgDeviceType)) > 0) or (Pos('LG', UpperCase(cfgDeviceType)) = 1) or SameText(cfgTranscodingAudioCodec, 'AAC') or (Pos('flv', cfgTranscodingTvsetMimeType) > 0) then Result := 'aac' else if Pos('SONY', UpperCase(cfgDeviceType)) > 0 then Result := 'mpga' else Result := 'mpga' end; function GetFileFormat: string; begin if Pos('wmv', cfgTranscodingTvsetMimeType) > 0 then Result := 'asf' else if Pos('flv', cfgTranscodingTvsetMimeType) > 0 then Result := 'ffmpeg{mux=flv}' else if (Pos('MPEGTS', cfgTranscodingFileFormat) > 0) or (Pos('SONY', UpperCase(cfgDeviceType)) > 0) or (Pos('IPOD', UpperCase(cfgDeviceType)) > 0) then Result := 'ts' else Result := 'mpeg1' end; function GetVideoCodec: string; begin if Pos('wmv', cfgTranscodingTvsetMimeType) > 0 then if SameText(cfgTranscodingVideoCodec, 'X264') and (Pos('ASF', cfgTranscodingFileFormat) > 0) then Result := 'h264' else Result := 'wmv2' else if (Pos('IPOD', UpperCase(cfgDeviceType)) > 0) or SameText(cfgTranscodingVideoCodec, 'X264') or (Pos('flv', cfgTranscodingTvsetMimeType) > 0) then Result := 'h264' else Result := 'mp2v' end; function GetSampleRate: Integer; begin if SameText(cfgTranscodingFileFormat, 'FLV') then Result := 44100 else Result := 48000 end; const csVideoLanParams = '--no-crashdump -Idummy --language=en%s%s --sout-ffmpeg-rc-buffer-size=%d %s--sout=#%stranscode' + '{vcodec=%s,vb=%d,fps=%s,scale=1%s,acodec=%s,ab=%d,channels=2,' + 'samplerate=%d%s%s}:duplicate{dst=std{access=file,mux=%s,dst="<OUTPUT FILE>"}}' + '%s "<INPUT FILE>"'; // vlc:quit var i, iWidth, iHeight, iAspectWidth, iAspectHeight, iAudioStreamID: Integer; sAudioTrackID, sCanvasParams, sFrameRate, sDeinterlace, sGather, sInternetTelevisionSplash, sKeepOut, sSubtitleParams, sSubtitleStreamID, sSubtitleLanguage, sSubtitleOverlay: string; begin if HmsGetVideoSettings(vstDeinterlace) = 'on' then sDeinterlace := ',deinterlace' else sDeinterlace := ''; if cfgInternetTelevisionSplash <> '' then begin sInternetTelevisionSplash := Format(' "%s"', [cfgInternetTelevisionSplash]); sGather := 'gather:'; sKeepOut := '--sout-keep '; end else begin sInternetTelevisionSplash := ''; sGather := ''; sKeepOut := '' end; if mpInternetItem then sFrameRate := '24' else if cfgTranscodingFrameRate <> '' then sFrameRate := cfgTranscodingFrameRate else if mpFrameRate > 0 then sFrameRate := FormatFloat('0.000', mpFrameRate) else sFrameRate := '25'; if SameFloat(sFrameRate, '23.976') then sFrameRate := '24' else if SameFloat(sFrameRate, '29.970') then sFrameRate := '30' else if SameFloat(sFrameRate, '59.940') then sFrameRate := '60'; iWidth := mpWidth; if iWidth > 0 then begin i := Pos(':', cfgTranscodingScreenFormat); if i > 0 then begin iAspectWidth := StrToIntDef(Copy(cfgTranscodingScreenFormat, 1, i - 1), 16); iAspectHeight := StrToIntDef(Copy(cfgTranscodingScreenFormat, i + 1, 10), 9); end else begin iAspectWidth := 16; iAspectHeight := 9 end; if iWidth > cfgTranscodingScreenWidth then iWidth := cfgTranscodingScreenWidth; if iWidth > 1280 then iWidth := 1280; iHeight := Round((iWidth / iAspectWidth) * iAspectHeight); if iHeight mod 2 <> 0 then Inc(iHeight); sCanvasParams := Format(',vfilter={canvas{width=%d,height=%d,aspect=%s}}', [iWidth, iHeight, cfgTranscodingScreenFormat]); end else sCanvasParams := ''; if mpAudioStreamNo >= 0 then begin iAudioStreamID := HmsGetStreamID(stAudio, mpAudioStreamNo); if iAudioStreamID < 100 then sAudioTrackID := ' --audio-track=' + IntToStr(mpAudioStreamNo) else sAudioTrackID := ' --audio-track-id=' + IntToStr(iAudioStreamID) end else sAudioTrackID := ''; sSubtitleParams := ''; sSubtitleOverlay := ''; if mpSubtitleLanguage <> '' then begin if HmsRegExMatch('(.*?) ', mpSubtitleLanguage, sSubtitleLanguage) and (Trim(sSubtitleLanguage) <> '') then sSubtitleParams := ' --sub-language=' + sSubtitleLanguage else if HmsRegExMatch('\[0x(.*?)\]', mpSubtitleLanguage, sSubtitleStreamID) then sSubtitleParams := ' --sub-track-id=' + IntToStr(StrToIntDef('$' + sSubtitleStreamID, 0)); if sSubtitleParams <> '' then sSubtitleOverlay := ',soverlay' end; TranscodingParams := Format(csVideoLanParams, [sAudioTrackID, sSubtitleParams, HmsTranscodingBufferSize(Min(cfgTranscodingVideoBitrate, 12000000)), sKeepOut, sGather, GetVideoCodec, Min(cfgTranscodingVideoBitrate div 1000, 12000), sFrameRate, sCanvasParams, GetAudioCodec, Min(cfgTranscodingAudioBitrate div 1000, 192), GetSampleRate, sDeinterlace, sSubtitleOverlay, GetFileFormat, sInternetTelevisionSplash]); end. PascalScript Интернет-телевидение -1 30 1C044A2C92D743E0A29B8EBD557961F1