ACEPLAYER %Registry\SOFTWARE\AceStream\InstallDir%\player\ace_player.exe http://www.acestream.org http://www.acestream.org 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 32 c7cead5f-1074-4d61-9b17-b89176b01197