ACEPLAYER %Registry\SOFTWARE\AceStream\InstallDir%\player\ace_player.exe http://www.acestream.org http://www.acestream.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 36 09d8f390-166e-4b6d-88cf-64820cf53475 ACEPLAYER PascalScript Транскодирование для TorrentStream, AceStream медиа-ресурсов 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 GetSampleRate: Integer; begin if SameText(cfgTranscodingFileFormat, 'FLV') then Result := 44100 else Result := 48000 end; const csVideoLanParams = '--no-crashdump --play-and-exit -Idummy --language=en%s %s--sout=#%stranscode' + '{acodec=%s,ab=%d,channels=2,' + 'samplerate=%d}:duplicate{dst=std{access=file,mux=%s,dst="<OUTPUT FILE>"}}' + '%s --access=p2p_access "%s"'; // vlc:quit var i, iAudioStreamID: Integer; sAudioTrackID, sGather, sInputFileName, sMediaResourceLink, sInternetTelevisionSplash, sKeepOut: 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; if cfgInternetTelevisionSplash <> '' then begin sInternetTelevisionSplash := Format(' "%s"', [cfgInternetTelevisionSplash]); sGather := 'gather:'; sKeepOut := '--sout-keep '; end else begin sInternetTelevisionSplash := ''; sGather := ''; sKeepOut := '' end; 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 := ''; TranscodingParams := Format(csVideoLanParams, [sAudioTrackID, sKeepOut, sGather, GetAudioCodec, Min(cfgTranscodingAudioBitrate div 1000, 192), GetSampleRate, GetFileFormat, sInternetTelevisionSplash, sInputFileName]); end. PascalScript AceStream (Видео без изменения) -1 29 e750c8a7-46f7-4794-adaa-a4c58a717567 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 31 9b658aac-e270-40ba-9114-0ca9d833c2a1 ACEPLAYER PascalScript Транскодирование для TorrentStream, AceStream медиа-ресурсов 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 --play-and-exit -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 --access=p2p_access "%s"'; // vlc:quit var i, iWidth, iHeight, iAspectWidth, iAspectHeight, iAudioStreamID: Integer; sAudioTrackID, sCanvasParams, sFrameRate, sDeinterlace, sGather, sInternetTelevisionSplash, sInputFileName, sKeepOut, sMediaResourceLink, sSubtitleParams, sSubtitleStreamID, sSubtitleLanguage, sSubtitleOverlay: 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; 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, sInputFileName]); end. PascalScript AceStream (Перекодирование) -1 26 c7cead5f-1074-4d61-9b17-b89176b01197 ACEPLAYER PascalScript Транскодирование для TorrentStream, AceStream медиа-ресурсов 3 0 const csVideoLanParams = '--no-crashdump --play-and-exit -Idummy --language en%s --sout /%s:"<OUTPUT FILE>" --access=p2p_access "%s"'; function GetFileFormat(const aFileFormat: string): string; begin if Pos('ASF', aFileFormat) > 0 then Result := 'asf' else if Pos('MPEGTS', aFileFormat) > 0 then Result := 'ts' else Result := 'ps' end; var iAudioStreamID: Integer; sAudioTrackID, 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; 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 := ''; TranscodingParams := Format(csVideoLanParams, [sAudioTrackID, GetFileFormat(cfgTranscodingFileFormat), sInputFileName]) end. PascalScript AceStream (Ремуксирование) -1 35 1a85b66a-af4d-41f3-91ae-4cb5e64a86d2