ACEPLAYER %Registry\SOFTWARE\AceStream\InstallDir%\player\ace_player.exe http://www.acestream.org http://www.acestream.org DVPIPER Transcoders\dvpiper.exe http://www.cs.usyd.edu.au/~efax/DVPiper.html http://www.cs.usyd.edu.au/~efax/DVPiper.html FLAC Transcoders\flac.exe http://flac.sourceforge.net/ http://flac.sourceforge.net/download.html HDSDUMP Transcoders\hdsdump.exe http://lostcut.net/hdsdump/hdsdump.exe HMSMPEG hmsmpeg.exe http://www.ffmpeg.org/ HmsMPEG Hmsmpeg.exe http://www.ffmpeg.org/ IMAGEMAGICK %Registry\SOFTWARE\ImageMagick\Current\BinPath%\convert.exe http://www.imagemagick.org/script/index.php http://www.imagemagick.org/script/binary-releases.php#windows MAC Transcoders\MAC.exe http://www.monkeysaudio.com http://www.monkeysaudio.com/download.html MENCODER mencoder.exe http://www.mplayerhq.hu http://sourceforge.net/project/showfiles.php?group_id=205275 MPLEX Transcoders\mplex.exe http://mjpeg.sourceforge.net http://sourceforge.net/projects/mjpeg/files/ RTMPDUMP Transcoders\rtmpdump.exe http://rtmpdump.mplayerhq.hu http://rtmpdump.mplayerhq.hu/download/ SOX Transcoders\sox.exe http://sox.sourceforge.net http://sox.sourceforge.net TSMUXER Transcoders\tsMuxeR.exe http://www.smlabs.net/tsmuxer.html http://www.smlabs.net/tsmuxer.html VLC %Registry\SOFTWARE\VideoLAN\VLC\InstallDir%\vlc.exe http://www.videolan.org http://www.videolan.org WVUNPACK Transcoders\wvunpack.exe http://www.wavpack.com/ http://www.wavpack.com/downloads.html hmsMPEG hmsmpeg.exe http://www.ffmpeg.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 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 25 1C044A2C92D743E0A29B8EBD557961F1 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 GetSampleRate: Integer; begin if SameText(cfgTranscodingFileFormat, 'FLV') then Result := 44100 else Result := 48000 end; const csVideoLanParams = '--no-crashdump -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 "<INPUT FILE>"'; // vlc:quit var i, iAudioStreamID: Integer; sAudioTrackID, sGather, sInternetTelevisionSplash, sKeepOut: string; begin 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]); end. PascalScript Интернет-телевидение (Видео без изменения) -1 28 c4e9d0bd-4a79-48b7-b1d9-8d99678881e0 VLC PascalScript Транскодирование для интернет медиа-ресурсов 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 --no-crashdump -Idummy --language en --demuxdump-file="<OUTPUT FILE>" "<INPUT FILE>" :demux=dump vlc://quit Нет скрипта Интернет-телевидение (Входной поток) -1 27 8B892F80A3BF4C93AB5A9D88C562298A VLC PascalScript Транскодирование для интернет медиа-ресурсов 3 0 const csVideoLanParams = '--no-crashdump -Idummy --language en%s --sout /%s:"<OUTPUT FILE>" "<INPUT FILE>"'; 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: string; begin 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)]) end. PascalScript Интернет-телевидение (Ремуксирование) -1 32 8BF577F799654E3FAAF82790F9F9C508 VLC PascalScript 1 MimeType := HmsGetMimeType('s16be') PascalScript 0 const csVideoLanParams = '-Idummy --language en --sout=#transcode{acodec=s16be,channels=2,' + 'samplerate=44100}:duplicate{dst=std{access=file,mux=raw,dst="<OUTPUT FILE>"}}' + ' "<INPUT FILE>" vlc://quit'; begin TranscodingParams := csVideoLanParams end. PascalScript Музыка (VLC) - LPCM -1 9 fc75b353-6fcf-4936-966b-bbb57b36532c VLC PascalScript 1 MimeType := HmsGetMimeType('mp3') PascalScript 0 const csVideoLanParams = '-Idummy --language en --sout=#transcode{acodec=mp3,ab=%d,channels=2,' + 'samplerate=44100}:duplicate{dst=std{access=file,mux=raw,dst="<OUTPUT FILE>"}}' + ' "<INPUT FILE>" vlc://quit'; begin TranscodingParams := Format(csVideoLanParams, 320) end. PascalScript Музыка (VLC) - MP3 -1 6 9D2C609435524F3B8069D8D66290232B HMSMPEG SameText(ExtractFileExt(mpFilePath), '.wav') Нет скрипта 1 0 begin mpAudioCodec := 'dca'; TranscodingParams := HmsTranscodingProfileParams('Музыка (основной)') end. PascalScript Музыка (WAV-DTS) -1 11 EF03BCC75AA14212827C29C557269086 HMSMPEG (CurrentMediaItem <> nil) and (CurrentMediaItem.ItemOrigin.MediaType = mtAudio) PascalScript Транскодирование для специальных папок (Цифровое телевидение - DVB, Музыка - Визуализация, Фото - Слайд-шоу) 3 begin 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 := '' end. PascalScript 1 const csFFMpegParams = '-s %dx%d -r %s -pix_fmt rgb32 -f rawvideo -i "%s" -f wav -i "%s" ' + '-vcodec %s %s%s%s -r %s -acodec %s -b:a %d -ac 2 -t %d -f %s "%s"'; // function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') or SameText(aAudioCodec, 'LPCM') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else Result := aAudioCodec end; function GetFileFormat(const aFileFormat: string): string; begin if (aFileFormat = '') or SameText(aFileFormat, 'MPEG (DVD)') then Result := 'dvd' else if Pos('MPEGTS', aFileFormat) > 0 then Result := 'mpegts' else if Pos('ASF', aFileFormat) > 0 then Result := 'asf' else if SameText(aFileFormat, 'MP4') then Result := 'ipod' else if SameText(aFileFormat, 'MPEG1') then Result := 'mpeg' else Result := aFileFormat end; function GetVideoCodec(const aVideoCodec: string): string; begin if (aVideoCodec = '') or SameText(aVideoCodec, 'MPEG2') then Result := 'mpeg2video' else if SameText(aVideoCodec, 'MPEG1') then Result := 'mpeg1video' else if SameText(aVideoCodec, 'WMV') then Result := 'wmv2' else if SameText(aVideoCodec, 'MPEG4') then Result := 'mpeg4' else if SameText(aVideoCodec, 'X264') then Result := 'libx264 -x264opts "fast-pskip=1:rc-lookahead=0:aq_mode=0" -partitions none -sc_threshold 0 -trellis 0 -me_method dia -refs 1 -subq 0 -vprofile baseline -level 30 -bufsize 10000000 ' else Result := aVideoCodec end; function GetMultiThreadSupported(const aVideoCodec: string): Boolean; begin Result := not MatchText(aVideoCodec, ['WMV', 'MPEG1', 'FLV']) end; var eFrameRate: Extended; iMusicVisualizationWidth, iMusicVisualizationHeight: Integer; sTranscodingParams, sVideoReadPipeName, sVideoWritePipeName, sAudioReadPipeName, sAudioWritePipeName, sAudioCopyReadPipeName, sAudioCopyWritePipeName, sFrameRate, sThreadParams, sVideoBitrate, sVideoMinMaxRate: string; begin TranscodingResult := False; sVideoMinMaxRate := ''; if cfgTranscodingVideoBitrate > 0 then begin sVideoBitrate := '-b:v ' + IntToStr(cfgTranscodingVideoBitrate); if cfgTranscodingVideoMinMaxRate then sVideoMinMaxRate := Format(' -minrate %d -maxrate %d -bufsize %d', [cfgTranscodingVideoBitrate, cfgTranscodingVideoBitrate, HmsTranscodingBufferSize(cfgTranscodingVideoBitrate)]) end else sVideoBitrate := '-q:v 0'; eFrameRate := StrToFloatDef(cfgMusicVisualizationFrameRate, 25); sFrameRate := FormatFloat('0.###', eFrameRate); iMusicVisualizationWidth := (cfgMusicVisualizationWidth div 16) * 16; iMusicVisualizationHeight := (cfgMusicVisualizationHeight div 16) * 16; if HmsCreateDualPipe(sAudioReadPipeName, sAudioWritePipeName, 20000000) and HmsCreateDualPipe(sAudioCopyReadPipeName, sAudioCopyWritePipeName, 20000000) then begin if HmsPreTranscoding(CurrentMediaItem.ItemOrigin, sAudioWritePipeName, CurrentMediaItem.ItemOrigin.TranscodingProfile, 'audio/wav;rate=44100;channels=2;bits=16', False) then begin if HmsCreateDualPipe(sVideoReadPipeName, sVideoWritePipeName, 200000000) then begin if HmsAudioVisualization(sAudioReadPipeName, sAudioCopyWritePipeName, cfgMusicVisualizationFileName, cfgMusicVisualizationPreset, sVideoWritePipeName, iMusicVisualizationWidth, iMusicVisualizationHeight, eFrameRate) then begin if (cfgTranscodingThreadCount > 1) and GetMultiThreadSupported(cfgTranscodingVideoCodec) then sThreadParams := ' -threads ' + IntToStr(cfgTranscodingThreadCount) else sThreadParams := ''; sTranscodingParams := Format(csFFMpegParams, [ iMusicVisualizationWidth, iMusicVisualizationHeight, sFrameRate, sVideoReadPipeName, sAudioCopyReadPipeName, GetVideoCodec(cfgTranscodingVideoCodec), sVideoBitrate, sVideoMinMaxRate, sThreadParams, sFrameRate, GetAudioCodec(cfgTranscodingAudioCodec), cfgTranscodingAudioBitrate, HmsTimeConvert(mpTimeLength), GetFileFormat(cfgTranscodingFileFormat), OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True) end end end end end. PascalScript Музыка (Визуализация) -1 3 0a53e0be-8272-4945-970c-e43b096c4642 HMSMPEG SameText(mpFilePath, 'Single Track') PascalScript 1 1 var FolderItem: THmsScriptMediaItem; VisibleItemList: THmsScriptMediaItemList; VisibleItemIDs: Variant; i, iChildCount: Integer; sAudioReadPipeName, sAudioWritePipeName, sMimeType, sTranscodingParams: string; begin TranscodingResult := False; if CurrentMediaItem <> nil then begin FolderItem := CurrentMediaItem.ItemParent; if FolderItem <> nil then FolderItem := FolderItem.ItemParent; if FolderItem <> nil then begin VisibleItemList := FolderItem.GetVisibleChildItems; try iChildCount := VisibleItemList.Count; HmsShuffleList(VisibleItemList); if iChildCount > 200 then iChildCount := 200; VisibleItemIDs := VarArrayCreate([0, iChildCount - 1], varVariant); for i := 0 to iChildCount - 1 do VisibleItemIDs[i] := VisibleItemList[i].ItemID; if HmsCreateDualPipe(sAudioReadPipeName, sAudioWritePipeName) then begin sTranscodingParams := '-f s16be -ac 2 -ar 44100 -i "<INPUT FILE>" '; sMimeType := cfgTranscodingAudioMimeType; if SameText(Copy(sMimeType, 1, 9), 'audio/L16') then sTranscodingParams := sTranscodingParams + ' -f s16be -ac 2 -ar 44100 ' else if MatchText(sMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then sTranscodingParams := sTranscodingParams + ' -f asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100 ' else if MatchText(sMimeType, ['audio/x-wav', 'audio/wav']) then sTranscodingParams := sTranscodingParams + ' -ac 2 -f wav ' else if Pos('flac', sMimeType) > 0 then sTranscodingParams := sTranscodingParams + ' -ac 2 -f flac ' else sTranscodingParams := sTranscodingParams + ' -f mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100 '; sTranscodingParams := sTranscodingParams + ' "<OUTPUT FILE>"' ; if HmsTranscodingExecute('HMSMPEG', sTranscodingParams, False, sAudioReadPipeName, OutputFileName) then TranscodingResult := HmsPreTranscodingEx(VisibleItemIDs, sAudioWritePipeName, '', 'audio/L16;rate=44100;channels=2;bits=16', True, True) end finally VisibleItemList.Free end end end end. PascalScript Музыка (Объединение - Случайный порядок, Повтор) -1 2 0c6d3be5-34f8-4ef6-9928-75b0b5906335 HMSMPEG SameText(mpFilePath, 'Single Track') PascalScript 1 1 var FolderItem: THmsScriptMediaItem; VisibleItemList: THmsScriptMediaItemList; VisibleItemIDs: Variant; i, iChildCount: Integer; sAudioReadPipeName, sAudioWritePipeName, sMimeType, sTranscodingParams: string; begin TranscodingResult := False; if CurrentMediaItem <> nil then begin FolderItem := CurrentMediaItem.ItemParent; if FolderItem <> nil then FolderItem := FolderItem.ItemParent; if FolderItem <> nil then begin VisibleItemList := FolderItem.GetVisibleChildItems; try iChildCount := VisibleItemList.Count; VisibleItemIDs := VarArrayCreate([0, iChildCount - 1], varVariant); for i := 0 to iChildCount - 1 do VisibleItemIDs[i] := VisibleItemList[i].ItemID; if HmsCreateDualPipe(sAudioReadPipeName, sAudioWritePipeName) then begin sTranscodingParams := '-f s16be -ac 2 -ar 44100 -i "<INPUT FILE>" '; sMimeType := cfgTranscodingAudioMimeType; if SameText(Copy(sMimeType, 1, 9), 'audio/L16') then sTranscodingParams := sTranscodingParams + ' -f s16be -ac 2 -ar 44100 ' else if MatchText(sMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then sTranscodingParams := sTranscodingParams + ' -f asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100 ' else if MatchText(sMimeType, ['audio/x-wav', 'audio/wav']) then sTranscodingParams := sTranscodingParams + ' -ac 2 -f wav ' else if Pos('flac', sMimeType) > 0 then sTranscodingParams := sTranscodingParams + ' -ac 2 -f flac ' else sTranscodingParams := sTranscodingParams + ' -f mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100 '; sTranscodingParams := sTranscodingParams + ' "<OUTPUT FILE>"' ; if HmsTranscodingExecute('HMSMPEG', sTranscodingParams, False, sAudioReadPipeName, OutputFileName) then TranscodingResult := HmsPreTranscodingEx(VisibleItemIDs, sAudioWritePipeName, '', 'audio/L16;rate=44100;channels=2;bits=16', True) end finally VisibleItemList.Free end end end end. PascalScript Музыка (Объединение) -1 0 eb5b4ccc-1636-4b05-8b0e-e5439bcd433f HMSMPEG Нет скрипта 1 var bWav: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; begin bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; if bWav or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then MimeType := cfgTranscodingAudioMimeType else MimeType := 'audio/L' + IntToStr(iBitsPerSample); MimeType := MimeType + Format(';rate=%d;channels=%d;bits=%d', [iSampleRate, iChannels, iBitsPerSample]) end else MimeType := cfgTranscodingAudioMimeType end. PascalScript 0 function GetSampleFmt(aBitsPerSample: Integer): string; begin if aBitsPerSample > 16 then Result := 's32' else Result := 's16' end; function GetMetadataEx(const aParams: array of Variant): string; var i, iTagsSize: Integer; sPropertyValue: string; begin Result := ''; if cfgTranscodingAudioTagsSize <> 0 then begin if cfgTranscodingAudioTagsSize > 0 then iTagsSize := cfgTranscodingAudioTagsSize * 1024 else iTagsSize := -1; Result := Format('-tags_size %d ', [iTagsSize]); i := 0; while i < Length(aParams) do begin sPropertyValue := VarToStr(CurrentMediaItem[aParams[i]]); if sPropertyValue <> '' then Result := Result + Format('-metadata "%s=%s" ', [aParams[i + 1], ReplaceStr(sPropertyValue, '"', '')]); Inc(i, 2) end end else Result := '-vn ' end; function GetMetadata: string; begin Result := GetMetadataEx([ mpiTitle, 'title', mpiAuthor, 'author', mpiAlbum, 'album', mpiYear, 'year', mpiGenre, 'genre', mpiTrack, 'track', mpiAuthor, 'artist', mpiAuthor, 'performer', mpiComposer, 'composer', mpiConductor, 'conductor', mpiAlbumArtist, 'album_artist', mpiPartNo, 'disc']) end; var bWav, bFlac: Boolean; iBitsPerSample, iChannels, iSampleRate: Integer; sInputCodec, sInputFileName, sMimeType, sOutputFormat, sStreamType, sStreamHeader, sStartTime: string; begin if mpDvdItem then HmsCreateResourcePipe(sInputFileName) else begin sInputFileName := '<INPUT FILE>'; if mpInternetItem and (Pos('\\.\pipe\', InputFileName) = 0) then if HmsCreateInternetRadioStream(InputFileName, sInputFileName, sStreamType, sStreamHeader) then if mpFileType = '' then begin sStreamType := LowerCase(sStreamType); if Pos('aac', sStreamType) > 0 then mpFileType := 'aac' else if (Pos('x-ms', sStreamType) > 0) then mpFileType := 'asf' else mpFileType := 'mp3' end end; if SameText(mpAudioCodec, 'dca') then sInputCodec := '-acodec dca ' else if SameText(mpAudioCodec, 'MLP') then sInputCodec := '-f mlp ' else if SameText(mpAudioCodec, 'pcm_s16le') then sInputCodec := Format('-f s16le -ac %d -ar %d ', [mpChannels, mpAudioSampleRate]) else begin if mpFileType <> '' then sInputCodec := '-f "' + mpFileType + '" ' else if mpInternetItem or (Pos('\\.\pipe\', InputFileName) > 0) then sInputCodec := '-f mp3 ' else sInputCodec := ''; end; if mpInternetItem then sMimeType := cfgTranscodingRadioMimeType else sMimeType := cfgTranscodingAudioMimeType; bWav := Pos('wav', sMimeType) > 0; bFlac := Pos('flac', sMimeType) > 0; if bWav or bFlac or SameText(Copy(sMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then sOutputFormat := Format('wav -acodec pcm_s%dle -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) else if bFlac then sOutputFormat := Format('flac -sample_fmt %s -ac %d -ar %d', [GetSampleFmt(iBitsPerSample), iChannels, iSampleRate]) else sOutputFormat := Format('s%dbe -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) end else begin if Pos('x-ms', sMimeType) > 0 then sOutputFormat := 'asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100' else if mpInternetItem and SameText(mpFileType, 'mp3') then sOutputFormat := 'mp3 -acodec copy' else sOutputFormat := 'mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100' end; TranscodingParams := Format('%s -i "%s" %s-f %s "<OUTPUT FILE>"', [sInputCodec, sInputFileName, GetMetadata, sOutputFormat]); if not mpInternetItem and (mpTimeStart <> '') then begin sStartTime := '-ss ' + mpTimeStart; if mpTimeLength <> '' then sStartTime := sStartTime + ' -t ' + Copy(mpTimeLength, 1, 8); TranscodingParams := sStartTime + ' ' + TranscodingParams end end. PascalScript Музыка (основной) -1 -1 BB1A7873C552412CB77C1C3125F0AA33 MAC TranscodingCondition := SameText(ExtractFileExt(mpFilePath), '.ape'); PascalScript 1 var bWav: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; begin bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; if bWav or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then MimeType := cfgTranscodingAudioMimeType else MimeType := 'audio/L' + IntToStr(iBitsPerSample); MimeType := MimeType + Format(';rate=%d;channels=%d;bits=%d', [iSampleRate, iChannels, iBitsPerSample]) end else MimeType := cfgTranscodingAudioMimeType end. PascalScript 1 const csMacTranscodingParams = '"%s" "%s" -d'; function GetSampleFmt(aBitsPerSample: Integer): string; begin if aBitsPerSample > 16 then Result := 's32' else Result := 's16' end; function GetMetadataEx(const aParams: array of Variant): string; var i, iTagsSize: Integer; sPropertyValue: string; begin Result := ''; if cfgTranscodingAudioTagsSize <> 0 then begin if cfgTranscodingAudioTagsSize > 0 then iTagsSize := cfgTranscodingAudioTagsSize * 1024 else iTagsSize := -1; Result := Format('-tags_size %d ', [iTagsSize]); i := 0; while i < Length(aParams) do begin sPropertyValue := VarToStr(CurrentMediaItem[aParams[i]]); if sPropertyValue <> '' then Result := Result + Format('-metadata "%s=%s" ', [aParams[i + 1], ReplaceStr(sPropertyValue, '"', '')]); Inc(i, 2) end end else Result := '-vn ' end; function GetMetadata: string; begin Result := GetMetadataEx([ mpiTitle, 'title', mpiAuthor, 'author', mpiAlbum, 'album', mpiYear, 'year', mpiGenre, 'genre', mpiTrack, 'track', mpiAuthor, 'artist', mpiAuthor, 'performer', mpiComposer, 'composer', mpiConductor, 'conductor', mpiAlbumArtist, 'album_artist', mpiPartNo, 'disc']) end; var bFlac, bWav: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; sReadPipeName, sWritePipeName, sInputFormat, sOutputFormat, sTranscoderParams: string; begin TranscodingResult := False; bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; bFlac := Pos('flac', cfgTranscodingAudioMimeType) > 0; if bWav or bFlac or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then sOutputFormat := Format('wav -acodec pcm_s%dle -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) else if bFlac then sOutputFormat := Format('flac -sample_fmt %s -ac %d -ar %d', [GetSampleFmt(iBitsPerSample), iChannels, iSampleRate]) else sOutputFormat := Format('s%dbe -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) end else begin if Pos('x-ms', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := 'asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100' else sOutputFormat := 'mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100' end; sReadPipeName := '.wav'; sWritePipeName := '.wav'; if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin sTranscoderParams := Format(csMacTranscodingParams, [InputFileName, sWritePipeName]); if mpTimeStart <> '' then begin sTranscoderParams := sTranscoderParams + ' -ts ' + IntToStr(HmsTimeConvert(mpTimeStart)); if mpTimeLength <> '' then sTranscoderParams := sTranscoderParams + ' -tf ' + IntToStr(HmsTimeConvert(mpTimeStart) + HmsTimeConvert(mpTimeLength)); end; if HmsTranscodingExecute('MAC', sTranscoderParams, False) then begin sInputFormat := '-f wav'; sTranscoderParams := Format('%s -i "%s" %s-f %s "%s"', [sInputFormat, sReadPipeName, GetMetadata, sOutputFormat, OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams) end end end. PascalScript Музыка - APE -1 12 1b48b584-ea23-4cc2-81bc-d8b432d52ec0 VLC PascalScript 1 0 const csVideoLanParams = '-Idummy --language en --sout=#transcode{acodec=%s,ab=%d,channels=2,' + 'samplerate=44100}:duplicate{dst=std{access=file,mux=%s,dst="<OUTPUT FILE>"}}' + ' cdda:///%s/ --cdda-track=%s vlc://quit'; function GetAudioCodec: string; begin if SameText(Copy(cfgTranscodingAudioMimeType, 1, 9), 'audio/L16') then Result := 's16be' else if MatchText(cfgTranscodingAudioMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then Result := 'wma2' else if MatchText(cfgTranscodingAudioMimeType, ['audio/x-wav', 'audio/wav']) then Result := 's16le' else if Pos('flac', cfgTranscodingAudioMimeType) > 0 then Result := 'flac' else Result := 'mp3' end; function GetFileFormat: string; begin if MatchText(cfgTranscodingAudioMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then Result := 'asf' else if MatchText(cfgTranscodingAudioMimeType, ['audio/x-wav', 'audio/wav']) then Result := 'wav' else if Pos('flac', cfgTranscodingAudioMimeType) > 0 then Result := 'flac' else Result := 'raw' end; begin TranscodingParams := Format(csVideoLanParams, [GetAudioCodec, 320, GetFileFormat, Copy(mpFilePath, 1, 2), Copy(ExtractFileName(mpFilePath), 6, 2)]) end. PascalScript Музыка - AudioCD (VLC) -1 1 e71011d4-8f00-4de3-881b-0ac8746ef0bc HMSMPEG PascalScript 1 var bWav: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; begin bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; if bWav or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then MimeType := cfgTranscodingAudioMimeType else MimeType := 'audio/L' + IntToStr(iBitsPerSample); MimeType := MimeType + Format(';rate=%d;channels=%d;bits=%d', [iSampleRate, iChannels, iBitsPerSample]) end else MimeType := cfgTranscodingAudioMimeType end. PascalScript 1 function GetSampleFmt(aBitsPerSample: Integer): string; begin if aBitsPerSample > 16 then Result := 's32' else Result := 's16' end; function GetMetadataEx(const aParams: array of Variant): string; var i, iTagsSize: Integer; sPropertyValue: string; begin Result := ''; if cfgTranscodingAudioTagsSize <> 0 then begin if cfgTranscodingAudioTagsSize > 0 then iTagsSize := cfgTranscodingAudioTagsSize * 1024 else iTagsSize := -1; Result := Format('-tags_size %d ', [iTagsSize]); i := 0; while i < Length(aParams) do begin sPropertyValue := VarToStr(CurrentMediaItem[aParams[i]]); if sPropertyValue <> '' then Result := Result + Format('-metadata "%s=%s" ', [aParams[i + 1], ReplaceStr(sPropertyValue, '"', '')]); Inc(i, 2) end end else Result := '-vn ' end; function GetMetadata: string; begin Result := GetMetadataEx([ mpiTitle, 'title', mpiAuthor, 'author', mpiAlbum, 'album', mpiYear, 'year', mpiGenre, 'genre', mpiTrack, 'track', mpiAuthor, 'artist', mpiAuthor, 'performer', mpiComposer, 'composer', mpiConductor, 'conductor', mpiAlbumArtist, 'album_artist', mpiPartNo, 'disc']) end; var bFlac, bWav: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; sInputFileName, sInputFormat, sOutputFormat, sTranscoderParams: string; begin TranscodingResult := False; if mpDvdItem then HmsCreateResourcePipe(sInputFileName) else sInputFileName := InputFileName; if sInputFileName <> '' then begin bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; bFlac := Pos('flac', cfgTranscodingAudioMimeType) > 0; if bWav or bFlac or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then sOutputFormat := Format('wav -acodec pcm_s%dle -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) else if bFlac then sOutputFormat := Format('flac -sample_fmt %s -ac %d -ar %d', [GetSampleFmt(iBitsPerSample), iChannels, iSampleRate]) else sOutputFormat := Format('s%dbe -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) end else begin if Pos('x-ms', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := 'asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100' else sOutputFormat := 'mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100' end; if SameText(mpAudioCodec, 'MLP') then sInputFormat := '-f mlp ' else sInputFormat := ''; sTranscoderParams := Format('%s -i "%s" %s-f %s "%s"', [sInputFormat, sInputFileName, GetMetadata, sOutputFormat, OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams) end end. PascalScript Музыка - DVD-Audio -1 7 5F1801449C8248CB82FBB8911B603E39 FLAC SameText(ExtractFileExt(mpFilePath), '.flac') PascalScript 1 var bWav: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; begin bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; if bWav or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then MimeType := cfgTranscodingAudioMimeType else MimeType := 'audio/L' + IntToStr(iBitsPerSample); MimeType := MimeType + Format(';rate=%d;channels=%d;bits=%d', [iSampleRate, iChannels, iBitsPerSample]) end else MimeType := cfgTranscodingAudioMimeType end. PascalScript 1 function GetSampleFmt(aBitsPerSample: Integer): string; begin if aBitsPerSample > 16 then Result := 's32' else Result := 's16' end; function GetMetadataEx(const aParams: array of Variant): string; var i, iTagsSize: Integer; sPropertyValue: string; begin Result := ''; if cfgTranscodingAudioTagsSize <> 0 then begin if cfgTranscodingAudioTagsSize > 0 then iTagsSize := cfgTranscodingAudioTagsSize * 1024 else iTagsSize := -1; Result := Format('-tags_size %d ', [iTagsSize]); i := 0; while i < Length(aParams) do begin sPropertyValue := VarToStr(CurrentMediaItem[aParams[i]]); if sPropertyValue <> '' then Result := Result + Format('-metadata "%s=%s" ', [aParams[i + 1], ReplaceStr(sPropertyValue, '"', '')]); Inc(i, 2) end end else Result := '-vn ' end; function GetMetadata: string; begin Result := GetMetadataEx([ mpiTitle, 'title', mpiAuthor, 'author', mpiAlbum, 'album', mpiYear, 'year', mpiGenre, 'genre', mpiTrack, 'track', mpiAuthor, 'artist', mpiAuthor, 'performer', mpiComposer, 'composer', mpiConductor, 'conductor', mpiAlbumArtist, 'album_artist', mpiPartNo, 'disc']) end; var bWav, bFlac: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; sReadPipeName, sWritePipeName, sInputFormat, sOutputFormat, sTranscoderParams: string; begin TranscodingResult := False; bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; bFlac := Pos('flac', cfgTranscodingAudioMimeType) > 0; if bWav or bFlac or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then sOutputFormat := Format('wav -acodec pcm_s%dle -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) else if bFlac then sOutputFormat := Format('flac -sample_fmt %s -ac %d -ar %d', [GetSampleFmt(iBitsPerSample), iChannels, iSampleRate]) else sOutputFormat := Format('s%dbe -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) end else begin if Pos('x-ms', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := 'asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100' else sOutputFormat := 'mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100' end; sReadPipeName := '.wav'; sWritePipeName := '.wav'; if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin sTranscoderParams := Format('-F -d "%s"', [InputFileName]); if mpTimeStart <> '' then begin sTranscoderParams := sTranscoderParams + ' --skip=' + HmsCueTime(HmsTimeConvert(mpTimeStart)); if mpTimeLength <> '' then sTranscoderParams := sTranscoderParams + ' --until=' + HmsCueTime(HmsTimeConvert(mpTimeStart) + HmsTimeConvert(mpTimeLength)); end; sTranscoderParams := sTranscoderParams + Format(' -f -o"%s"', [sWritePipeName]); if HmsTranscodingExecute('FLAC', sTranscoderParams, False) then begin sInputFormat := '-f wav'; if MatchText(mpAudioCodec, ['DCA', 'DTS']) then sInputFormat := '-acodec dca ' + sInputFormat; sTranscoderParams := Format('%s -i "%s" %s-f %s "%s"', [sInputFormat, sReadPipeName, GetMetadata, sOutputFormat, OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams) end end end. PascalScript Музыка - FLAC -1 10 0A185870D0904403A92E8DE0D121ED8F RTMPDUMP PascalScript 1 cfgTranscodingAudioMimeType PascalScript 1 function RtmpRedirectApp(const aRtmpApp: string): string; begin if SameText(aRtmpApp, 'asiaupdate') then Result := 'asiaupdateedge' else if SameText(aRtmpApp, 'alfa-live') then Result := 'alfa-live-source' else Result := aRtmpApp end; function ExecuteRtmpDump(const aRtmpServer, aRtmpFile, aPlayerUrl: string; aRtmpLive: Boolean; var aVideoUrl: string): Boolean; var sRtmpApp, sRtmpFile, sRtmpParams, sRtmpReadPipeName, sRtmpWritePipeName: string; begin Result := False; if (aRtmpServer <> '') and (aRtmpFile <> '') then if HmsCreateDualPipe(sRtmpReadPipeName, sRtmpWritePipeName, 1000000) then begin if SameText(ExtractFileExt(aRtmpFile), '.flv') then sRtmpFile := ChangeFileExt(aRtmpFile, '') else if SameText(ExtractFileExt(aRtmpFile), '.mp4') and (Pos('mp4:', aRtmpFile) = 0) then sRtmpFile := 'mp4:' + aRtmpFile else sRtmpFile := aRtmpFile; if not HmsRegExMatch('rtmp://.*?/(.*)', aRtmpServer, sRtmpApp) then sRtmpApp := ''; if sRtmpApp <> '' then sRtmpApp := ' -a "' + RtmpRedirectApp(sRtmpApp) + '"'; sRtmpParams := Format('-r "%s"%s -y "%s" -o "%s"', [aRtmpServer, sRtmpApp, sRtmpFile, sRtmpWritePipeName]); if aRtmpLive then sRtmpParams := '-v ' + sRtmpParams; if aPlayerUrl <> '' then sRtmpParams := sRtmpParams + ' -W "' + aPlayerUrl + '"'; Result := HmsTranscodingExecute('RTMPDUMP', sRtmpParams, False); if Result then aVideoUrl := sRtmpReadPipeName end end; function ExecuteRtmpDumpCommandLine(const aCommandLine: string; var aInputFileName: string): Boolean; var i, j: Integer; sRtmpDumpParams, sRtmpReadPipeName, sRtmpWritePipeName: string; begin Result := False; i := Pos('rtmpdump.exe', LowerCase(InputFileName)); j := 0; if i > 0 then j := 12 else begin i := Pos('rtmpdump', LowerCase(InputFileName)); if i > 0 then j := 8 end; if (j > 0) and HmsCreateDualPipe(sRtmpReadPipeName, sRtmpWritePipeName, 1000000) then begin sRtmpDumpParams := Format('%s -o "%s"', [Copy(InputFileName, i + j, Length(InputFileName)), sRtmpWritePipeName]); Result := HmsTranscodingExecute('RTMPDUMP', sRtmpDumpParams, False); if Result then aInputFileName := sRtmpReadPipeName end end; var bSuccess: Boolean; sFileType, sInputFileName, sRtmpServer, sRtmpFile, sTranscodingParams: string; begin TranscodingResult := False; if Pos('rtmpdump', LowerCase(InputFileName)) > 0 then bSuccess := ExecuteRtmpDumpCommandLine(InputFileName, sInputFileName) else if HmsRegExMatch2('(rtmp://.*?/.*?)/(.*)', InputFileName, sRtmpServer, sRtmpFile) then bSuccess := ExecuteRtmpDump(sRtmpServer, sRtmpFile, '', True, sInputFileName) else bSuccess := False; if bSuccess then begin if mpFileType = '' then mpFileType := 'flv'; if mpFileType <> '' then sTranscodingParams := '-f "' + mpFileType + '" ' else sTranscodingParams := ''; sTranscodingParams := sTranscodingParams + '-i "%s" -vn '; if SameText(Copy(cfgTranscodingRadioMimeType, 1, 9), 'audio/L16') then sTranscodingParams := sTranscodingParams + '-f s16be -ac 2 -ar 44100 "%s"' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then sTranscodingParams := sTranscodingParams + '-f asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100 "%s"' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-wav', 'audio/wav']) then sTranscodingParams := sTranscodingParams + '-f wav "%s"' else if Pos('flac', cfgTranscodingAudioMimeType) > 0 then sTranscodingParams := sTranscodingParams + '-f flac "%s"' else sTranscodingParams := sTranscodingParams + '-f mp3 -acodec libmp3lame -ab 320000 -ar 44100 "%s"'; TranscodingResult := HmsTranscodingExecute('HMSMPEG', Format(sTranscodingParams, [sInputFileName, OutputFileName]), True) end end. PascalScript Музыка - RTMPDUMP - FFMPEG -1 5 cea34f67-84bb-4ff9-8c12-6a49fec8d97a HMSMPEG PascalScript 1 var bWav: Boolean; iSampleRate, iSacdSampleRate, iChannels, iBitsPerSample: Integer; begin bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; if bWav or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2 else iChannels := mpChannels; iSampleRate := cfgTranscodingLpcmMaxSampleRate; iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample; iSacdSampleRate := (iSampleRate div 44100) * 44100; if iSacdSampleRate < 44100 then iSacdSampleRate := 44100 else if iSacdSampleRate > 352800 then iSacdSampleRate := 352800; if iSampleRate > iSacdSampleRate then iSampleRate := iSacdSampleRate; if bWav then MimeType := cfgTranscodingAudioMimeType else begin MimeType := 'audio/L' + IntToStr(iBitsPerSample); FileExt := 's16be' end; MimeType := MimeType + Format(';rate=%d;channels=%d;bits=%d', [iSampleRate, iChannels, iBitsPerSample]) end else MimeType := cfgTranscodingAudioMimeType; end. PascalScript 1 function GetSampleFmt(aBitsPerSample: Integer): string; begin if aBitsPerSample > 16 then Result := 's32' else Result := 's16' end; function GetMetadataEx(const aParams: array of Variant): string; var i, iTagsSize: Integer; sPropertyValue: string; begin Result := ''; if cfgTranscodingAudioTagsSize <> 0 then begin if cfgTranscodingAudioTagsSize > 0 then iTagsSize := cfgTranscodingAudioTagsSize * 1024 else iTagsSize := -1; Result := Format('-tags_size %d ', [iTagsSize]); i := 0; while i < Length(aParams) do begin sPropertyValue := VarToStr(CurrentMediaItem[aParams[i]]); if sPropertyValue <> '' then Result := Result + Format('-metadata "%s=%s" ', [aParams[i + 1], ReplaceStr(sPropertyValue, '"', '')]); Inc(i, 2) end end else Result := '-vn ' end; function GetMetadata: string; begin Result := GetMetadataEx([ mpiTitle, 'title', mpiAuthor, 'author', mpiAlbum, 'album', mpiYear, 'year', mpiGenre, 'genre', mpiTrack, 'track', mpiAuthor, 'artist', mpiAuthor, 'performer', mpiComposer, 'composer', mpiConductor, 'conductor', mpiAlbumArtist, 'album_artist', mpiPartNo, 'disc']) end; var eStartSeconds: Extended; iSampleRate, iSacdSampleRate, iChannels, iBitsPerSample: Integer; sSacdReadPipeName, sSacdWritePipeName, sInputFormat, sOutputFormat, sTranscodeSeconds, sTranscoderParams: string; begin TranscodingResult := False; iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2 else iChannels := mpChannels; iSampleRate := cfgTranscodingLpcmMaxSampleRate; iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample; iSacdSampleRate := (iSampleRate div 44100) * 44100; if iSacdSampleRate < 44100 then iSacdSampleRate := 44100 else if iSacdSampleRate > 352800 then iSacdSampleRate := 352800; if iSampleRate > iSacdSampleRate then iSampleRate := iSacdSampleRate; if SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then sOutputFormat := Format('s%dbe -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) else if Pos('wav', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := Format('wav -acodec pcm_s%dle -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) else if Pos('flac', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := Format('flac -sample_fmt %s -ac %d -ar %d', [GetSampleFmt(iBitsPerSample), iChannels, iSampleRate]) else begin iSampleRate := 44100; if Pos('x-ms', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := 'asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100' else sOutputFormat := 'mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100' end; sTranscodeSeconds := ''; eStartSeconds := 0; if mpTimeStart <> '' then begin eStartSeconds := HmsTimeConvertEx(mpTimeStart); if mpTimeLength <> '' then sTranscodeSeconds := ' -t ' + Copy(mpTimeLength, 1, 8); end; if HmsCreateDualPipe(sSacdReadPipeName, sSacdWritePipeName) and HmsTranscodingSacdTrack(sSacdWritePipeName, iSacdSampleRate, eStartSeconds, 10) then begin sInputFormat := Format('-ar %d -f f32le -ac %d ', [iSacdSampleRate, mpChannels]); sTranscoderParams := Format('%s-i "%s"%s %s-f %s "%s"', [sInputFormat, sSacdReadPipeName, sTranscodeSeconds, GetMetadata, sOutputFormat, OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams) end end. PascalScript Музыка - SACD -1 4 25be13da-0964-4444-b104-d3be72e0e271 HMSMPEG PascalScript 1 1 const csVlcParams = '-Idummy --language en --demuxdump-file="%s" "%s" :demux=dump'; var sReadPipeName, sWritePipeName, sTranscodingParams: string; begin TranscodingResult := False; if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin if HmsTranscodingExecute('VLC', Format(csVlcParams, [sWritePipeName, InputFileName]), False) then begin if mpFileType <> '' then sTranscodingParams := '-f ' + mpFileType + ' ' else sTranscodingParams := ''; sTranscodingParams := sTranscodingParams + '-i "%s" -vn '; if SameText(Copy(cfgTranscodingRadioMimeType, 1, 9), 'audio/L16') then sTranscodingParams := sTranscodingParams + '-f s16be -ac 2 -ar 44100 "%s"' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then sTranscodingParams := sTranscodingParams + '-f asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100 "%s"' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-wav', 'audio/wav']) then sTranscodingParams := sTranscodingParams + '-f wav "%s"' else if Pos('flac', cfgTranscodingRadioMimeType) then sTranscodingParams := sTranscodingParams + '-f flac "%s"' else sTranscodingParams := sTranscodingParams + '-f mp3 -acodec libmp3lame -ab 320000 -ar 44100 "%s"'; TranscodingResult := HmsTranscodingExecute('HMSMPEG', Format(sTranscodingParams, [sReadPipeName, OutputFileName]), True) end end end. PascalScript Музыка - VLC - FFMPEG -1 14 5cff143f-a765-4fe8-962c-39e1c6d0ea87 WVUNPACK TranscodingCondition := SameText(ExtractFileExt(mpFilePath), '.wv'); PascalScript 1 var bWav: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; begin bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; if bWav or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then MimeType := cfgTranscodingAudioMimeType else MimeType := 'audio/L' + IntToStr(iBitsPerSample); MimeType := MimeType + Format(';rate=%d;channels=%d;bits=%d', [iSampleRate, iChannels, iBitsPerSample]) end else MimeType := cfgTranscodingAudioMimeType end. PascalScript 1 const csWavPackTranscodingParams = '-y "%s" "%s"'; function GetSampleFmt(aBitsPerSample: Integer): string; begin if aBitsPerSample > 16 then Result := 's32' else Result := 's16' end; function GetMetadataEx(const aParams: array of Variant): string; var i, iTagsSize: Integer; sPropertyValue: string; begin Result := ''; if cfgTranscodingAudioTagsSize <> 0 then begin if cfgTranscodingAudioTagsSize > 0 then iTagsSize := cfgTranscodingAudioTagsSize * 1024 else iTagsSize := -1; Result := Format('-tags_size %d ', [iTagsSize]); i := 0; while i < Length(aParams) do begin sPropertyValue := VarToStr(CurrentMediaItem[aParams[i]]); if sPropertyValue <> '' then Result := Result + Format('-metadata "%s=%s" ', [aParams[i + 1], ReplaceStr(sPropertyValue, '"', '')]); Inc(i, 2) end end else Result := '-vn ' end; function GetMetadata: string; begin Result := GetMetadataEx([ mpiTitle, 'title', mpiAuthor, 'author', mpiAlbum, 'album', mpiYear, 'year', mpiGenre, 'genre', mpiTrack, 'track', mpiAuthor, 'artist', mpiAuthor, 'performer', mpiComposer, 'composer', mpiConductor, 'conductor', mpiAlbumArtist, 'album_artist', mpiPartNo, 'disc']) end; var bFlac, bWav: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; sReadPipeName, sWritePipeName, sInputFormat, sOutputFormat, sTranscoderParams: string; begin TranscodingResult := False; bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; bFlac := Pos('flac', cfgTranscodingAudioMimeType) > 0; if bWav or bFlac or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then sOutputFormat := Format('wav -acodec pcm_s%dle -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) else if bFlac then sOutputFormat := Format('flac -sample_fmt %s -ac %d -ar %d', [GetSampleFmt(iBitsPerSample), iChannels, iSampleRate]) else sOutputFormat := Format('s%dbe -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) end else begin if Pos('x-ms', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := 'asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100' else sOutputFormat := 'mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100' end; sReadPipeName := '.wav'; sWritePipeName := '.wav'; if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin sTranscoderParams := ''; if mpTimeStart <> '' then begin sTranscoderParams := sTranscoderParams + '--skip=' + HmsCueTime(HmsTimeConvert(mpTimeStart)); if mpTimeLength <> '' then sTranscoderParams := sTranscoderParams + ' --until=' + HmsCueTime(HmsTimeConvert(mpTimeStart) + HmsTimeConvert(mpTimeLength)); sTranscoderParams := sTranscoderParams + ' '; end; sTranscoderParams := sTranscoderParams + Format(csWavPackTranscodingParams, [InputFileName, sWritePipeName]); if HmsTranscodingExecute('WVUNPACK', sTranscoderParams, False) then begin sInputFormat := '-f wav'; sTranscoderParams := Format('%s -i "%s" %s-f %s "%s"', [sInputFormat, sReadPipeName, GetMetadata, sOutputFormat, OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams) end end end. PascalScript Музыка - WAVPACK -1 13 86c4474e-fa99-4e27-a5aa-bc1eb701d230 HMSMPEG PascalScript 1 1 function CheckResult(aResult: Integer; aRaiseException: Boolean = True): Boolean; begin Result := aResult = S_OK; if not Result and aRaiseException then RaiseException(Format('Error (code: %x) - %s', [aResult, SysErrorMessage(aResult)])) end; function GetSampleFmt(aBitsPerSample: Integer): string; begin if aBitsPerSample > 16 then Result := 's32' else Result := 's16' end; var bWav, bFlac: Boolean; iAudioChannels, iAudioSampleRate, iAudioFormatTag, iBitsPerSample, iChannels, iSampleRate: Integer; sAudioFormat, sAudioMediaMajorType, sAudioMediaSubType, sOutputFormat, sReadAudioPipeName, sWriteAudioPipeName, sTranscoderParams: string; begin TranscodingResult := False; if not CheckResult(HmsDirectShowAddSource(InputFileName, 'Source')) then Exit; if not CheckResult(HmsDirectShowAddFilter('WMAudio Decoder DMO', 'Audio Decoder')) then Exit; if not CheckResult(HmsDirectShowConnectPin('Source', 'Audio Decoder')) then Exit; if HmsCreateDualPipe(sReadAudioPipeName, sWriteAudioPipeName, 10000000) then begin if not CheckResult(HmsDirectShowAddDump(sWriteAudioPipeName, 'DumpAudio')) then Exit; if not CheckResult(HmsDirectShowConnectPin('Audio Decoder', 'DumpAudio', '', '', MEDIATYPE_Audio, KSDATAFORMAT_SUBTYPE_PCM)) then Exit; if not CheckResult(HmsDirectShowGetMediaType('Audio Decoder', PINDIR_OUTPUT, '', sAudioMediaMajorType, sAudioMediaSubType, iAudioChannels, iAudioSampleRate, iAudioFormatTag)) then Exit; bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; bFlac := not bWav and (Pos('flac', cfgTranscodingAudioMimeType) > 0); if bWav or bFlac or SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then begin iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2; iSampleRate := mpAudioSampleRate; if iSampleRate > cfgTranscodingLpcmMaxSampleRate then iSampleRate := cfgTranscodingLpcmMaxSampleRate else if iSampleRate < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; if bWav then sOutputFormat := Format('wav -acodec pcm_s%dle -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) else if bFlac then sOutputFormat := Format('flac -sample_fmt %s -ac %d -ar %d', [GetSampleFmt(iBitsPerSample), iChannels, iSampleRate]) else sOutputFormat := Format('s%dbe -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) end else begin if Pos('x-ms', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := 'asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100' else if mpInternetItem and SameText(mpFileType, 'mp3') then sOutputFormat := 'mp3 -acodec copy' else sOutputFormat := 'mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100' end; sTranscoderParams := Format(' -f s16le -ar %d -ac %d -i "%s" -f %s "%s"', [iAudioSampleRate, iAudioChannels, sReadAudioPipeName, sOutputFormat, OutputFileName]); if CheckResult(HmsDirectShowPlay) then TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams) end end. PascalScript Музыка - WMA Lossless (DirectShow) -1 3 d982164d-d020-4067-b0db-f222f8f559b6 VLC PascalScript 1 0 const csVideoLanParams = '--no-crashdump -Idummy --language en --sout=#transcode{acodec=%s,ab=%d,channels=2,' + 'samplerate=44100}:duplicate{dst=std{access=file,mux=%s,dst="<OUTPUT FILE>"}}' + ' "<INPUT FILE>"'; function GetAudioCodec: string; begin if SameText(Copy(cfgTranscodingRadioMimeType, 1, 9), 'audio/L16') then Result := 's16be' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then Result := 'wma2' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-wav', 'audio/wav']) then Result := 's16le' else if Pos('flac', cfgTranscodingRadioMimeType) > 0 then Result := 'flac' else Result := 'mp3' end; function GetFileFormat: string; begin if MatchText(cfgTranscodingRadioMimeType, ['audio/x-ms-wma', 'audio/x-ms-asf']) then Result := 'asf' else if MatchText(cfgTranscodingRadioMimeType, ['audio/x-wav', 'audio/wav']) then Result := 'wav' else if Pos('flac', cfgTranscodingRadioMimeType) > 0 then Result := 'flac' else Result := 'raw' end; begin TranscodingParams := Format(csVideoLanParams, [GetAudioCodec, 320, GetFileFormat]) end. PascalScript Музыка - Интернет-радио (VLC) -1 8 fc75b353-6fcf-4936-966b-bbb57b36532c HMSMPEG (CurrentMediaItem <> nil) and (CurrentMediaItem.ItemClassName = 'TMediaPodcastUpdateItem') PascalScript Транскодирование для специальных папок (Цифровое телевидение - DVB, Музыка - Визуализация, Фото - Слайд-шоу) 3 1 const csFFMpegParams = '-s %dx%d -r %s -pix_fmt rgb32 -f rawvideo -i "%s" -i "%s" ' + '-vcodec %s %s%s%s -pix_fmt yuv420p -r %s -acodec %s -b:a %d -ac 2 -f %s "%s"'; function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') or SameText(aAudioCodec, 'LPCM') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else Result := aAudioCodec end; function GetFileFormat(const aFileFormat: string): string; begin if (aFileFormat = '') or SameText(aFileFormat, 'MPEG (DVD)') then Result := 'dvd' else if Pos('MPEGTS', aFileFormat) > 0 then Result := 'mpegts' else if Pos('ASF', aFileFormat) > 0 then Result := 'asf' else if SameText(aFileFormat, 'MP4') then Result := 'ipod' else if SameText(aFileFormat, 'MPEG1') then Result := 'mpeg' else Result := aFileFormat end; function GetVideoCodec(const aVideoCodec: string): string; begin if (aVideoCodec = '') or SameText(aVideoCodec, 'MPEG2') then Result := 'mpeg2video' else if SameText(aVideoCodec, 'MPEG1') then Result := 'mpeg1video' else if SameText(aVideoCodec, 'WMV') then Result := 'wmv2' else if SameText(aVideoCodec, 'MPEG4') then Result := 'mpeg4' else if SameText(aVideoCodec, 'X264') then Result := 'libx264 -x264opts "fast-pskip=1:rc-lookahead=0:aq_mode=0" -partitions none -sc_threshold 0 -trellis 0 -me_method dia -refs 1 -subq 0 -vprofile baseline -level 30 -bufsize 10000000 ' else Result := aVideoCodec end; function GetMultiThreadSupported(const aVideoCodec: string): Boolean; begin Result := not MatchText(aVideoCodec, ['WMV', 'MPEG1', 'FLV']) end; var eFrameRate: Extended; i, iVideoWidth, iVideoHeight, iProgressWidth, iProgress, iOldProgress, X1, X2, Y1, Y2: Integer; ImageBitmap: TBitmap32; sAudioFileName, sTranscodingParams, sVideoReadPipeName, sVideoWritePipeName, sFrameRate, sThreadParams, sVideoBitrate, sVideoMinMaxRate, sProgress, sProgressID: string; VideoSlideShow: THmsVideoSlideShow; begin TranscodingResult := False; GlobalVarSet('PodcastProgress', 0); sVideoMinMaxRate := ''; sProgressID := CurrentMediaItem.ItemParent.ItemParent.ItemID + '_PodcastUpdateProgress'; if cfgTranscodingVideoBitrate > 0 then begin sVideoBitrate := '-b:v ' + IntToStr(cfgTranscodingVideoBitrate); if cfgTranscodingVideoMinMaxRate then sVideoMinMaxRate := Format(' -minrate %d -maxrate %d -bufsize %d', [cfgTranscodingVideoBitrate, cfgTranscodingVideoBitrate, HmsTranscodingBufferSize(cfgTranscodingVideoBitrate)]) end else sVideoBitrate := '-q:v 0'; eFrameRate := StrToFloatDef(cfgPhotoSlideShowFrameRate, 25); sFrameRate := FormatFloat('0.###', eFrameRate); iVideoWidth := 720; iVideoHeight := 406; sAudioFileName := IncludeTrailingBackslash(ProgramPath) + 'Presentation\Images\Amanda.wma'; if HmsCreateDualPipe(sVideoReadPipeName, sVideoWritePipeName) then begin VideoSlideShow := THmsVideoSlideShow.Create(sVideoWritePipeName, iVideoWidth, iVideoHeight, eFrameRate); try if (cfgTranscodingThreadCount > 1) and GetMultiThreadSupported(cfgTranscodingVideoCodec) then sThreadParams := ' -threads ' + IntToStr(cfgTranscodingThreadCount) else sThreadParams := ''; sTranscodingParams := Format(csFFMpegParams, [ iVideoWidth, iVideoHeight, sFrameRate, sVideoReadPipeName, sAudioFileName, GetVideoCodec(cfgTranscodingVideoCodec), sVideoBitrate, sVideoMinMaxRate, sThreadParams, sFrameRate, GetAudioCodec(cfgTranscodingAudioCodec), cfgTranscodingAudioBitrate, GetFileFormat(cfgTranscodingFileFormat), OutputFileName]); if HmsTranscodingExecute('HMSMPEG', sTranscodingParams, False) then begin VideoSlideShow.Start; try ImageBitmap := TBitmap32.Create; ImageBitmap.DrawMode := dmOpaque; ImageBitmap.SetSize(iVideoWidth, iVideoHeight); X1 := Trunc(iVideoWidth * 0.2); X2 := Trunc(iVideoWidth * 0.8); Y1 := Trunc(iVideoHeight * 0.45); Y2 := Trunc(iVideoHeight * 0.55); try iProgressWidth := X2 - X1; ImageBitmap.Font.Size := 14; iOldProgress := -1; repeat if not VideoSlideShow.Started then Break; iProgress := StrToIntDef(VarToStr(GlobalVarGet(sProgressID)), 0); if iOldProgress <> iProgress then begin ImageBitmap.FillRectS(X1, Y1, X2, Y2, $FF5984AE); ImageBitmap.Gradient(X1, Y1, X1 + Round(iProgressWidth * (iProgress / 100)), Y2, gsLinearV, $00714D0F, $00ECBE71); sProgress := IntToStr(iProgress) + '%'; ImageBitmap.RenderText((X1 + X2 - ImageBitmap.TextWidth(sProgress)) div 2, (Y1 + Y2 - ImageBitmap.TextHeight(sProgress)) div 2, sProgress, 4, $FFFFFFFF); if VideoSlideShow.Started then VideoSlideShow.SetBitmap(ImageBitmap); end else HmsSleep(100) until iProgress >= 100; HmsSleep(1000); finally ImageBitmap.Free end finally VideoSlideShow.Stop end end finally VideoSlideShow.Free end end; TranscodingResult := False end. PascalScript Подкасты (Прогресс обновления) -1 0 cb9b5272-307e-4445-8485-c5021702578f HMSMPEG mpSubItemsCount > 0 PascalScript Транскодирование объединенных медиа-ресурсов 3 0 const csTranscodingInputFile = '-i "<INPUT FILE>"'; csFFMpegVideoParams = ' -f %s -vcodec %s -b %d -aspect %s -pix_fmt yuv420p'; csFFMpegAudioParams = ' -acodec %s -ab %d -ar 48000'; function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else Result := aAudioCodec end; function SameAudioCodec(const aAudioCodec: string; aCodecID: Integer): Boolean; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := aCodecID = CODEC_ID_AC3 else if SameText(aAudioCodec, 'AAC') then Result := aCodecID = CODEC_ID_AAC else if SameText(aAudioCodec, 'MP3') then Result := aCodecID = CODEC_ID_MP3 else if SameText(aAudioCodec, 'MP2') then Result := aCodecID = CODEC_ID_MP2 else if SameText(aAudioCodec, 'WMA') then Result := aCodecID = CODEC_ID_WMAV2 else Result := False end; function GetFileFormat(const aFileFormat: string): string; begin if (aFileFormat = '') or SameText(aFileFormat, 'MPEG (DVD)') then Result := 'dvd' else if SameText(aFileFormat, 'MPEGTS') then Result := 'mpegts' else if SameText(aFileFormat, 'ASF (WMV)') then Result := 'asf' else Result := aFileFormat end; function GetVideoCodec(const aVideoCodec: string): string; begin if (aVideoCodec = '') or SameText(aVideoCodec, 'MPEG2') then Result := 'mpeg2video' else if SameText(aVideoCodec, 'WMV') then Result := 'wmv2' else Result := aVideoCodec end; function GetMultiThreadSupported(const aVideoCodec: string): Boolean; begin if SameText(aVideoCodec, 'WMV') then Result := False else Result := True end; function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer; begin if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then Result := 320000 else Result := aAudioBitrate end; procedure AddFilterParams(var aFilterParams: string; const aAddParams: string); begin if aFilterParams <> '' then aFilterParams := aFilterParams + ','; aFilterParams := aFilterParams + aAddParams end; var i, iAudioStreamNo, iChannels, iCodecID, iFrameWidth, iFrameHeight, iInputFileNo, iWidth, iHeight, iPadLeft, iPadTop, iPadRight, iPadBottom, iStartTime, iTimeLength: Integer; sFrameRate, sParams, sAudioStreamID, sFilterParams, sPadParams: string; begin iInputFileNo := 0; iStartTime := HmsTimeConvert(mpTimeStart); iAudioStreamNo := mpAudioStreamNo; sAudioStreamID := ''; TranscodingParams := ''; for i := 0 to mpSubItemsCount - 1 do begin HmsTranscodingActivateSubItem(i); if sAudioStreamID = '' then begin if iAudioStreamNo = -1 then iAudioStreamNo := mpAudioStreamNo; sAudioStreamID := HmsGetAudioStreamID(iAudioStreamNo); end; if iStartTime > 0 then begin iTimeLength := HmsTimeConvert(mpTimeLength); if (iTimeLength > 0) and (iStartTime > iTimeLength) then begin iStartTime := iStartTime - iTimeLength; Continue end; sParams := '-ss ' + HmsTimeFormat(iStartTime); iStartTime := 0; end else sParams := ''; sParams := sParams + Format(' -i "%s"', [mpFilePath]); sParams := sParams + Format(csFFMPegVideoParams, [GetFileFormat(cfgTranscodingFileFormat), GetVideoCodec(cfgTranscodingVideoCodec), cfgTranscodingVideoBitrate, cfgTranscodingScreenFormat]); if iAudioStreamNo <> -1 then begin iCodecID := HmsGetStreamCodecID('A', iAudioStreamNo); iChannels := HmsGetStreamChannels(iAudioStreamNo); end else begin iCodecID := CODEC_ID_NONE; iChannels := 0; end; if (iCodecID = CODEC_ID_NONE) and SameText(mpAudioCodec, 'AC3') then iCodecID := CODEC_ID_AC3; if cfgTranscodingAudioCopyAC3 and SameAudioCodec(cfgTranscodingAudioCodec, iCodecID) then sParams := sParams + ' -acodec copy' else begin sParams := sParams + Format(csFFMpegAudioParams, [GetAudioCodec(cfgTranscodingAudioCodec), GetAudioBitrate(cfgTranscodingAudioCodec, cfgTranscodingAudioBitrate)]); if iChannels = 1 then sParams := sParams + ' -ac 2' else if cfgTranscodingAudioChannels > 0 then sParams := sParams + ' -ac ' + IntToStr(cfgTranscodingAudioChannels) end; sFrameRate := HmsGetVideoSettings(vstFrameRate); if sFrameRate = '' then sFrameRate := cfgTranscodingFrameRate; if (sFrameRate = '') and (mpFrameRate > 0) and (mpFrameRate < 20) then sFrameRate := '23.976'; if sFrameRate <> '' then sParams := sParams + ' -r ' + sFrameRate; iWidth := mpWidth; iHeight := mpHeight; if (iWidth > 0) and (iHeight > 0) then begin sFilterParams := ''; sPadParams := ''; if HmsTranscodingFrameParams(iWidth, iHeight, cfgTranscodingScreenFormat, iPadLeft, iPadTop, iPadRight, iPadBottom) then begin if mp3DVideoType in [1, 2] then begin iWidth := iWidth + iPadLeft + iPadRight; iHeight := iHeight + iPadTop + iPadBottom; if mp3DVideoType = 1 then iWidth := (iWidth div 4) * 4 else iHeight := (iHeight div 4) * 4 end; iFrameWidth := iWidth; iFrameHeight := iHeight; if (mp3DVideoType = 0) and ((iPadLeft > 0) or (iPadRight > 0) or (iPadTop > 0) or (iPadBottom > 0)) then begin Inc(iFrameWidth, iPadLeft + iPadRight); Inc(iFrameHeight, iPadTop + iPadBottom); sPadParams := Format('pad=%d:%d:%d:%d:0x%s', [iFrameWidth, iFrameHeight, iPadLeft, iPadTop, HmsConvertColor(cfgTranscodingPadColor)]); if cfgTranscodingFrameExists then sParams := sParams + cfgTranscodingFrameParams; end end else begin iFrameWidth := iWidth; iFrameHeight := iHeight; end; AddFilterParams(sFilterParams, Format('scale=%d:%d', [iWidth, iHeight])); if sPadParams <> '' then AddFilterParams(sFilterParams, sPadParams); AddFilterParams(sFilterParams, 'setdar=' + cfgTranscodingAspectRatio); sParams := sParams + Format(' -vf "%s"', [sFilterParams]); sParams := sParams + HmsTranscodingSubTitleParams( iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop); end; sParams := sParams + HmsTranscodingMapParams(iAudioStreamNo, sAudioStreamID); if (cfgTranscodingThreadCount > 1) and GetMultiThreadSupported(cfgTranscodingVideoCodec) then sParams := sParams + ' -threads ' + IntToStr(cfgTranscodingThreadCount); if iInputFileNo > 0 then sParams := sParams + ' -j'; Inc(iInputFileNo); TranscodingParams := TranscodingParams + sParams + Chr(13) + Chr(10) end end. PascalScript Фильмы (DVD) -1 23 958FEE94C68E461DABAC1DCAE86083F9 HMSMPEG PascalScript Профиль транскодирования использует таблицу поддерживаемых форматов из настроек устройства Транскодирование без перекодирования видео 3 begin 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 if SameText(cfgTranscodingFileFormat, 'FLV') then FileExt := 'flv' else FileExt := ''; if FileExt <> '' then MimeType := HmsGetMimeType(FileExt) else MimeType := '' end. PascalScript 1 const csFFMpegVideoParams = ' -vcodec %s %s%s -pix_fmt yuv420p'; csFFMpegAudioParams = ' -acodec %s -ab %d -ar %d -ac %d'; procedure GetAudioTranscodingParams(const aAudioCodec: string; var aCodecName, aFileFormat: string; var aCodecID, aAudioBitrate, aAudioChannels: Integer); begin aAudioBitrate := cfgTranscodingAudioBitrate; if (cfgTranscodingAudioChannels <> 0) then aAudioChannels := cfgTranscodingAudioChannels; if SameText(aAudioCodec, 'AAC') then begin aCodecName := 'libfaac'; aFileFormat := 'adts'; aCodecID := CODEC_ID_AAC; end else if SameText(aAudioCodec, 'MP3') then begin aCodecName := 'libmp3lame'; aFileFormat := 'mp3'; aCodecID := CODEC_ID_MP3; if aAudioBitrate > 320000 then aAudioBitrate := 320000; if aAudioChannels > 2 then aAudioChannels := 2; end else if SameText(aAudioCodec, 'MP2') then begin aCodecName := 'mp2'; aFileFormat := 'mp2'; aCodecID := CODEC_ID_MP2; if aAudioBitrate > 320000 then aAudioBitrate := 320000; if aAudioChannels > 2 then aAudioChannels := 2; end else if SameText(aAudioCodec, 'LPCM') then begin aCodecName := 'pcm_s16be'; aFileFormat := 's16be'; aCodecID := CODEC_ID_PCM_BLURAY; end else if SameText(aAudioCodec, 'DTS') then begin aCodecName := 'dca'; aFileFormat := 'dts'; aCodecID := CODEC_ID_DTS; aAudioChannels := 0 end else if SameText(aAudioCodec, 'WMA') then begin aCodecName := 'wmav2'; aFileFormat := 'asf'; aCodecID := CODEC_ID_WMAV2; if aAudioChannels > 2 then aAudioChannels := 2; end else begin aCodecName := 'ac3'; aFileFormat := 'ac3'; if SameText(aAudioCodec, 'AC3') then aCodecID := CODEC_ID_AC3 else aCodecID := CODEC_ID_NONE; end end; function GetFileFormat(const aFileFormat: string): string; begin if (aFileFormat = '') or SameText(aFileFormat, 'MPEG (DVD)') then Result := 'dvd' else if Pos('MPEGTS', aFileFormat) > 0 then Result := 'mpegts' else if Pos('ASF', aFileFormat) > 0 then Result := 'asf' else if SameText(aFileFormat, 'MP4') then Result := 'ipod' else if SameText(aFileFormat, 'FLV') then Result := 'flv' else if SameText(aFileFormat, 'MPEG1') then Result := 'mpeg' else Result := aFileFormat end; function GetVideoCodec(const aVideoCodec: string): string; begin if (aVideoCodec = '') or SameText(aVideoCodec, 'MPEG2') then Result := 'mpeg2video' else if SameText(aVideoCodec, 'MPEG1') then Result := 'mpeg1video' else if SameText(aVideoCodec, 'FLV') then Result := 'flv' else if SameText(aVideoCodec, 'WMV') then Result := 'wmv2' else if SameText(aVideoCodec, 'MPEG4') then Result := 'mpeg4' else if SameText(aVideoCodec, 'X264') then Result := 'libx264 -x264opts "fast-pskip=1:rc-lookahead=0:aq_mode=0" -partitions none -sc_threshold 0 -trellis 0 -me_method dia -refs 1 -subq 0 -vprofile baseline -level 30 -bufsize 10000000 ' else Result := aVideoCodec end; function GetMultiThreadSupported(const aVideoCodec: string): Boolean; begin Result := not MatchText(aVideoCodec, ['WMV', 'MPEG1', 'FLV']) end; function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer; begin if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then Result := 320000 else Result := aAudioBitrate end; function GetAudioSampleRate(const aFileFormat, aAudioCodec: string): Integer; begin if MatchText(aFileFormat, ['FLV']) and not SameText(aAudioCodec, 'AAC') then Result := 44100 else Result := 48000 end; function GetAudioChannels(const aAudioCodec: string; aConfigAudioChannels, aStreamAudioChannels: Integer): Integer; begin if aConfigAudioChannels > 0 then Result := aConfigAudioChannels else Result := aStreamAudioChannels; if (Result > 2) and MatchText(aAudioCodec, ['MP2', 'MP3']) then Result := 2 else if (Result = 1) and MatchText(aAudioCodec, ['AAC', 'AC3']) then Result := 2 else if Result > 6 then Result := 6 end; function VideoCodecCompatible(const aFileFormat: string): Boolean; begin Result := HmsIsFormatSupported(aFileFormat, 'copy', ''); end; function AudioCodecCompatible(const aFileFormat: string): Boolean; begin Result := HmsIsFormatSupported(aFileFormat, '', 'copy') end; function IsPipe(const aFileName: string): Boolean; begin Result := Pos('\\.\pipe\', aFileName) > 0; end; procedure AddFilterParams(var aFilterParams: string; const aAddParams: string); begin if aFilterParams <> '' then aFilterParams := aFilterParams + ','; aFilterParams := aFilterParams + aAddParams end; var bMapStreams, bDeinterlace, bh264_mp4toannexb, bPipe, bSuccess, bAudioTranscoding, bVideoTranscoding: Boolean; iAudioBitrate, iAudioChannels, iAudioCfgBitrate, iAudioCfgCodecID, iAudioStreamNo, iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop, iPadRight, iPadBottom: Integer; sVideoTranscodingParams, sAudioTranscodingParams, sTranscodingFileFormat, sTranscodingParams, sAudioCfgCodecName, sAudioCfgFileFormat, sInputAudioFileName, sFilterParams, sPadParams, sInputVideoFileName, sFrameRate, sResourcePipe, sVideoBitrate, sVideoMinMaxRate: string; begin if HmsGetStreamCount = 0 then HmsRetrieveProperties; bPipe := IsPipe(InputFileName); bDeinterlace := SameText(HmsGetVideoSettings(vstDeinterlace), 'on'); if bPipe then else if (mpIsoItem or mpDvdItem or mpBdItem) and HmsCreateResourcePipe(sResourcePipe) then begin InputFileName := sResourcePipe; bPipe := True end else if mpPodcastItem then begin InputFileName := HmsGetItemProperty(mpiMediaResourceSource); bPipe := IsPipe(InputFileName); end; bVideoTranscoding := False; bAudioTranscoding := False; sInputVideoFileName := InputFileName; sInputAudioFileName := InputFileName; iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo < 0 then iAudioStreamNo := 0; iAudioChannels := HmsGetStreamChannels(iAudioStreamNo); if iAudioChannels < 2 then iAudioChannels := 2; iAudioBitrate := HmsGetStreamBitrate(stAudio, iAudioStreamNo); sTranscodingParams := ''; sTranscodingFileFormat := GetFileFormat(cfgTranscodingFileFormat); bVideoTranscoding := False; bAudioTranscoding := False; if SameText(HmsGetVideoSettings(vstVideoOriginal), 'On') then bVideoTranscoding := False else if SameText(HmsGetVideoSettings(vstVideoOriginal), 'Off') then bVideoTranscoding := True else if (mpSubtitleLanguage <> '') or (HmsGetVideoSettings(vstSubtitle) <> '') or bDeinterlace then bVideoTranscoding := True else if (mpFrameRate > 0) and (mpFrameRate < 20) then bVideoTranscoding := True else if not VideoCodecCompatible(sTranscodingFileFormat) then bVideoTranscoding := True else begin if (mpOriginalWidth > 0) then begin iWidth := mpOriginalWidth; iHeight := mpOriginalHeight; end else begin iWidth := mpWidth; iHeight := mpHeight; end; if (iWidth > cfgMaximumVideoResolutionWidth) or (iHeight > cfgMaximumVideoResolutionHeight) then bVideoTranscoding := True end; GetAudioTranscodingParams(cfgTranscodingAudioCodec, sAudioCfgCodecName, sAudioCfgFileFormat, iAudioCfgCodecID, iAudioCfgBitrate, iAudioChannels); if SameText(HmsGetVideoSettings(vstAudioOriginal), 'On') then bAudioTranscoding := False else if SameText(HmsGetVideoSettings(vstAudioOriginal), 'Off') then bAudioTranscoding := True else bAudioTranscoding := not AudioCodecCompatible(sTranscodingFileFormat); if bVideoTranscoding then begin sVideoMinMaxRate := ''; if cfgTranscodingVideoBitrate > 0 then begin sVideoBitrate := '-b:v ' + IntToStr(cfgTranscodingVideoBitrate); if cfgTranscodingVideoMinMaxRate then sVideoMinMaxRate := Format(' -minrate %d -maxrate %d -bufsize %d', [cfgTranscodingVideoBitrate, cfgTranscodingVideoBitrate, HmsTranscodingBufferSize(cfgTranscodingVideoBitrate)]) end else sVideoBitrate := '-q:v 0'; sVideoTranscodingParams := Format(csFFMPegVideoParams, [GetVideoCodec(cfgTranscodingVideoCodec), sVideoBitrate, sVideoMinMaxRate]); sFrameRate := HmsGetVideoSettings(vstFrameRate); if sFrameRate = '' then sFrameRate := cfgTranscodingFrameRate; if sFrameRate = '' then begin if SameText(cfgTranscodingVideoCodec, 'FLV') then sFrameRate := FormatFloat('0', mpFrameRate) else if (mpFrameRate > 0) and (mpFrameRate < 20) then sFrameRate := '23.976' end; if sFrameRate <> '' then sVideoTranscodingParams := sVideoTranscodingParams + ' -r ' + sFrameRate; iWidth := mpWidth; iHeight := mpHeight; if (iWidth > 0) and (iHeight > 0) then begin sFilterParams := ''; sPadParams := ''; if HmsTranscodingFrameParams(iWidth, iHeight, cfgTranscodingScreenFormat, iPadLeft, iPadTop, iPadRight, iPadBottom) then begin if mp3DVideoType in [1, 2] then begin iWidth := iWidth + iPadLeft + iPadRight; iHeight := iHeight + iPadTop + iPadBottom; if mp3DVideoType = 1 then iWidth := (iWidth div 4) * 4 else iHeight := (iHeight div 4) * 4 end; iFrameWidth := iWidth; iFrameHeight := iHeight; if (mp3DVideoType = 0) and ((iPadLeft > 0) or (iPadRight > 0) or (iPadTop > 0) or (iPadBottom > 0)) then begin Inc(iFrameWidth, iPadLeft + iPadRight); Inc(iFrameHeight, iPadTop + iPadBottom); sPadParams := Format('pad=%d:%d:%d:%d:0x%s', [iFrameWidth, iFrameHeight, iPadLeft, iPadTop, HmsConvertColor(cfgTranscodingPadColor)]); if cfgTranscodingFrameExists then sVideoTranscodingParams := sVideoTranscodingParams + cfgTranscodingFrameParams; end end else begin iFrameWidth := iWidth; iFrameHeight := iHeight; end; AddFilterParams(sFilterParams, Format('scale=%d:%d', [iWidth, iHeight])); if sPadParams <> '' then AddFilterParams(sFilterParams, sPadParams); AddFilterParams(sFilterParams, 'setdar=' + cfgTranscodingAspectRatio); sVideoTranscodingParams := sVideoTranscodingParams + Format(' -vf "%s"', [sFilterParams]); sVideoTranscodingParams := sVideoTranscodingParams + HmsTranscodingSubTitleParams( iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop); if (cfgTranscodingThreadCount > 1) and GetMultiThreadSupported(cfgTranscodingVideoCodec) then sVideoTranscodingParams := sVideoTranscodingParams + ' -threads ' + IntToStr(cfgTranscodingThreadCount); end end else begin sVideoTranscodingParams := ' -copyinkf -vcodec copy '; if SameText(mpVideoCodec, 'H264') then begin if VarToStr(mpCodecNalLengthSize) <> '' then bh264_mp4toannexb := VarToStr(mpCodecNalLengthSize) <> '0' else bh264_mp4toannexb := not MatchText(mpFileType, ['mpegts', 'wtv', 'hls', 'applehttp'], True); if bh264_mp4toannexb then sVideoTranscodingParams := sVideoTranscodingParams + ' -vbsf h264_mp4toannexb' end end; if bAudioTranscoding then sAudioTranscodingParams := Format(csFFMpegAudioParams, [sAudioCfgCodecName, iAudioCfgBitrate, GetAudioSampleRate(cfgTranscodingFileFormat, cfgTranscodingAudioCodec), iAudioChannels]) else sAudioTranscodingParams := ' -acodec copy'; bMapStreams := HmsGetStreamCount > 0; sTranscodingParams := HmsTranscodingProbeParams; if mpTimeStart <> '' then sTranscodingParams := sTranscodingParams + '-ss ' + mpTimeStart + ' '; if SameText(mpFileType, 'mpeg') then sTranscodingParams := sTranscodingParams + '-f mpeg '; if (InputFileName <> '') and (InputFileName[1] = '-') then sTranscodingParams := sTranscodingParams + InputFileName + ' ' else sTranscodingParams := sTranscodingParams + Format('-i "%s" ', [InputFileName]); sTranscodingParams := sTranscodingParams + '-f ' + GetFileFormat(cfgTranscodingFileFormat); sTranscodingParams := sTranscodingParams + sVideoTranscodingParams + sAudioTranscodingParams; if bMapStreams then sTranscodingParams := sTranscodingParams + Format(' -map 0:%d -map 0:%d', [HmsGetStreamIndex(stVideo, 0), HmsGetStreamIndex(stAudio, iAudioStreamNo)]); sTranscodingParams := sTranscodingParams + ' "<OUTPUT FILE>"'; // TranscodingParams := sTranscodingParams; TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True, InputFileName, OutputFileName) end. PascalScript Фильмы (Оптимальный) -1 6 a767239a-88da-44e1-a20b-6eaf83f1e8f2 HMSMPEG PascalScript 3 begin 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 if SameText(cfgTranscodingFileFormat, 'FLV') then FileExt := 'flv' else FileExt := ''; if FileExt <> '' then MimeType := HmsGetMimeType(FileExt) else MimeType := '' end. PascalScript 1 const csFFMpegVideoParams = ' -vcodec %s %s%s -pix_fmt yuv420p'; csFFMpegAudioParams = ' -acodec %s -ab %d -ar %d -ac %d'; procedure GetAudioTranscodingParams(const aAudioCodec: string; var aCodecName, aFileFormat: string; var aCodecID, aAudioBitrate, aAudioChannels: Integer); begin aAudioBitrate := cfgTranscodingAudioBitrate; if (cfgTranscodingAudioChannels <> 0) then aAudioChannels := cfgTranscodingAudioChannels; if SameText(aAudioCodec, 'AAC') then begin aCodecName := 'libfaac'; aFileFormat := 'adts'; aCodecID := CODEC_ID_AAC; end else if SameText(aAudioCodec, 'MP3') then begin aCodecName := 'libmp3lame'; aFileFormat := 'mp3'; aCodecID := CODEC_ID_MP3; if aAudioBitrate > 320000 then aAudioBitrate := 320000; if aAudioChannels > 2 then aAudioChannels := 2; end else if SameText(aAudioCodec, 'MP2') then begin aCodecName := 'mp2'; aFileFormat := 'mp2'; aCodecID := CODEC_ID_MP2; if aAudioBitrate > 320000 then aAudioBitrate := 320000; if aAudioChannels > 2 then aAudioChannels := 2; end else if SameText(aAudioCodec, 'LPCM') then begin aCodecName := 'pcm_s16be'; aFileFormat := 's16be'; aCodecID := CODEC_ID_PCM_BLURAY; end else if SameText(aAudioCodec, 'DTS') then begin aCodecName := 'dca'; aFileFormat := 'dts'; aCodecID := CODEC_ID_DTS; aAudioChannels := 0 end else if SameText(aAudioCodec, 'WMA') then begin aCodecName := 'wmav2'; aFileFormat := 'asf'; aCodecID := CODEC_ID_WMAV2; if aAudioChannels > 2 then aAudioChannels := 2; end else begin aCodecName := 'ac3'; aFileFormat := 'ac3'; if SameText(aAudioCodec, 'AC3') then aCodecID := CODEC_ID_AC3 else aCodecID := CODEC_ID_NONE; end end; function GetFileFormat(const aFileFormat: string): string; begin if (aFileFormat = '') or SameText(aFileFormat, 'MPEG (DVD)') then Result := 'dvd' else if Pos('MPEGTS', aFileFormat) > 0 then Result := 'mpegts' else if Pos('ASF', aFileFormat) > 0 then Result := 'asf' else if SameText(aFileFormat, 'MP4') then Result := 'ipod' else if SameText(aFileFormat, 'FLV') then Result := 'flv' else if SameText(aFileFormat, 'MPEG1') then Result := 'mpeg' else Result := aFileFormat end; function GetVideoCodec(const aVideoCodec: string): string; begin if (aVideoCodec = '') or SameText(aVideoCodec, 'MPEG2') then Result := 'mpeg2video' else if SameText(aVideoCodec, 'MPEG1') then Result := 'mpeg1video' else if SameText(aVideoCodec, 'FLV') then Result := 'flv' else if SameText(aVideoCodec, 'WMV') then Result := 'wmv2' else if SameText(aVideoCodec, 'MPEG4') then Result := 'mpeg4' else if SameText(aVideoCodec, 'X264') then Result := 'libx264 -x264opts "fast-pskip=1:rc-lookahead=0:aq_mode=0" -partitions none -sc_threshold 0 -trellis 0 -me_method dia -refs 1 -subq 0 -vprofile baseline -level 30 -bufsize 10000000 ' else Result := aVideoCodec end; function GetMultiThreadSupported(const aVideoCodec: string): Boolean; begin Result := not MatchText(aVideoCodec, ['WMV', 'MPEG1', 'FLV']) end; function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer; begin if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then Result := 320000 else Result := aAudioBitrate end; function GetAudioSampleRate(const aFileFormat, aAudioCodec: string): Integer; begin if MatchText(aFileFormat, ['FLV']) and not SameText(aAudioCodec, 'AAC') then Result := 44100 else Result := 48000 end; function GetAudioChannels(const aAudioCodec: string; aConfigAudioChannels, aStreamAudioChannels: Integer): Integer; begin if aConfigAudioChannels > 0 then Result := aConfigAudioChannels else Result := aStreamAudioChannels; if (Result > 2) and MatchText(aAudioCodec, ['MP2', 'MP3']) then Result := 2 else if (Result = 1) and MatchText(aAudioCodec, ['AAC', 'AC3']) then Result := 2 else if Result > 6 then Result := 6 end; function VideoCodecCompatible: Boolean; begin if (cfgTranscodingFileFormat = '') or SameText(cfgTranscodingFileFormat, 'MPEG (DVD)') then Result := MatchText(mpVideoCodec, ['MPEG2VIDEO', 'MPEG1VIDEO']) else if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then Result := MatchText(mpVideoCodec, ['H264', 'MPEG2VIDEO', 'MPEG1VIDEO', 'MPEG4']) else if Pos('ASF', cfgTranscodingFileFormat) > 0 then Result := MatchText(mpVideoCodec, ['H264', 'MPEG4', 'WMV2']) else if SameText(cfgTranscodingFileFormat, 'MP4') then Result := MatchText(mpVideoCodec, ['H264', 'MPEG4']) else if SameText(cfgTranscodingFileFormat, 'FLV') then Result := MatchText(mpVideoCodec, ['H264', 'FLV']) else if SameText(cfgTranscodingFileFormat, 'MPEG1') then Result := MatchText(mpVideoCodec, ['MPEG2VIDEO', 'MPEG1VIDEO']) else Result := False end; procedure AddFilterParams(var aFilterParams: string; const aAddParams: string); begin if aFilterParams <> '' then aFilterParams := aFilterParams + ','; aFilterParams := aFilterParams + aAddParams end; var bMapStreams, bDeinterlace, bPipe, bSuccess, bAudioTranscoding, bVideoTranscoding: Boolean; iAudioBitrate, iAudioChannels, iAudioCfgBitrate, iAudioCfgCodecID, iAudioStreamNo, iCodecID, iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop, iPadRight, iPadBottom, iVideoCodecID, iAudioCodecID: Integer; sVideoTranscodingParams, sAudioTranscodingParams, sTranscodingParams, sAudioCfgCodecName, sAudioCfgFileFormat, sInputAudioFileName, sInputVideoFileName, sFrameRate, sResourcePipe, sSoxTranscodingParams, sVideoBitrate, sVideoMinMaxRate, sFilterParams, sPadParams: string; begin if HmsGetStreamCount = 0 then HmsRetrieveProperties; bPipe := Pos('\\.\pipe\', InputFileName) > 0; bDeinterlace := SameText(HmsGetVideoSettings(vstDeinterlace), 'on'); if bPipe then else if (mpIsoItem or mpDvdItem or mpBdItem) and HmsCreateResourcePipe(sResourcePipe) then begin InputFileName := sResourcePipe; bPipe := True; end else if mpPodcastItem then begin InputFileName := HmsGetItemProperty(mpiMediaResourceSource); bPipe := Pos('\\.\pipe\', InputFileName) > 0; end; bVideoTranscoding := False; bAudioTranscoding := False; sInputVideoFileName := InputFileName; sInputAudioFileName := InputFileName; iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo < 0 then iAudioStreamNo := 0; iVideoCodecID := HmsGetStreamCodecID(stVideo, 0); iAudioCodecID := HmsGetStreamCodecID(stAudio, iAudioStreamNo); iAudioChannels := HmsGetStreamChannels(iAudioStreamNo); if iAudioChannels < 2 then iAudioChannels := 2; iAudioBitrate := HmsGetStreamBitrate(stAudio, iAudioStreamNo); sTranscodingParams := ''; sSoxTranscodingParams := ''; bVideoTranscoding := False; bAudioTranscoding := False; if SameText(HmsGetVideoSettings(vstVideoOriginal), 'On') then bVideoTranscoding := False else if SameText(HmsGetVideoSettings(vstVideoOriginal), 'Off') then bVideoTranscoding := True else if (mpSubtitleLanguage <> '') or (HmsGetVideoSettings(vstSubtitle) <> '') or bDeinterlace then bVideoTranscoding := True else if (mpFrameRate > 0) and (mpFrameRate < 20) then bVideoTranscoding := True else if not VideoCodecCompatible then bVideoTranscoding := True else begin if (mpOriginalWidth > 0) then begin iWidth := mpOriginalWidth; iHeight := mpOriginalHeight; end else begin iWidth := mpWidth; iHeight := mpHeight; end; if (iWidth > cfgMaximumVideoResolutionWidth) or (iHeight > cfgMaximumVideoResolutionHeight) then bVideoTranscoding := True end; GetAudioTranscodingParams(cfgTranscodingAudioCodec, sAudioCfgCodecName, sAudioCfgFileFormat, iAudioCfgCodecID, iAudioCfgBitrate, iAudioChannels); if SameText(HmsGetVideoSettings(vstAudioOriginal), 'On') then bAudioTranscoding := False else if SameText(HmsGetVideoSettings(vstAudioOriginal), 'Off') then bAudioTranscoding := True else if (iAudioCodecID <> iAudioCfgCodecID) or ((cfgTranscodingAudioChannels <> 0) and (cfgTranscodingAudioChannels <> iAudioChannels)) or ((cfgTranscodingFileFormat = 'FLV') and (GetAudioSampleRate(cfgTranscodingFileFormat, cfgTranscodingAudioCodec) <> mpAudioSampleRate)) then bAudioTranscoding := True; if bVideoTranscoding then begin sVideoMinMaxRate := ''; if cfgTranscodingVideoBitrate > 0 then begin sVideoBitrate := '-b:v ' + IntToStr(cfgTranscodingVideoBitrate); if cfgTranscodingVideoMinMaxRate then sVideoMinMaxRate := Format(' -minrate %d -maxrate %d -bufsize %d', [cfgTranscodingVideoBitrate, cfgTranscodingVideoBitrate, HmsTranscodingBufferSize(cfgTranscodingVideoBitrate)]) end else sVideoBitrate := '-sameq'; sVideoTranscodingParams := Format(csFFMPegVideoParams, [GetVideoCodec(cfgTranscodingVideoCodec), sVideoBitrate, sVideoMinMaxRate]); sFrameRate := HmsGetVideoSettings(vstFrameRate); if sFrameRate = '' then sFrameRate := cfgTranscodingFrameRate; if sFrameRate = '' then begin if SameText(cfgTranscodingVideoCodec, 'FLV') then sFrameRate := FormatFloat('0', mpFrameRate) else if (mpFrameRate > 0) and (mpFrameRate < 20) then sFrameRate := '23.976' end; if sFrameRate <> '' then sVideoTranscodingParams := sVideoTranscodingParams + ' -r ' + sFrameRate; iWidth := mpWidth; iHeight := mpHeight; if (iWidth > 0) and (iHeight > 0) then begin sFilterParams := ''; sPadParams := ''; if HmsTranscodingFrameParams(iWidth, iHeight, cfgTranscodingScreenFormat, iPadLeft, iPadTop, iPadRight, iPadBottom) then begin if mp3DVideoType in [1, 2] then begin iWidth := iWidth + iPadLeft + iPadRight; iHeight := iHeight + iPadTop + iPadBottom; if mp3DVideoType = 1 then iWidth := (iWidth div 4) * 4 else iHeight := (iHeight div 4) * 4 end; iFrameWidth := iWidth; iFrameHeight := iHeight; if (mp3DVideoType = 0) and ((iPadLeft > 0) or (iPadRight > 0) or (iPadTop > 0) or (iPadBottom > 0)) then begin Inc(iFrameWidth, iPadLeft + iPadRight); Inc(iFrameHeight, iPadTop + iPadBottom); sPadParams := Format('pad=%d:%d:%d:%d:0x%s', [iFrameWidth, iFrameHeight, iPadLeft, iPadTop, HmsConvertColor(cfgTranscodingPadColor)]); if cfgTranscodingFrameExists then sVideoTranscodingParams := sVideoTranscodingParams + cfgTranscodingFrameParams; end end else begin iFrameWidth := iWidth; iFrameHeight := iHeight; end; AddFilterParams(sFilterParams, Format('scale=%d:%d', [iWidth, iHeight])); if sPadParams <> '' then AddFilterParams(sFilterParams, sPadParams); AddFilterParams(sFilterParams, 'setdar=' + cfgTranscodingAspectRatio); sVideoTranscodingParams := sVideoTranscodingParams + Format(' -vf "%s"', [sFilterParams]); sVideoTranscodingParams := sVideoTranscodingParams + HmsTranscodingSubTitleParams( iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop); if (cfgTranscodingThreadCount > 1) and GetMultiThreadSupported(cfgTranscodingVideoCodec) then sVideoTranscodingParams := sVideoTranscodingParams + ' -threads ' + IntToStr(cfgTranscodingThreadCount); end end else begin sVideoTranscodingParams := ' -copyinkf -vcodec copy '; if SameText(mpVideoCodec, 'H264') and not SameText(mpFileType, 'mpegts') and not SameText(mpFileType, 'wtv') then sVideoTranscodingParams := sVideoTranscodingParams + ' -vbsf h264_mp4toannexb' end; if bAudioTranscoding then sAudioTranscodingParams := Format(csFFMpegAudioParams, [sAudioCfgCodecName, iAudioCfgBitrate, GetAudioSampleRate(cfgTranscodingFileFormat, cfgTranscodingAudioCodec), iAudioChannels]) else sAudioTranscodingParams := ' -acodec copy'; bMapStreams := HmsGetStreamCount > 0; sTranscodingParams := HmsTranscodingProbeParams; if mpTimeStart <> '' then sTranscodingParams := sTranscodingParams + '-ss ' + mpTimeStart + ' '; if SameText(mpFileType, 'mpeg') then sTranscodingParams := sTranscodingParams + '-f mpeg '; sTranscodingParams := sTranscodingParams + Format('-i "%s" ', [InputFileName]); sTranscodingParams := sTranscodingParams + '-f ' + GetFileFormat(cfgTranscodingFileFormat); sTranscodingParams := sTranscodingParams + sVideoTranscodingParams + sAudioTranscodingParams; if bMapStreams then sTranscodingParams := sTranscodingParams + Format(' -map 0:%d -map 0:%d', [HmsGetStreamIndex(stVideo, 0), HmsGetStreamIndex(stAudio, iAudioStreamNo)]); sTranscodingParams := sTranscodingParams + ' "<OUTPUT FILE>"'; // TranscodingParams := sTranscodingParams; TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True, InputFileName, OutputFileName) end. PascalScript Фильмы (Ремуксирование) -1 0 6d153a01-6207-4503-8a0f-6b4cf722e95e HMSMPEG PascalScript Транскодирование с перекодированием видео 3 begin 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 := '' end. PascalScript 0 const csTranscodingInputFile = '-i "<INPUT FILE>"'; csFFMpegVideoParams = ' -f %s -vcodec %s %s%s -pix_fmt yuv420p'; csFFMpegAudioParams = ' -acodec %s -ab %d -ar 48000'; function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else if SameText(aAudioCodec, 'DTS') then Result := 'dca' else if SameText(aAudioCodec, 'LPCM') then Result := 'pcm_s16be' else Result := aAudioCodec end; function SameAudioCodec(const aAudioCodec: string; aCodecID: Integer): Boolean; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := aCodecID = CODEC_ID_AC3 else if SameText(aAudioCodec, 'AAC') then Result := aCodecID = CODEC_ID_AAC else if SameText(aAudioCodec, 'MP3') then Result := aCodecID = CODEC_ID_MP3 else if SameText(aAudioCodec, 'MP2') then Result := aCodecID = CODEC_ID_MP2 else if SameText(aAudioCodec, 'WMA') then Result := aCodecID = CODEC_ID_WMAV2 else Result := False end; function GetFileFormat(const aFileFormat: string): string; begin if (aFileFormat = '') or SameText(aFileFormat, 'MPEG (DVD)') then Result := 'dvd' else if Pos('MPEGTS', aFileFormat) > 0 then Result := 'mpegts' else if Pos('ASF', aFileFormat) > 0 then Result := 'asf' else if SameText(aFileFormat, 'MP4') then Result := 'ipod' else if SameText(aFileFormat, 'MPEG1') then Result := 'mpeg' else Result := aFileFormat end; function GetVideoCodec(const aVideoCodec: string): string; begin if (aVideoCodec = '') or SameText(aVideoCodec, 'MPEG2') then Result := 'mpeg2video' else if SameText(aVideoCodec, 'MPEG1') then Result := 'mpeg1video' else if SameText(aVideoCodec, 'WMV') then Result := 'wmv2' else if SameText(aVideoCodec, 'MPEG4') then Result := 'mpeg4' else if SameText(aVideoCodec, 'X264') then Result := 'libx264 -x264opts "fast-pskip=1:rc-lookahead=0:aq_mode=0" -partitions none -sc_threshold 0 -trellis 0 -me_method dia -refs 1 -subq 0 -vprofile baseline -level 30 -bufsize 10000000 ' else Result := aVideoCodec end; function GetMultiThreadSupported(const aVideoCodec: string): Boolean; begin Result := not MatchText(aVideoCodec, ['WMV', 'MPEG1', 'FLV']) end; function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer; begin if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then Result := 320000 else Result := aAudioBitrate end; function GetAudioChannels(const aAudioCodec: string; aConfigAudioChannels, aStreamAudioChannels: Integer): Integer; begin if aConfigAudioChannels > 0 then Result := aConfigAudioChannels else Result := aStreamAudioChannels; if (Result > 2) and MatchText(aAudioCodec, ['MP2', 'MP3']) then Result := 2 else if (Result = 1) and MatchText(aAudioCodec, ['AAC', 'AC3']) then Result := 2 else if Result > 6 then Result := 6 end; procedure AddFilterParams(var aFilterParams: string; const aAddParams: string); begin if aFilterParams <> '' then aFilterParams := aFilterParams + ','; aFilterParams := aFilterParams + aAddParams end; var iAudioStreamNo, iChannels, iCodecID, iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop, iPadRight, iPadBottom: Integer; sFrameRate, sParams, sVideoBitrate, sVideoMinMaxRate, sFilterParams, sPadParams: string; begin sVideoMinMaxRate := ''; if cfgTranscodingVideoBitrate > 0 then begin sVideoBitrate := '-b:v ' + IntToStr(cfgTranscodingVideoBitrate); if cfgTranscodingVideoMinMaxRate then sVideoMinMaxRate := Format(' -minrate %d -maxrate %d -bufsize %d', [cfgTranscodingVideoBitrate, cfgTranscodingVideoBitrate, HmsTranscodingBufferSize(cfgTranscodingVideoBitrate)]) end else sVideoBitrate := '-q:v 0'; if mpInternetItem then TranscodingParams := HmsTranscodingProfileParams('Интернет-телевидение') else if mpSubItemsCount > 0 then TranscodingParams := HmsTranscodingProfileParams('Фильмы (DVD)') else begin sParams := HmsTranscodingInputParams; sParams := sParams + Format(csFFMPegVideoParams, [GetFileFormat(cfgTranscodingFileFormat), GetVideoCodec(cfgTranscodingVideoCodec), sVideoBitrate, sVideoMinMaxRate]); iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo <> -1 then begin iCodecID := HmsGetStreamCodecID('A', iAudioStreamNo); iChannels := HmsGetStreamChannels(iAudioStreamNo); end else begin iCodecID := CODEC_ID_NONE; iChannels := 0; end; if (iCodecID = CODEC_ID_NONE) and SameText(mpAudioCodec, 'AC3') then iCodecID := CODEC_ID_AC3; if cfgTranscodingAudioCopyAC3 and SameAudioCodec(cfgTranscodingAudioCodec, iCodecID) then sParams := sParams + ' -acodec copy' else begin sParams := sParams + Format(csFFMpegAudioParams, [GetAudioCodec(cfgTranscodingAudioCodec), GetAudioBitrate(cfgTranscodingAudioCodec, cfgTranscodingAudioBitrate)]); iChannels := GetAudioChannels(cfgTranscodingAudioCodec, cfgTranscodingAudioChannels, iChannels); if iChannels > 0 then sParams := sParams + ' -ac ' + IntToStr(iChannels) end; sFrameRate := HmsGetVideoSettings(vstFrameRate); if sFrameRate = '' then sFrameRate := cfgTranscodingFrameRate; if (sFrameRate = '') and (mpFrameRate > 0) and (mpFrameRate < 20) then sFrameRate := '23.976'; if sFrameRate <> '' then sParams := sParams + ' -r ' + sFrameRate; iWidth := mpWidth; iHeight := mpHeight; if (iWidth > 0) and (iHeight > 0) then begin sFilterParams := ''; sPadParams := ''; if HmsTranscodingFrameParams(iWidth, iHeight, cfgTranscodingScreenFormat, iPadLeft, iPadTop, iPadRight, iPadBottom) then begin if mp3DVideoType in [1, 2] then begin iWidth := iWidth + iPadLeft + iPadRight; iHeight := iHeight + iPadTop + iPadBottom; if mp3DVideoType = 1 then iWidth := (iWidth div 4) * 4 else iHeight := (iHeight div 4) * 4 end; iFrameWidth := iWidth; iFrameHeight := iHeight; if (mp3DVideoType = 0) and ((iPadLeft > 0) or (iPadRight > 0) or (iPadTop > 0) or (iPadBottom > 0)) then begin Inc(iFrameWidth, iPadLeft + iPadRight); Inc(iFrameHeight, iPadTop + iPadBottom); sPadParams := Format('pad=%d:%d:%d:%d:0x%s', [iFrameWidth, iFrameHeight, iPadLeft, iPadTop, HmsConvertColor(cfgTranscodingPadColor)]); if cfgTranscodingFrameExists then sParams := sParams + cfgTranscodingFrameParams; end end else begin iFrameWidth := iWidth; iFrameHeight := iHeight; end; AddFilterParams(sFilterParams, Format('scale=%d:%d', [iWidth, iHeight])); if sPadParams <> '' then AddFilterParams(sFilterParams, sPadParams); AddFilterParams(sFilterParams, 'setdar=' + cfgTranscodingAspectRatio); sParams := sParams + Format(' -vf "%s"', [sFilterParams]); sParams := sParams + HmsTranscodingSubTitleParams( iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop); sParams := sParams + HmsTranscodingMapParams(iAudioStreamNo); if (cfgTranscodingThreadCount > 1) and GetMultiThreadSupported(cfgTranscodingVideoCodec) then sParams := sParams + ' -threads ' + IntToStr(cfgTranscodingThreadCount); end; TranscodingParams := sParams end end. PascalScript Фильмы (дополнительный) -1 11 C225AA28BEDE47548B914499BFDA81A2 HMSMPEG PascalScript Транскодирование с перекодированием видео 3 MimeType := HmsGetMimeType('wmv') PascalScript 0 const csTranscodingInputFile = '-i "<INPUT FILE>"'; csFFMpegVideoParams = ' -f asf -vcodec wmv2 %s -pix_fmt yuv420p'; csFFMpegAudioParams = ' -acodec wmav2 -ab %d -ar 48000 -ac 2 '; procedure AddFilterParams(var aFilterParams: string; const aAddParams: string); begin if aFilterParams <> '' then aFilterParams := aFilterParams + ','; aFilterParams := aFilterParams + aAddParams end; var iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop, iPadRight, iPadBottom: Integer; sFrameRate, sParams, sVideoBitrate, sFilterParams, sPadParams: string; begin if mpInternetItem then TranscodingParams := HmsTranscodingProfileParams('Интернет-телевидение') else if mpSubItemsCount > 0 then TranscodingParams := HmsTranscodingProfileParams('Фильмы (DVD)') else begin sParams := csTranscodingInputFile; if Pos('://', mpFilePath) = 0 then begin if mpTimeStart <> '' then sParams := '-ss ' + mpTimeStart + ' ' + sParams end; if cfgTranscodingVideoBitrate > 0 then sVideoBitrate := '-b:v ' + IntToStr(cfgTranscodingVideoBitrate) else sVideoBitrate := '-q:v 0'; sParams := sParams + Format(csFFMPegVideoParams, [sVideoBitrate]); if SameText(mpAudioCodec, 'AC3') and cfgTranscodingAudioCopyAC3 then sParams := sParams + ' -acodec copy' else begin sParams := sParams + Format(csFFMpegAudioParams, [cfgTranscodingAudioBitrate]); { if cfgTranscodingAudioChannels > 0 then sParams := sParams + ' -ac ' + IntToStr(cfgTranscodingAudioChannels)} end; sFrameRate := HmsGetVideoSettings(vstFrameRate); if sFrameRate = '' then sFrameRate := cfgTranscodingFrameRate; if (sFrameRate = '') and (mpFrameRate > 0) and (mpFrameRate < 20) then sFrameRate := '23.976'; if sFrameRate <> '' then sParams := sParams + ' -r ' + sFrameRate; iWidth := mpWidth; iHeight := mpHeight; if (iWidth > 0) and (iHeight > 0) then begin sFilterParams := ''; sPadParams := ''; if HmsTranscodingFrameParams(iWidth, iHeight, cfgTranscodingScreenFormat, iPadLeft, iPadTop, iPadRight, iPadBottom) then begin if mp3DVideoType in [1, 2] then begin iWidth := iWidth + iPadLeft + iPadRight; iHeight := iHeight + iPadTop + iPadBottom; if mp3DVideoType = 1 then iWidth := (iWidth div 4) * 4 else iHeight := (iHeight div 4) * 4 end; iFrameWidth := iWidth; iFrameHeight := iHeight; if (mp3DVideoType = 0) and ((iPadLeft > 0) or (iPadRight > 0) or (iPadTop > 0) or (iPadBottom > 0)) then begin Inc(iFrameWidth, iPadLeft + iPadRight); Inc(iFrameHeight, iPadTop + iPadBottom); sPadParams := Format('pad=%d:%d:%d:%d:0x%s', [iFrameWidth, iFrameHeight, iPadLeft, iPadTop, HmsConvertColor(cfgTranscodingPadColor)]); if cfgTranscodingFrameExists then sParams := sParams + cfgTranscodingFrameParams; end end else begin iFrameWidth := iWidth; iFrameHeight := iHeight; end; AddFilterParams(sFilterParams, Format('scale=%d:%d', [iWidth, iHeight])); if sPadParams <> '' then AddFilterParams(sFilterParams, sPadParams); AddFilterParams(sFilterParams, 'setdar=' + cfgTranscodingAspectRatio); sParams := sParams + Format(' -vf "%s"', [sFilterParams]); sParams := sParams + HmsTranscodingSubTitleParams( iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop); sParams := sParams + HmsTranscodingMapParams(mpAudioStreamNo); end; TranscodingParams := sParams end end. PascalScript Фильмы (дополнительный) - WMV -1 24 9282F331CF33420C83D8D7BCBD5E4B8E HMSMPEG Нет скрипта Транскодирование с перекодированием видео 3 begin 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 := '' end. PascalScript 0 IfThen(mpInternetItem, HmsTranscodingProfileParams('Интернет-телевидение'), IfThen(mpSubItemsCount > 0, HmsTranscodingDvdParams, HmsTranscodingInputParams + HmsTranscodingVideoParams + HmsTranscodingMapParams(mpAudioStreamNo))) PascalScript Фильмы (основной) -1 -1 EBF8EF92852D416FA641B99DA3FB4235 MENCODER PascalScript Транскодирование с перекодированием видео 3 0 const csMEncoderInputParams = '"<INPUT FILE>" '; csMEncoderDvdParams = 'dvd://%s -dvd-device "%s" '; csMEncoderVideoOptions = 'vcodec=mpeg2video:vbitrate=%d'; csMEncoderAudioOptions = ':acodec=ac3:abitrate=%d'; var bExpandFrame: Boolean; iFrameWidth, iFrameHeight, iWidth, iHeight, iAudioStreamID, iPadLeft, iPadTop, iPadRight, iPadBottom: Integer; sFrameRate, sMEncoderOptions, sParams, sAudioStreamID: string; begin if mpInternetItem then sParams := HmsTranscodingProfileParams('Интернет-телевидение') else begin HmsTranscodingActivateSubItem(-1); iAudioStreamID := mpAudioStreamNo; sParams := ''; if Pos('://', mpFilePath) = 0 then begin if mpTimeStart <> '' then sParams := '-ss ' + mpTimeStart + ' ' end; if mpSubItemsCount > 0 then begin HmsTranscodingActivateSubItem(0); if iAudioStreamID <> -1 then sAudioStreamID := HmsGetAudioStreamID(iAudioStreamID); sParams := sParams + Format(csMEncoderDvdParams, [Copy(ExtractFileName(mpFilePath), 5, 2), ExcludeTrailingBackslash(ExtractFilePath(mpFilePath))]) end else sParams := sParams + csMEncoderInputParams; sParams := sParams + '-of mpeg -mpegopts format=dvd -ovc lavc '; sMEncoderOptions := Format(csMEncoderVideoOptions, [cfgTranscodingVideoBitrate div 1000]); if SameText(mpAudioCodec, 'AC3') and cfgTranscodingAudioCopyAC3 then sParams := sParams + '-oac copy ' else begin sParams := sParams + '-oac lavc '; sMEncoderOptions := sMEncoderOptions + Format(csMEncoderAudioOptions, [IfThen(mpInternetItem, 320, cfgTranscodingAudioBitrate div 1000)]); if cfgTranscodingAudioChannels > 0 then sParams := sParams + '-channels ' + IntToStr(cfgTranscodingAudioChannels) + ' ' end; iWidth := mpWidth; iHeight := mpHeight; if (iWidth > 0) and (iHeight > 0) then begin if HmsTranscodingFrameParams(iWidth, iHeight, cfgTranscodingScreenFormat, iPadLeft, iPadTop, iPadRight, iPadBottom) then begin iFrameWidth := iWidth; iFrameHeight := iHeight; bExpandFrame := (iPadLeft > 0) or (iPadRight > 0) or (iPadTop > 0) or (iPadBottom > 0); if bExpandFrame then begin Inc(iFrameWidth, iPadLeft + iPadRight); Inc(iFrameHeight, iPadTop + iPadBottom); end end else begin bExpandFrame := False; iFrameWidth := iWidth; iFrameHeight := iHeight; end; sParams := sParams + Format('-vf scale=%d:%d', [iWidth, iHeight]); if bExpandFrame then sParams := sParams + Format(',expand=%d:%d:%d:%d ', [iFrameWidth, iFrameHeight, iPadLeft, iPadTop]) else sParams := sParams + ' '; sMEncoderOptions := sMEncoderOptions + ':aspect=' + ReplaceStr(cfgTranscodingScreenFormat, ':', '/') end; if sAudioStreamID <> '' then sParams := sParams + Format('-aid %d ', [StrToInt('$' + sAudioStreamID)]); if cfgTranscodingThreadCount > 1 then sMEncoderOptions := sMEncoderOptions + Format(':threads=%d', [cfgTranscodingThreadCount]); sParams := sParams + '-noskip -mc 0 '; if sMEncoderOptions <> '' then sParams := sParams + Format('-lavcopts %s ', [sMEncoderOptions]); if mpInternetItem then sFrameRate := '24000/1001' else if cfgTranscodingFrameRate <> '' then sFrameRate := cfgTranscodingFrameRate else if mpFrameRate > 0 then sFrameRate := ReplaceStr(FormatFloat('0.000', mpFrameRate), ',', '.') else sFrameRate := '25'; if SameFloat(sFrameRate, '23.976') then sFrameRate := '24000/1001' else if SameFloat(sFrameRate, '29.970') then sFrameRate := '30000/1001' else if SameFloat(sFrameRate, '59.940') then sFrameRate := '60000/1001'; sParams := sParams + Format('-ofps %s ', [sFrameRate]) + ' -o "<OUTPUT FILE>"'; end; TranscodingParams := sParams end. PascalScript Фильмы (основной) - MENCODER -1 17 0CB02451A2974B5DA34ADD0A0B8450C0 MPLEX PascalScript Транскодирование без перекодирования видео 3 1 const csAudioTranscodingParams = ' -acodec %s -ar 48000 -ab %d -ac %d'; function GetAudioFormat(aCodecID: Integer): string; begin if aCodecID = CODEC_ID_AC3 then Result := 'ac3' else if aCodecID = CODEC_ID_MP2 then Result := 'mp2' else if aCodecID = CODEC_ID_DTS then Result := 'dts' else if aCodecID = CODEC_ID_PCM_S16BE then Result := 'lpcm' else Result := '' end; function AudioCodecSupported(aCodecID, aAudioChannels: Integer): Boolean; begin Result := GetAudioFormat(aCodecID) <> ''; if Result then begin if aCodecID = CODEC_ID_AC3 then Result := aAudioChannels = 6 else if aCodecID = CODEC_ID_PCM_S16BE then Result := aAudioChannels = 2 end end; function VideoCodecSupported(aCodecID: Integer): Boolean; begin Result := aCodecID = CODEC_ID_MPEG2VIDEO end; procedure GetAudioTranscodingParams(const aAudioCodec: string; var aCodecName, aFileFormat: string; var aCodecID, aAudioBitrate, aAudioChannels: Integer); var sAudioCodec: string; begin aAudioBitrate := cfgTranscodingAudioBitrate; if SameText(aAudioCodec, 'AC3') and (aAudioChannels = 6) then begin aCodecName := 'ac3'; aFileFormat := 'ac3'; aCodecID := CODEC_ID_AC3; end else if SameText(aAudioCodec, 'LPCM') then begin aCodecName := 'pcm_s16be'; aFileFormat := 's16be'; aCodecID := CODEC_ID_PCM_S16BE; if aAudioChannels > 2 then begin aAudioChannels := 2; aCodecID := CODEC_ID_NONE end end else begin aCodecName := 'mp2'; aFileFormat := 'mp2'; if aAudioBitrate > 320000 then aAudioBitrate := 320000; if SameText(aAudioCodec, 'MP2') then aCodecID := CODEC_ID_MP2 else aCodecID := CODEC_ID_NONE; if aAudioChannels > 2 then begin aAudioChannels := 2; aCodecID := CODEC_ID_NONE end end end; var bAudioTranscoding, bVideoTranscoding, bMapStreams: Boolean; iAudioChannels, iAudioCodecID, iAudioCfgBitrate, iAudioCfgCodecID, iAudioStreamNo, iVideoCodecID: Integer; sAudioCodec, sSyncOffset, sTranscodingMplexParams, sAudioCfgCodecInfo, sAudioCfgCodecName, sAudioCfgFileFormat, sAudioTranscodingParams, sLpcmParams, sVideoTranscodingParams, sTranscodingParams, sReadAudioPipeName, sWriteAudioPipeName, sReadVideoPipeName, sWriteVideoPipeName: string; begin TranscodingResult := False; bMapStreams := HmsGetStreamCount > 0; if not bMapStreams then begin HmsRetrieveProperties; bMapStreams := HmsGetStreamCount > 0; end; sSyncOffset := HmsGetVideoSettings(vstAudioDelay); if sSyncOffset <> '' then sSyncOffset := Format('-O %ds ', [-StrToInt(sSyncOffset)]); iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo < 0 then iAudioStreamNo := 0; iAudioCodecID := HmsGetStreamCodecID(stAudio, iAudioStreamNo); iAudioChannels := HmsGetStreamChannels(iAudioStreamNo); bAudioTranscoding := True; if AudioCodecSupported(iAudioCodecID, iAudioChannels) then begin if SameText(HmsGetVideoSettings(vstAudioOriginal), 'on') then bAudioTranscoding := False end else iAudioCodecID := CODEC_ID_NONE; if bAudioTranscoding then begin if cfgTranscodingAudioChannels <> 0 then iAudioChannels := cfgTranscodingAudioChannels; if iAudioChannels < 2 then iAudioChannels := 2; GetAudioTranscodingParams(cfgTranscodingAudioCodec, sAudioCfgCodecName, sAudioCfgFileFormat, iAudioCfgCodecID, iAudioCfgBitrate, iAudioChannels); bAudioTranscoding := (iAudioCodecID = CODEC_ID_NONE) or (iAudioCodecID <> iAudioCfgCodecID); end else sAudioCfgFileFormat := GetAudioFormat(iAudioCodecID); if SameText(sAudioCfgFileFormat, 's16be') then begin sReadAudioPipeName := '.lpcm'; sLpcmParams := ' -L 48000:2:16'; end else begin sReadAudioPipeName := '.' + sAudioCfgFileFormat; sLpcmParams := ''; end; iVideoCodecID := HmsGetStreamCodecID(stVideo, 0); if SameText(HmsGetVideoSettings(vstVideoOriginal), 'on') and VideoCodecSupported(iVideoCodecID) then bVideoTranscoding := False else bVideoTranscoding := True; sWriteAudioPipeName := sReadAudioPipeName; if HmsCreateDualPipe(sReadVideoPipeName, sWriteVideoPipeName, 10000000) and HmsCreateDualPipe(sReadAudioPipeName, sWriteAudioPipeName, 10000000) then begin if bAudioTranscoding then sAudioTranscodingParams := Format(csAudioTranscodingParams, [sAudioCfgCodecName, iAudioCfgBitrate, iAudioChannels]) else sAudioTranscodingParams := ' -acodec copy'; sAudioTranscodingParams := sAudioTranscodingParams + Format(' -f %s -y "%s"', [sAudioCfgFileFormat, sWriteAudioPipeName]); if bVideoTranscoding then sVideoTranscodingParams := HmsTranscodingVideoCodecParams else sVideoTranscodingParams := ' -copyinkf -vcodec copy'; sVideoTranscodingParams := sVideoTranscodingParams + Format(' -f mpeg2video -y "%s"', [sWriteVideoPipeName]); if mpTimeStart <> '' then sTranscodingParams := '-ss ' + mpTimeStart + ' ' else sTranscodingParams := ''; sTranscodingParams := sTranscodingParams + Format('-i "%s"', [InputFileName]); sTranscodingParams := sTranscodingParams + sVideoTranscodingParams; if bMapStreams then sTranscodingParams := sTranscodingParams + Format(' -map 0:%d', [HmsGetStreamIndex(stVideo, 0)]); sTranscodingParams := sTranscodingParams + sAudioTranscodingParams; if bMapStreams then sTranscodingParams := sTranscodingParams + Format(' -map 0:%d', [HmsGetStreamIndex(stAudio, iAudioStreamNo)]); sTranscodingParams := sTranscodingParams + ' -v -1 -loglevel quiet'; if HmsTranscodingExecute('HMSMPEG', sTranscodingParams, False) then begin sTranscodingMplexParams := Format(sSyncOffset + '-f 9 -b 2000%s -r 2100000 -o "%s" "%s" "%s"', [sLpcmParams, OutputFileName, sReadVideoPipeName, sReadAudioPipeName]); TranscodingResult := HmsTranscodingExecute('MPLEX', sTranscodingMplexParams, True); end end end. PascalScript Фильмы (основной) - MPLEX -1 8 E151C20AF5864ECC8EA6945A4C256C06 HMSMPEG Нет скрипта Транскодирование с перекодированием видео 3 begin 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 := '' end. PascalScript 0 IfThen(mpInternetItem, HmsTranscodingProfileParams('Интернет-телевидение'), IfThen(mpSubItemsCount > 0, HmsTranscodingDvdParams(1280, 720, 6000000, 448000), HmsTranscodingInputParams + HmsTranscodingVideoParams(1280, 720, 6000000, 448000) + HmsTranscodingMapParams(mpAudioStreamNo))) PascalScript Фильмы (основной)_1280x720 -1 14 43EFF1099D1A48C29F5C96A224494E4B HMSMPEG Нет скрипта Транскодирование с перекодированием видео 3 begin 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 := '' end. PascalScript 0 IfThen(mpInternetItem, HmsTranscodingProfileParams('Интернет-телевидение'), IfThen(mpSubItemsCount > 0, HmsTranscodingDvdParams(1920, 1080, 10000000, 448000), HmsTranscodingInputParams + HmsTranscodingVideoParams(1920, 1080, 10000000, 448000) + HmsTranscodingMapParams(mpAudioStreamNo))) PascalScript Фильмы (основной)_1920x1080 -1 15 541D7BF5531A4C189D5C47C60D85DD8B HMSMPEG Нет скрипта Транскодирование с перекодированием видео 3 begin 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 := '' end. PascalScript 0 IfThen(mpInternetItem, HmsTranscodingProfileParams('Интернет-телевидение'), IfThen(mpSubItemsCount > 0, HmsTranscodingDvdParams(480, 270, 2000000, 256000), HmsTranscodingInputParams + HmsTranscodingVideoParams(480, 270, 2000000, 256000) + HmsTranscodingMapParams(mpAudioStreamNo))) PascalScript Фильмы (основной)_480x270 -1 16 CDD7A1682368424CB7DBD60C8CFE7613 HMSMPEG Нет скрипта Транскодирование с перекодированием видео 3 begin 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 := '' end. PascalScript 0 IfThen(mpInternetItem, HmsTranscodingProfileParams('Интернет-телевидение'), IfThen(mpSubItemsCount > 0, HmsTranscodingDvdParams(640, 360, 3000000, 320000), HmsTranscodingInputParams + HmsTranscodingVideoParams(640, 360, 3000000, 320000) + HmsTranscodingMapParams(mpAudioStreamNo))) PascalScript Фильмы (основной)_640x360 -1 13 E16338F4E6714606B92A3FB61EF23C5F HMSMPEG Нет скрипта Транскодирование с перекодированием видео 3 begin 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 := '' end. PascalScript 0 IfThen(mpInternetItem, HmsTranscodingProfileParams('Интернет-телевидение'), IfThen(mpSubItemsCount > 0, HmsTranscodingDvdParams(720, 406, 3000000, 448000), HmsTranscodingInputParams + HmsTranscodingVideoParams(720, 406, 3000000, 448000) + HmsTranscodingMapParams(mpAudioStreamNo))) PascalScript Фильмы (основной)_720x406 -1 12 3CDFE1882F01435D86F2940B3F24BB1D HMSMPEG SameText(mpVideoCodec, 'H264') PascalScript Транскодирование с использованием фильтров DirectShow 3 begin 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 := '' end. PascalScript 1 const csInputParams = '-f rawvideo -vcodec rawvideo -pix_fmt yuv420p -s %dx%d -r %s -i "%s"%s -i "%s"'; clsidMpcAviSource = '{CEA8DEFF-0AF7-4DB9-9A38-FB3C3AEFC0DE}'; // MPC - Avi Source clsidMpcAviSplitter = '{9736D831-9D6C-4E72-B6E7-560EF9181001}'; // MPC - Avi Splitter clsidMpcFlvSource = '{C9ECE7B3-1D8E-41F5-9F24-B255DF16C087}'; // MPC - FLV Source (Gabest) clsidMpcFlvSplitter = '{47E792CF-0BBE-4F7A-859C-194B0768650A}'; // MPC - FLV Splitter (Gabest) clsidMpcMkvSource = '{0A68C3B5-9164-4A54-AFAF-995B2FF0E0D4}'; // MPC - Matroska Source clsidMpcMkvSplitter = '{149D2E01-C32E-4939-80F6-C07B81015A7A}'; // MPC - Matroska Splitter clsidMpcMp4Source = '{3CCC052E-BDEE-408A-BEA7-90914EF2964B}'; // MPC - MP4 Source clsidMpcMp4Splitter = '{61F47056-E400-43D3-AF1E-AB7DFFD4C4AD}'; // MPC - MP4 Splitter clsidMpcMpgSource = '{1365BE7A-C86A-473C-9A41-C0A6E82C9FA3}'; // MPC - Mpeg Source (Gabest) clsidMpcMpgSplitter = '{DC257063-045F-4BE2-BD5B-E12279C464F0}'; // MPC - Mpeg Splitter (Gabest) MEDIASUBTYPE_DOLBY_AC3 = '{E06D802C-DB46-11CF-B4D1-00805F6CBBEA}'; function GetFilterParams(const aFileFormat: string; const aFilterParams: Variant; aSplitter: Boolean; var aFilterFileName, aFilterCLSID: string): Boolean; var FilterParams: Variant; i: Integer; begin Result := True; for i := 0 to Length(aFilterParams) - 1 do begin FilterParams := aFilterParams[i]; if Pos(FilterParams[0], aFileFormat) > 0 then begin aFilterFileName := FilterParams[1]; if aSplitter then aFilterCLSID := FilterParams[2] else aFilterCLSID := FilterParams[3]; Exit end end; Result := False end; function CheckResult(aResult: Integer; aRaiseException: Boolean = True): Boolean; begin Result := aResult = S_OK; if not Result and aRaiseException then RaiseException(Format('Error (code: %x) - %s', [aResult, SysErrorMessage(aResult)])) end; var bCreateAudioPipe, bHaali, bSplitter, bSuccess: Boolean; sAudioFormat, sCodecTag, sInputParams, sAudioMediaMajorType, sAudioMediaSubType, sFilterFileName, sFilterCLSID: string; sVideoMediaMajorType, sVideoMediaSubType, sReadVideoPipeName, sWriteVideoPipeName, sReadAudioPipeName, sWriteAudioPipeName, sTranscodingParams, sAudioPinName, sVideoPinName: string; iAudioStreamNo, iAudioChannels1, iAudioChannels2, iAudioSampleRate, iAudioFormatTag, iVideoWidth, iVideoHeight, iVideoCompression: Integer; vCurrentPosition: Variant; begin TranscodingResult := False; bSplitter := mpIsoItem or mpDvdItem or mpBdItem; if bSplitter and not CheckResult(HmsDirectShowAddResourceSource('ResourceSource')) then Exit; if GetFilterParams(mpFileType, [['avi', 'AviSplitter.ax', clsidMpcAviSplitter, clsidMpcAviSource], ['flv', 'FlvSplitter.ax', clsidMpcFlvSplitter, clsidMpcFlvSource], ['matroska', 'MatroskaSplitter.ax', clsidMpcMkvSplitter, clsidMpcMkvSource], ['mp4', 'MP4Splitter.ax', clsidMpcMp4Splitter, clsidMpcMp4Source], ['mpeg', 'MpegSplitter.ax', clsidMpcMpgSplitter, clsidMpcMpgSource]], bSplitter, sFilterFileName, sFilterCLSID) then begin bSuccess := CheckResult(HmsDirectShowLoadFilter('Filters\' + sFilterFileName, sFilterCLSID, 'Source')); if bSuccess then begin if bSplitter then bSuccess := CheckResult(HmsDirectShowConnectPin('ResourceSource', 'Source', 'Output', 'Input'), False) else bSuccess := CheckResult(HmsDirectShowSetFileName('Source', InputFileName), False); if not bSuccess then HmsDirectShowRemoveFilter('Source') end end else bSuccess := False; bHaali := False; if not bSuccess then begin if bSplitter then bSuccess := CheckResult(HmsDirectShowAddFilter('Haali Media Splitter (AR)', 'Source')) and CheckResult(HmsDirectShowConnectPin('ResourceSource', 'Source', 'Output', 'Input')) else bSuccess := CheckResult(HmsDirectShowAddFilter('Haali Media Splitter', 'Source')) and CheckResult(HmsDirectShowSetFileName('Source', InputFileName)); if bSuccess then bHaali := True end; iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo = -1 then iAudioStreamNo := 0; if bHaali or SameText(mpFileType, 'flv') then begin sVideoPinName := 'Video'; sAudioPinName := 'Audio'; HmsDirectShowSelectStream('Source', iAudioStreamNo, MEDIATYPE_Audio, HmsGetStreamID(stAudio, iAudioStreamNo)); end else begin HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sVideoPinName, MEDIATYPE_Video, 0); if not CheckResult(HmsDirectShowSelectStream('Source', iAudioStreamNo, MEDIATYPE_Audio, HmsGetStreamID(stAudio, iAudioStreamNo)), False) then HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sAudioPinName, MEDIATYPE_Audio, 0) else HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sAudioPinName, MEDIATYPE_Audio, iAudioStreamNo); end; if not CheckResult(HmsDirectShowGetMediaType('Source', PINDIR_OUTPUT, sAudioPinName, sAudioMediaMajorType, sAudioMediaSubType, iAudioChannels1, iAudioSampleRate, iAudioFormatTag)) then Exit; if sAudioMediaSubType = MEDIASUBTYPE_WAVE_DTS then sAudioFormat := 'dts' else if sAudioMediaSubType = MEDIASUBTYPE_WAVE_DOLBY_AC3 then sAudioFormat := 'ac3' else if sAudioMediaSubType = MEDIASUBTYPE_DOLBY_AC3 then sAudioFormat := 'truehd' else if sAudioMediaSubType = MEDIASUBTYPE_AAC then sAudioFormat := 'aac' else if sAudioMediaSubType = MEDIASUBTYPE_MP3 then sAudioFormat := 'mp3' else sAudioFormat := ''; if mpTimeStart <> '' then begin vCurrentPosition := HmsTimeConvert(mpTimeStart) * 10000000; if not CheckResult(HmsDirectShowSetPosition('Source', TIME_FORMAT_MEDIA_TIME, vCurrentPosition)) then Exit; end; // if not CheckResult(HmsDirectShowAddFilter('CyberLink H.264/AVC Decoder (TechnoTrend)', 'Video Decoder')) then if not CheckResult(HmsDirectShowAddFilter('CoreAVC Video Decoder', 'Video Decoder'), False) and not CheckResult(HmsDirectShowAddFilter('Microsoft DTV-DVD Video Decoder', 'Video Decoder')) then Exit; if not CheckResult(HmsDirectShowConnectPin('Source', 'Video Decoder', sVideoPinName, '')) then Exit; // HmsDirectShowProperties('Video Decoder'); bCreateAudioPipe := True; if MatchText(sAudioFormat, ['aac', 'truehd']) then begin bCreateAudioPipe := False; if CheckResult(HmsDirectShowAddFilter('ffdshow Audio Decoder', 'Audio Decoder'), False) then begin if CheckResult(HmsDirectShowConnectPin('Source', 'Audio Decoder', sAudioPinName, ''), False) then bCreateAudioPipe := True else HmsDirectShowRemoveFilter('Audio Decoder') end // HmsDirectShowProperties('Audio Decoder'); end; if HmsCreateDualPipe(sReadVideoPipeName, sWriteVideoPipeName, 10000000) and (not bCreateAudioPipe or HmsCreateDualPipe(sReadAudioPipeName, sWriteAudioPipeName, 10000000)) then begin if not CheckResult(HmsDirectShowAddDump(sWriteVideoPipeName, 'DumpVideo')) then Exit; if not CheckResult(HmsDirectShowConnectPin('Video Decoder', 'DumpVideo', '', '', MEDIATYPE_Video, MEDIASUBTYPE_I420)) then Exit; if bCreateAudioPipe then begin if not CheckResult(HmsDirectShowAddDump(sWriteAudioPipeName, 'DumpAudio')) then Exit; if MatchText(sAudioFormat, ['aac', 'truehd']) then begin if not CheckResult(HmsDirectShowConnectPin('Audio Decoder', 'DumpAudio', 'Out', '', MEDIATYPE_Audio, KSDATAFORMAT_SUBTYPE_PCM)) then Exit; if not CheckResult(HmsDirectShowGetMediaType('Audio Decoder', PINDIR_OUTPUT, 'Out', sAudioMediaMajorType, sAudioMediaSubType, iAudioChannels2, iAudioSampleRate, iAudioFormatTag)) then Exit; sAudioFormat := Format(' -f s16le -ar %d -ac %d', [iAudioSampleRate, iAudioChannels2]) end else begin if not CheckResult(HmsDirectShowConnectPin('Source', 'DumpAudio', sAudioPinName, '')) then Exit; if sAudioFormat <> '' then sAudioFormat := ' -f ' + sAudioFormat; end end else begin sReadAudioPipeName := InputFileName; sAudioFormat := '' end; if not CheckResult(HmsDirectShowGetMediaType('DumpVideo', PINDIR_INPUT, '', sVideoMediaMajorType, sVideoMediaSubType, iVideoWidth, iVideoHeight, iVideoCompression)) then Exit; HmsDirectShowGetFrameRate('DumpVideo', PINDIR_INPUT, '', mpFrameRate); if CheckResult(HmsDirectShowPlay) then begin sInputParams := Format(csInputParams, [iVideoWidth, iVideoHeight, ReplaceStr(FormatFloat('0.###', mpFrameRate), ',', '.'), sReadVideoPipeName, sAudioFormat, sReadAudioPipeName]); if mpTimeStart <> '' then sInputParams := '-ts ' + mpTimeStart + ' -muxpreload ' + IntToStr(HmsTimeConvert(mpTimeStart)) + ' ' + sInputParams; sTranscodingParams := sInputParams + HmsTranscodingVideoParams(0, 0, 0, 0, True, False) + ' "' + OutputFileName + '"'; // ShowMessage(sTranscodingParams); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams) end end end. PascalScript Фильмы - CoreAVC -1 9 D8873B8516ED4EC5BF4EF8775837699D HMSMPEG PascalScript Транскодирование с перекодированием видео 3 0 const csTranscodingInputFile = '-i "<INPUT FILE>"'; csFFMpegVideoParams = ' -f mpeg -vcodec mpeg1video %s -aspect %s -pix_fmt yuv420p'; csFFMpegAudioParams = ' -acodec mp2 -ab %d -ar 48000 -ac 2'; procedure AddFilterParams(var aFilterParams: string; const aAddParams: string); begin if aFilterParams <> '' then aFilterParams := aFilterParams + ','; aFilterParams := aFilterParams + aAddParams end; var iAudioStreamNo, iChannels, iCodecID, iFrameWidth, iFrameHeight, iWidth, iHeight,iPadLeft, iPadTop, iPadRight, iPadBottom: Integer; sParams, sVideoBitrate, sFilterParams, sPadParams: string; begin sParams := csTranscodingInputFile; if Pos('://', mpFilePath) = 0 then begin if mpTimeStart <> '' then sParams := '-ss ' + mpTimeStart + ' -muxpreload ' + IntToStr(HmsTimeConvert(mpTimeStart)) + ' -async 1 ' + sParams end; if cfgTranscodingVideoBitrate > 0 then sVideoBitrate := '-b:v ' + IntToStr(cfgTranscodingVideoBitrate) else sVideoBitrate := '-q:v 0'; sParams := sParams + Format(csFFMPegVideoParams, [sVideoBitrate, cfgTranscodingScreenFormat]); iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo <> -1 then begin iCodecID := HmsGetStreamCodecID('A', iAudioStreamNo); iChannels := HmsGetStreamChannels(iAudioStreamNo); end else begin iCodecID := CODEC_ID_NONE; iChannels := 0; end; if (iCodecID = CODEC_ID_NONE) and SameText(mpAudioCodec, 'AC3') then iCodecID := CODEC_ID_AC3; if (iCodecID = CODEC_ID_AC3) and cfgTranscodingAudioCopyAC3 then sParams := sParams + ' -acodec copy' else sParams := sParams + Format(csFFMpegAudioParams, [Min(cfgTranscodingAudioBitrate, 320000)]); if cfgTranscodingFrameRate <> '' then sParams := sParams + ' -r ' + cfgTranscodingFrameRate else if (mpFrameRate > 0) and (mpFrameRate < 20) then sParams := sParams + ' -r 23.976'; iWidth := mpWidth; iHeight := mpHeight; if (iWidth > 0) and (iHeight > 0) then begin sFilterParams := ''; sPadParams := ''; if HmsTranscodingFrameParams(iWidth, iHeight, cfgTranscodingScreenFormat, iPadLeft, iPadTop, iPadRight, iPadBottom) then begin if mp3DVideoType in [1, 2] then begin iWidth := iWidth + iPadLeft + iPadRight; iHeight := iHeight + iPadTop + iPadBottom; if mp3DVideoType = 1 then iWidth := (iWidth div 4) * 4 else iHeight := (iHeight div 4) * 4 end; iFrameWidth := iWidth; iFrameHeight := iHeight; if (mp3DVideoType = 0) and ((iPadLeft > 0) or (iPadRight > 0) or (iPadTop > 0) or (iPadBottom > 0)) then begin Inc(iFrameWidth, iPadLeft + iPadRight); Inc(iFrameHeight, iPadTop + iPadBottom); sPadParams := Format('pad=%d:%d:%d:%d:0x%s', [iFrameWidth, iFrameHeight, iPadLeft, iPadTop, HmsConvertColor(cfgTranscodingPadColor)]); if cfgTranscodingFrameExists then sParams := sParams + cfgTranscodingFrameParams; end end else begin iFrameWidth := iWidth; iFrameHeight := iHeight; end; AddFilterParams(sFilterParams, Format('scale=%d:%d', [iWidth, iHeight])); if sPadParams <> '' then AddFilterParams(sFilterParams, sPadParams); AddFilterParams(sFilterParams, 'setdar=' + cfgTranscodingAspectRatio); sParams := sParams + Format(' -vf "%s"', [sFilterParams]); sParams := sParams + HmsTranscodingSubTitleParams( iFrameWidth, iFrameHeight, iWidth, iHeight, iPadLeft, iPadTop); sParams := sParams + HmsTranscodingMapParams(iAudioStreamNo); end; TranscodingParams := sParams end. PascalScript Фильмы - CorePlayer -1 30 9E7CE3E6361540428F3836F3621684F6 TSMUXER begin if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then OutputFileName := ChangeFileExt(OutputFileName, '.ts') else OutputFileName := ChangeFileExt(OutputFileName, '.m2ts'); TranscodingCondition := True end. PascalScript Транскодирование с использованием фильтров DirectShow 3 MimeType := HmsGetMimeType('m2ts') PascalScript 1 function CheckResult(aResult: Integer; aRaiseException: Boolean = True): Boolean; begin Result := aResult = S_OK; if not Result and aRaiseException then RaiseException(Format('Error (code: %x) - %s', [aResult, SysErrorMessage(aResult)])) end; function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer; begin if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then Result := 320000 else Result := aAudioBitrate end; function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else if SameText(aAudioCodec, 'LPCM') then Result := 'pcm_s16be' else Result := aAudioCodec end; function GetTsMuxerAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'A_AC3' else if SameText(aAudioCodec, 'AAC') then Result := 'A_AAC' else if SameText(aAudioCodec, 'MP3') then Result := 'A_MP3' else if SameText(aAudioCodec, 'MP2') then Result := 'A_MP3' else if SameText(aAudioCodec, 'LPCM') then Result := 'A_LPCM' else Result := '' end; function GetAudioFormat(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'adts' else if SameText(aAudioCodec, 'MP3') then Result := 'mp3' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'LPCM') then Result := 's16be' else Result := aAudioCodec end; function SameAudioCodec(const aAudioCodec, aAudioTrack: string): Boolean; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := aAudioTrack = 'A_AC3' else if SameText(aAudioCodec, 'AAC') then Result := aAudioTrack = 'A_AAC' else if SameText(aAudioCodec, 'MP3') then Result := aAudioTrack = 'A_MP3' else if SameText(aAudioCodec, 'MP2') then Result := aAudioTrack = 'A_MP3' else if SameText(aAudioCodec, 'LPCM') then Result := aAudioTrack = 'A_LPCM' else Result := False end; var bLPCM, bMpegTS, bMatroskaSource: Boolean; iAudioChannels, iAudioFormatTag, iAudioSampleRate, iAudioStreamNo, iEventCode, iVideoCompression, iVideoWidth, iVideoHeight: Integer; MetaFileLines: TStringList; vCurrentPosition: Variant; sAudioMediaMajorType, sAudioMediaSubType, sAudioTrack, sAudioPinName, sAudioSource, sVideoMediaMajorType, sVideoMediaSubType, sVideoTrack, sVideoPinName, sReadAudioTranscodedPipeName, sWriteAudioTranscodedPipeName, sReadAudioPipeName, sWriteAudioPipeName, sReadVideoPipeName, sWriteVideoPipeName, sChannelOrder, sFFMpegParams, sFrameRate, sInputVideoStreamName, sInputAudioStreamName, sMetaFileName, sSoxTranscodingParams, sSoxReadPipeName, sSoxWritePipeName, sTimeShift: string; begin TranscodingResult := False; bMatroskaSource := SameText(ExtractFileExt(mpFilePath), '.mkv'); bMpegTS := SameText(mpFileType, 'mpegts'); sTimeShift := HmsGetVideoSettings(vstAudioDelay); if sTimeShift <> '' then sTimeShift := Format(', timeshift=%ss', [sTimeShift]); if mpIsoItem or mpDvdItem or mpBdItem then begin if not CheckResult(HmsDirectShowAddResourceSource('ResourceSource')) then Exit; if bMatroskaSource then begin if not CheckResult(HmsDirectShowLoadFilter('Filters\MatroskaSplitter.ax', // MPC - Matroska Splitter '{149D2E01-C32E-4939-80F6-C07B81015A7A}', 'Source')) then Exit end else if not bMpegTS or not CheckResult(HmsDirectShowAddFilter('Haali Media Splitter (AR)', 'Source'), False) then begin if not CheckResult(HmsDirectShowLoadFilter('Filters\MpegSplitter.ax', // MPC - Mpeg Splitter (Gabest) '{DC257063-045F-4BE2-BD5B-E12279C464F0}', 'Source')) then Exit; end; if not CheckResult(HmsDirectShowConnectPin('ResourceSource', 'Source', 'Output', 'Input')) then Exit; end else begin if bMatroskaSource then begin if not CheckResult(HmsDirectShowLoadFilter('Filters\MatroskaSplitter.ax', // MPC - Matroska Source '{0A68C3B5-9164-4A54-AFAF-995B2FF0E0D4}', 'Source')) then Exit end else if not bMpegTS or not CheckResult(HmsDirectShowAddFilter('Haali Media Splitter', 'Source'), False) then begin if not CheckResult(HmsDirectShowLoadFilter('Filters\MpegSplitter.ax', // MPC - Mpeg Source (Gabest) '{1365BE7A-C86A-473C-9A41-C0A6E82C9FA3}', 'Source')) then Exit; end; if not CheckResult(HmsDirectShowSetFileName('Source', InputFileName)) then Exit end; iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo = -1 then iAudioStreamNo := 0; if bMatroskaSource then begin HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sVideoPinName, MEDIATYPE_Video, 0); HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sAudioPinName, MEDIATYPE_Audio, iAudioStreamNo); end else begin sVideoPinName := 'Video'; sAudioPinName := 'Audio'; HmsDirectShowSelectStream('Source', iAudioStreamNo, MEDIATYPE_Audio, HmsGetStreamID(stAudio, iAudioStreamNo)); end; if mpTimeStart <> '' then begin vCurrentPosition := HmsTimeConvert(mpTimeStart) * 10000000; if not CheckResult(HmsDirectShowSetPosition('Source', TIME_FORMAT_MEDIA_TIME, vCurrentPosition)) then Exit; end; if not CheckResult(HmsDirectShowGetMediaType('Source', PINDIR_OUTPUT, sVideoPinName, sVideoMediaMajorType, sVideoMediaSubType, iVideoWidth, iVideoHeight, iVideoCompression)) then Exit; if not CheckResult(HmsDirectShowGetMediaType('Source', PINDIR_OUTPUT, sAudioPinName, sAudioMediaMajorType, sAudioMediaSubType, iAudioChannels, iAudioSampleRate, iAudioFormatTag)) then Exit; if SameText(sVideoMediaSubType, MEDIASUBTYPE_X264_) or SameText(sVideoMediaSubType, MEDIASUBTYPE_x264) or SameText(sVideoMediaSubType, MEDIASUBTYPE_AVC1_) or SameText(sVideoMediaSubType, MEDIASUBTYPE_avc1) or SameText(sVideoMediaSubType, MEDIASUBTYPE_H264_) or SameText(sVideoMediaSubType, MEDIASUBTYPE_h264) then sVideoTrack := 'V_MPEG4/ISO/AVC, "%s", level=4.1, insertSEI, contSPS' else if SameText(sVideoMediaSubType, MEDIASUBTYPE_WVC1_) or SameText(sVideoMediaSubType, MEDIASUBTYPE_wvc1) then sVideoTrack := 'V_MS/VFW/WVC1, "%s"' else if SameText(sVideoMediaSubType, MEDIASUBTYPE_MPEG2) then sVideoTrack := 'V_MPEG-2, "%s"' else sVideoTrack := ''; if SameText(sAudioMediaSubType, MEDIASUBTYPE_WAVE_DTS) then sAudioTrack := 'A_DTS' else if SameText(sAudioMediaSubType, MEDIASUBTYPE_WAVE_DOLBY_AC3) or SameText(sAudioMediaSubType, MEDIASUBTYPE_DOLBY_AC3) then sAudioTrack := 'A_AC3' else if SameText(sAudioMediaSubType, MEDIASUBTYPE_AAC) then sAudioTrack := 'A_AAC' else if SameText(sAudioMediaSubType, MEDIASUBTYPE_MP3) then sAudioTrack := 'A_MP3' else sAudioTrack := ''; if (sVideoTrack <> '') and (sAudioTrack <> '') then begin if HmsCreateDualPipe(sReadVideoPipeName, sWriteVideoPipeName) and HmsCreateDualPipe(sReadAudioPipeName, sWriteAudioPipeName) then begin sInputVideoStreamName := sReadVideoPipeName; sInputAudioStreamName := sReadAudioPipeName; if not CheckResult(HmsDirectShowAddDump(sWriteVideoPipeName, 'DumpVideo')) then Exit; if not CheckResult(HmsDirectShowAddDump(sWriteAudioPipeName, 'DumpAudio')) then Exit; if not CheckResult(HmsDirectShowConnectPin('Source', 'DumpVideo', sVideoPinName, '', MEDIATYPE_Video)) then Exit; if SameText(sAudioTrack, 'A_DTS') and cfgTranscodingHideDTSInLPCM then begin if CheckResult(HmsDirectShowConnectPin('Source', 'DumpAudio', sAudioPinName, '', MEDIATYPE_Audio)) and HmsCreateDualPipe(sReadAudioTranscodedPipeName, sWriteAudioTranscodedPipeName) then begin iAudioChannels := 2; HmsCreateLpcmFile(sReadAudioPipeName, sWriteAudioTranscodedPipeName, iAudioChannels, 48000, 16, False, True); sInputAudioStreamName := sReadAudioTranscodedPipeName; sAudioTrack := 'A_LPCM'; end else Exit end else if not SameAudioCodec(cfgTranscodingAudioCodec, sAudioTrack) then begin if not CheckResult(HmsDirectShowAddFilter('ffdshow Audio Decoder', 'Audio Decoder')) then Exit; if not CheckResult(HmsDirectShowConnectPin('Source', 'Audio Decoder', sAudioPinName, '', MEDIATYPE_Audio)) then Exit; if not CheckResult(HmsDirectShowConnectPin('Audio Decoder', 'DumpAudio', 'Out', '', MEDIATYPE_Audio, KSDATAFORMAT_SUBTYPE_PCM)) then Exit; if not CheckResult(HmsDirectShowGetMediaType('Audio Decoder', PINDIR_OUTPUT, 'Out', sAudioMediaMajorType, sAudioMediaSubType, iAudioChannels, iAudioSampleRate, iAudioFormatTag)) then Exit; if not HmsCreateDualPipe(sReadAudioTranscodedPipeName, sWriteAudioTranscodedPipeName) then Exit; if SameText(cfgTranscodingAudioCodec, 'LPCM') then begin sChannelOrder := ''; if iAudioChannels = 6 then sChannelOrder := ' remix 1 2 3 5 6 4'; if HmsCreateDualPipe(sSoxReadPipeName, sSoxWritePipeName) then begin sSoxTranscodingParams := Format('-t raw -L -c %d -r %d -e signed -b 16 "%s" -t raw -B -c %d -r 48000 "%s"%s', [iAudioChannels, iAudioSampleRate, sReadAudioPipeName, iAudioChannels, sSoxWritePipeName, sChannelOrder]); if HmsTranscodingExecute('SOX', sSoxTranscodingParams, False) then sReadAudioPipeName := sSoxReadPipeName end; HmsCreateLpcmFile(sReadAudioPipeName, sWriteAudioTranscodedPipeName, iAudioChannels, 48000, 16, False); sInputAudioStreamName := sReadAudioTranscodedPipeName; sAudioTrack := 'A_LPCM'; end else begin sFFMpegParams := Format(' -f s16le -ar %d -ac %d -i "%s" -acodec %s -ab %d -f %s -y "%s"', [iAudioSampleRate, iAudioChannels, sReadAudioPipeName, GetAudioCodec(cfgTranscodingAudioCodec), GetAudioBitrate(cfgTranscodingAudioCodec, cfgTranscodingAudioBitrate), GetAudioFormat(cfgTranscodingAudioCodec), sWriteAudioTranscodedPipeName]); if HmsTranscodingExecute('HMSMPEG', sFFMpegParams, False) then begin sInputAudioStreamName := sReadAudioTranscodedPipeName; sAudioTrack := GetTsMuxerAudioCodec(cfgTranscodingAudioCodec); end else Exit end end else if not CheckResult(HmsDirectShowConnectPin('Source', 'DumpAudio', sAudioPinName, '', MEDIATYPE_Audio)) then Exit; sFrameRate := HmsGetVideoSettings(vstFrameRate); if (sFrameRate = '') and (mpFrameRate > 0) then sFrameRate := ReplaceStr(FormatFloat('0.000', mpFrameRate), ',', '.') else sFrameRate := ''; if sFrameRate <> '' then sVideoTrack := sVideoTrack + ', fps=' + sFrameRate; sVideoTrack := sVideoTrack + ', track=1'; sAudioTrack := sAudioTrack + ', "%s", track=2' + sTimeShift; MetaFileLines := TStringList.Create; try MetaFileLines.Add('MUXOPT --no-pcr-on-video-pid --vbr --vbv-len=500'); MetaFileLines.Add(Format(sVideoTrack, [sInputVideoStreamName, sFrameRate])); MetaFileLines.Add(Format(sAudioTrack, [sInputAudioStreamName])); sMetaFileName := ChangeFileExt(OutputFileName, '.meta'); MetaFileLines.SaveToFile(sMetaFileName); if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then OutputFileName := ChangeFileExt(OutputFileName, '.ts') else OutputFileName := ChangeFileExt(OutputFileName, '.m2ts'); if CheckResult(HmsDirectShowPlay) then TranscodingResult := HmsTranscodingExecute('TSMUXER', '"' + sMetaFileName + '" "' + OutputFileName + '"', True); finally MetaFileLines.Free end end end end. PascalScript Фильмы - DirectShow - TsMuxer -1 22 HMSMPEG PascalScript Транскодирование с использованием фильтров DirectShow 3 MimeType := HmsGetMimeType('wmv') PascalScript 1 const clsidMpcAviSource = '{CEA8DEFF-0AF7-4DB9-9A38-FB3C3AEFC0DE}'; // MPC - Avi Source clsidMpcAviSplitter = '{9736D831-9D6C-4E72-B6E7-560EF9181001}'; // MPC - Avi Splitter clsidMpcFlvSource = '{C9ECE7B3-1D8E-41F5-9F24-B255DF16C087}'; // MPC - FLV Source (Gabest) clsidMpcFlvSplitter = '{47E792CF-0BBE-4F7A-859C-194B0768650A}'; // MPC - FLV Splitter (Gabest) clsidMpcMkvSource = '{0A68C3B5-9164-4A54-AFAF-995B2FF0E0D4}'; // MPC - Matroska Source clsidMpcMkvSplitter = '{149D2E01-C32E-4939-80F6-C07B81015A7A}'; // MPC - Matroska Splitter clsidMpcMp4Source = '{3CCC052E-BDEE-408A-BEA7-90914EF2964B}'; // MPC - MP4 Source clsidMpcMp4Splitter = '{61F47056-E400-43D3-AF1E-AB7DFFD4C4AD}'; // MPC - MP4 Splitter clsidMpcMpgSource = '{1365BE7A-C86A-473C-9A41-C0A6E82C9FA3}'; // MPC - Mpeg Source (Gabest) clsidMpcMpgSplitter = '{DC257063-045F-4BE2-BD5B-E12279C464F0}'; // MPC - Mpeg Splitter (Gabest) clsidMpcRmvbSource = '{765035B3-5944-4A94-806B-20EE3415F26F}'; // MPC - Real Media Source clsidMpcRmvbSplitter = '{E21BE468-5C18-43EB-B0CC-DB93A847D769}'; // MPC - Real Media Splitter MEDIATYPE_Subtitle = '{E487EB08-6B26-4be9-9DD3-993434D313FD}'; KSDATAFORMAT_TYPE_MPEG2_SECTIONS = '{455F176C-4B06-47CE-9AEF-8CAEF73DF7B5}'; MEDIASUBTYPE_MPEG2DATA = '{C892E55B-252D-42B5-A316-D997E7A5D995}'; MEDIASUBTYPE_CPFilters_Processed = '{46ADBD28-6FD0-4796-93B2-155C51DC048D}'; FORMATTYPE_CPFilters_Processed = '{6739B36F-1D5F-4AC2-8192-28BB0E73D16A}'; MEDIASUBTYPE_iTV = '{4A9F8579-6BF8-4392-8A6D-D2DD09FA7861}'; MEDIASUBTYPE_RGB555 = '{e436eb7c-524f-11ce-9f53-0020af0ba770}'; MEDIASUBTYPE_RGB565 = '{e436eb7b-524f-11ce-9f53-0020af0ba770}'; MEDIASUBTYPE_RAWAudio = '{20776172-0000-0010-8000-00AA00389B71}'; IDFF_isSubtitles = 801; IDFF_subFilename = 821; IDFF_rawv = 1009; IDFF_cvid = 1035; IDFF_rv10 = 1037; IDFF_rv40 = 1332; IDFF_rv30 = 1333; IDFF_vp8 = 1335; IDFF_ra = 1079; IDFF_cook = 1334; IDFF_rawa = 1036; function GetFilterParams(const aFileFormat: string; const aFilterParams: Variant; aSplitter: Boolean; var aFilterFileName, aFilterCLSID: string): Boolean; var FilterParams: Variant; i: Integer; begin Result := True; for i := 0 to Length(aFilterParams) - 1 do begin FilterParams := aFilterParams[i]; if Pos(FilterParams[0], aFileFormat) > 0 then begin aFilterFileName := FilterParams[1]; if aSplitter then aFilterCLSID := FilterParams[2] else aFilterCLSID := FilterParams[3]; Exit end end; Result := False end; function CheckResult(aResult: Integer; aRaiseException: Boolean = True): Boolean; begin Result := aResult = S_OK; if not Result and aRaiseException then RaiseException(Format('Error (code: %x) - %s', [aResult, SysErrorMessage(aResult)])) end; function GetStreamNo(const aStreamType: Char; const aStreamID: Integer): Integer; var i, iStreamID: Integer; begin Result := 0; for i := 0 to HmsGetStreamCount - 1 do begin iStreamID := HmsGetStreamID(aStreamType, i); if iStreamID = aStreamID then begin Result := i; Break end else if iStreamID = 0 then Break end end; var bHaali, bFFDShow, bSuccess, bSplitter, bSubtitles: Boolean; iAudioChannels, iAudioSampleRate, iAudioFormatTag, iAudioStreamNo, iCompression, iPadLeft, iPadTop, iPadRight, iPadBottom, iWidth, iHeight: Integer; iEventCode, iSubtitleStreamID, iSubtitleStreamNo, iTimeLength: Integer; sAudioMediaMajorType, sAudioMediaSubType, sAudioDecoder, sAudioPinName, sAudioSource, sFilterFileName, sFilterCLSID, sMediaMajorType, sMediaSubType, sResizerMediaSubType, sVideoSource, sVideoPinName, sSubtitleFileName, sSubtitlePinName: string; vCurrentPosition, vPropertyValue: Variant; begin sResizerMediaSubType := ''; if HmsGetStreamCount = 0 then HmsRetrieveProperties; bSplitter := mpIsoItem or mpDvdItem or mpBdItem or mpPodcastItem or mpInternetItem; if bSplitter and not CheckResult(HmsDirectShowAddResourceSource('ResourceSource')) then Exit; bSuccess := True; if GetFilterParams(mpFileType, [['avi', 'AviSplitter.ax', clsidMpcAviSplitter, clsidMpcAviSource], ['flv', 'FlvSplitter.ax', clsidMpcFlvSplitter, clsidMpcFlvSource], ['matroska', 'MatroskaSplitter.ax', clsidMpcMkvSplitter, clsidMpcMkvSource], ['mp4', 'MP4Splitter.ax', clsidMpcMp4Splitter, clsidMpcMp4Source], ['mpeg', 'MpegSplitter.ax', clsidMpcMpgSplitter, clsidMpcMpgSource], ['rm', 'RealMediaSplitter.ax', clsidMpcRmvbSplitter, clsidMpcRmvbSource]], bSplitter, sFilterFileName, sFilterCLSID) then begin bSuccess := CheckResult(HmsDirectShowLoadFilter('Filters\' + sFilterFileName, sFilterCLSID, 'Source')); if bSuccess then begin if bSplitter then bSuccess := CheckResult(HmsDirectShowConnectPin('ResourceSource', 'Source', 'Output', 'Input'), False) else bSuccess := CheckResult(HmsDirectShowSetFileName('Source', InputFileName), False); if not bSuccess then HmsDirectShowRemoveFilter('Source') end end else bSuccess := False; bHaali := False; bSubtitles := False; bFFDShow := False; iSubtitleStreamID := -1; iSubtitleStreamNo := 0; sSubtitleFileName := ''; if mpSubtitleLanguage <> '' then begin bSubtitles := HmsRegExMatch('\[(.*?)\]', mpSubtitleLanguage, sSubtitleFileName); if bSubtitles and (Copy(sSubtitleFileName, 1, 2) = '0x') then begin iSubtitleStreamID := StrToIntDef('$' + Copy(sSubtitleFileName, 3, Length(sSubtitleFileName)), 0); if iSubtitleStreamID > 0 then iSubtitleStreamNo := GetStreamNo(stSubtitle, iSubtitleStreamID) else bSubtitles := False; sSubtitleFileName := ''; end end; if not bSuccess then begin if bSplitter then bSuccess := CheckResult(HmsDirectShowAddFilter('Haali Media Splitter (AR)', 'Source')) and CheckResult(HmsDirectShowConnectPin('ResourceSource', 'Source', 'Output', 'Input')) else if CheckResult(HmsDirectShowAddFilter('Haali Media Splitter', 'Source'), False) then begin if CheckResult(HmsDirectShowSetFileName('Source', InputFileName), False) then bSuccess := True else HmsDirectShowRemoveFilter('Source') end; if bSuccess then bHaali := True else bSuccess := CheckResult(HmsDirectShowAddSource(InputFileName, 'Source')); end; iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo = -1 then iAudioStreamNo := 0; sVideoSource := 'Source'; sAudioSource := 'Source'; if SameText(ExtractFileExt(InputFileName), '.wtv') then begin CheckResult(HmsDirectShowAddFilter('PBDA DTFilter', 'VideoDTFilter', '{4A56AF32-C21F-11DB-96FA-005056C00008}')); CheckResult(HmsDirectShowAddFilter('PBDA DTFilter', 'AudioDTFilter', '{4A56AF32-C21F-11DB-96FA-005056C00008}')); if (HmsDirectShowConnectPin('Source', 'VideoDTFilter', '', '', MEDIATYPE_Video) = S_OK) and (HmsDirectShowConnectPin('Source', 'AudioDTFilter', '', '', MEDIATYPE_Audio) = S_OK) then begin sVideoSource := 'VideoDTFilter'; sAudioSource := 'AudioDTFilter'; sVideoPinName := 'Out'; sAudioPinName := 'Out'; end else begin HmsDirectShowRemoveFilter('VideoDTFilter'); HmsDirectShowRemoveFilter('AudioDTFilter'); end end else if SameText(ExtractFileExt(InputFileName), '.dvr-ms') then begin CheckResult(HmsDirectShowAddFilter('Decrypt/Tag', 'VideoDecryptTag', '{C4C4C4FC-0049-4E2B-98FB-9537F6CE516D}')); CheckResult(HmsDirectShowAddFilter('Decrypt/Tag', 'AudioDecryptTag', '{C4C4C4FC-0049-4E2B-98FB-9537F6CE516D}')); if (HmsDirectShowConnectPin('Source', 'VideoDecryptTag', '', '', MEDIATYPE_Video) = S_OK) and (HmsDirectShowConnectPin('Source', 'AudioDecryptTag', '', '', MEDIATYPE_Audio) = S_OK) then begin sVideoSource := 'VideoDecryptTag'; sAudioSource := 'AudioDecryptTag'; sVideoPinName := 'Out'; sAudioPinName := 'Out'; end else begin HmsDirectShowRemoveFilter('VideoDecryptTag'); HmsDirectShowRemoveFilter('AudioDecryptTag'); end end else begin if bHaali or SameText(mpFileType, 'flv') then begin sVideoPinName := 'Video'; sAudioPinName := 'Audio'; sSubtitlePinName := 'Subtitle'; HmsDirectShowSelectStream('Source', iAudioStreamNo, MEDIATYPE_Audio, HmsGetStreamID(stAudio, iAudioStreamNo)); if bSubtitles and (sSubtitleFileName = '') then HmsDirectShowSelectStream('Source', iSubtitleStreamNo, MEDIATYPE_Subtitle, iSubtitleStreamID) end else begin HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sVideoPinName, MEDIATYPE_Video, 0); if CheckResult(HmsDirectShowSelectStream('Source', iAudioStreamNo, MEDIATYPE_Audio, HmsGetStreamID(stAudio, iAudioStreamNo)), False) then HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sAudioPinName, MEDIATYPE_Audio, 0) else HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sAudioPinName, MEDIATYPE_Audio, iAudioStreamNo); if bSubtitles and (sSubtitleFileName = '') then begin if CheckResult(HmsDirectShowSelectStream('Source', iSubtitleStreamNo, MEDIATYPE_Subtitle, iSubtitleStreamID), False) then HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sSubtitlePinName, MEDIATYPE_Subtitle, 0) else HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sSubtitlePinName, MEDIATYPE_Subtitle, iSubtitleStreamID); end end end; if mpTimeStart <> '' then begin vCurrentPosition := HmsTimeConvert(mpTimeStart) * 10000000; if not CheckResult(HmsDirectShowSetPosition('Source', TIME_FORMAT_MEDIA_TIME, vCurrentPosition)) then Exit; end; if SameText(ExtractFileExt(InputFileName), '.wmv') then begin if not CheckResult(HmsDirectShowAddFilter('WMVideo Decoder DMO', 'Video Decoder')) then Exit; if not CheckResult(HmsDirectShowAddFilter('WMAudio Decoder DMO', 'Audio Decoder')) then Exit; end else if MatchText(ExtractFileExt(InputFileName), ['.wtv', '.dvr-ms']) then begin if not CheckResult(HmsDirectShowAddFilter('Microsoft DTV-DVD Video Decoder', 'Video Decoder')) then Exit; if not CheckResult(HmsDirectShowAddFilter('Microsoft DTV-DVD Audio Decoder', 'Audio Decoder')) then Exit; end else begin if not CheckResult(HmsDirectShowAddFilter('ffdshow Video Decoder', 'Video Decoder')) then Exit; HmsDirectShowSetProperty('Video Decoder', IFFDShowBaseT, IDFF_cvid, 1); HmsDirectShowSetProperty('Video Decoder', IFFDShowBaseT, IDFF_rv10, 1); HmsDirectShowSetProperty('Video Decoder', IFFDShowBaseT, IDFF_rv40, 1); HmsDirectShowSetProperty('Video Decoder', IFFDShowBaseT, IDFF_rv30, 1); HmsDirectShowSetProperty('Video Decoder', IFFDShowBaseT, IDFF_vp8, 1); HmsDirectShowSetProperty('Video Decoder', IFFDShowBaseT, IDFF_rawv, 1); if bSubtitles then begin HmsDirectShowSetProperty('Video Decoder', IFFDShowBaseT, IDFF_isSubtitles, 1); if sSubtitleFileName <> '' then HmsDirectShowSetProperty('Video Decoder', IFFDShowBaseT, IDFF_subFilename, sSubtitleFileName); end; if not CheckResult(HmsDirectShowAddFilter('ffdshow Audio Decoder', 'Audio Decoder')) then Exit; HmsDirectShowSetProperty('Audio Decoder', IFFDShowBaseT, IDFF_ra, 1); HmsDirectShowSetProperty('Audio Decoder', IFFDShowBaseT, IDFF_cook, 1); HmsDirectShowSetProperty('Audio Decoder', IFFDShowBaseT, IDFF_rawa, 4); bFFDShow := True end; if not CheckResult(HmsDirectShowConnectPin(sVideoSource, 'Video Decoder', sVideoPinName, '', MEDIATYPE_Video), False) and bFFDShow then begin HmsDirectShowRemoveFilter('Video Decoder'); bFFDShow := False; if CheckResult(HmsDirectShowAddFilter('Microsoft DTV-DVD Video Decoder', 'Video Decoder')) then CheckResult(HmsDirectShowConnectPin(sVideoSource, 'Video Decoder', sVideoPinName, '', MEDIATYPE_Video)) end; if bFFDShow and bSubtitles then HmsDirectShowConnectPin(sVideoSource, 'Video Decoder', sSubtitlePinName, '', MEDIATYPE_Subtitle); sVideoSource := 'Video Decoder'; if (mpOriginalWidth = 0) or (mpOriginalHeight = 0) then HmsDirectShowGetMediaType('Video Decoder', PINDIR_INPUT, sVideoPinName, sMediaMajorType, sMediaSubType, mpOriginalWidth, mpOriginalHeight, iCompression); if (mpOriginalWidth = 0) or (mpOriginalHeight = 0) then begin mpOriginalWidth := mpWidth; mpOriginalHeight := mpHeight; end; iWidth := mpWidth; iHeight := mpHeight; if (iWidth = 0) or (iHeight = 0) then begin iWidth := mpOriginalWidth; iHeight := mpOriginalHeight; end; if (iWidth > 0) and (iHeight > 0) then begin if HmsTranscodingFrameParams(iWidth, iHeight, cfgTranscodingScreenFormat, iPadLeft, iPadTop, iPadRight, iPadBottom) then begin if (iPadLeft > 50) or (iPadTop > 50) then sResizerMediaSubType := MEDIASUBTYPE_RGB24 else begin iPadLeft := 0; iPadTop := 0; end end else begin iPadLeft := 0; iPadTop := 0; end; if (HmsDirectShowAddFilter('Resizer DMO', 'Resizer', '{D990EE14-776C-4723-BE46-3DA2F56F10B9}') = S_OK) then begin if (HmsDirectShowConnectPin(sVideoSource, 'Resizer', '', '', MEDIATYPE_VIDEO, sResizerMediaSubType, '', mpOriginalWidth, mpOriginalHeight) = S_OK) then bSuccess := True else begin if (HmsDirectShowAddFilter('Color Converter DMO', 'Color Converter 1', '{D990EE14-776C-4723-BE46-3DA2F56F10B9}') = S_OK) and (HmsDirectShowConnectPin(sVideoSource, 'Color Converter 1', '', '', MEDIATYPE_VIDEO, '', '', mpOriginalWidth, mpOriginalHeight) = S_OK) then sVideoSource := 'Color Converter 1'; bSuccess := HmsDirectShowConnectPin(sVideoSource, 'Resizer', '', '', MEDIATYPE_VIDEO, sResizerMediaSubType) = S_OK end; if bSuccess and (HmsDirectShowSetResizerProperties('Resizer', cfgTranscodingScreenWidth, cfgTranscodingScreenHeight, False, iPadLeft, iPadTop, iWidth, iHeight) = S_OK) then sVideoSource := 'Resizer' else HmsDirectShowRemoveFilter('Resizer') end end; if not CheckResult(HmsDirectShowAddFilter('WMVideo9 Encoder DMO', 'Video Encoder', '{33D9A760-90C8-11d0-BD43-00A0C911CE86}')) then Exit; if HmsDirectShowConnectPin(sVideoSource, 'Video Encoder', '', '', MEDIATYPE_Video, MEDIASUBTYPE_I420, FORMAT_VideoInfo) <> S_OK then begin if (HmsDirectShowAddFilter('Color Converter DMO', 'Color Converter 2', '{D990EE14-776C-4723-BE46-3DA2F56F10B9}') = S_OK) and (HmsDirectShowConnectPin(sVideoSource, 'Color Converter 2', '', '', MEDIATYPE_VIDEO) = S_OK) then sVideoSource := 'Color Converter 2'; if not CheckResult(HmsDirectShowConnectPin(sVideoSource, 'Video Encoder', '', '', MEDIATYPE_Video, MEDIASUBTYPE_I420, FORMAT_VideoInfo)) then Exit end; if not CheckResult(HmsDirectShowInitWMEncoder('Video Encoder', 0, $33564D57)) then Exit; if HmsDirectShowConnectPin(sAudioSource, 'Audio Decoder', sAudioPinName, '', MEDIATYPE_AUDIO) = S_OK then sAudioSource := 'Audio Decoder'; if not CheckResult(HmsDirectShowAddFilter('WMAudio Encoder DMO', 'Audio Encoder', '{33D9A761-90C8-11d0-BD43-00A0C911CE86}')) then Exit; if HmsDirectShowConnectPin(sAudioSource, 'Audio Encoder', '', '', MEDIATYPE_AUDIO) <> S_OK then begin CheckResult(HmsDirectShowAddFilter('ACM Wrapper', 'PCM Wrapper')); CheckResult(HmsDirectShowConnectPin(sAudioSource, 'PCM Wrapper', '', '', MEDIATYPE_AUDIO)); CheckResult(HmsDirectShowConnectPin('PCM Wrapper', 'Audio Encoder', '', '')) end; if not CheckResult(HmsDirectShowAddWMWriter(OutputFileName, 0, 192000, 'WMWriter', HmsTimeConvert(mpTimeLength))) then Exit; if not CheckResult(HmsDirectShowConnectPin('Video Encoder', 'WMWriter', 'out0', 'Video')) then Exit; if not CheckResult(HmsDirectShowConnectPin('Audio Encoder', 'WMWriter', '', 'Audio')) then Exit; if CheckResult(HmsDirectShowPlay) then TranscodingResult := CheckResult(HmsDirectShowWaitComplete(iEventCode)); end. PascalScript Фильмы - DirectShow - WMV -1 21 4A5E7004917F4E67B9BF792D1ECAE6ED HMSMPEG SameText(ExtractFileExt(mpFilePath), '.wtv') PascalScript Транскодирование с использованием фильтров DirectShow 3 MimeType := HmsGetMimeType('mpg') PascalScript 1 const MEDIASUBTYPE_MPEG1Payload = '{e436eb81-524f-11ce-9F53-0020af0ba770}'; MEDIASUBTYPE_MP2 = '{e06d802b-db46-11cf-b4d1-00805f6cbbea}'; function CheckResult(aResult: Integer; aRaiseException: Boolean = True): Boolean; begin Result := aResult = S_OK; if not Result and aRaiseException then RaiseException(Format('Error (code: %x) - %s', [aResult, SysErrorMessage(aResult)])) end; function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer; begin if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then Result := 320000 else Result := aAudioBitrate end; function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else if SameText(aAudioCodec, 'LPCM') then Result := 'pcm_s16be' else Result := aAudioCodec end; function GetAudioFormat(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'adts' else if SameText(aAudioCodec, 'MP3') then Result := 'mp3' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'LPCM') then Result := 's16be' else Result := aAudioCodec end; function SameAudioCodec(const aAudioCodec, aAudioTrack: string): Boolean; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := aAudioTrack = 'A_AC3' else if SameText(aAudioCodec, 'AAC') then Result := aAudioTrack = 'A_AAC' else if SameText(aAudioCodec, 'MP3') then Result := aAudioTrack = 'A_MP3' else if SameText(aAudioCodec, 'MP2') then Result := aAudioTrack = 'A_MP3' else if SameText(aAudioCodec, 'LPCM') then Result := aAudioTrack = 'A_LPCM' else Result := False end; function GetAudioInputFormat(const aAudioSubType: string): string; begin if SameText(aAudioSubType, MEDIASUBTYPE_WAVE_DOLBY_AC3) or SameText(aAudioSubType, MEDIASUBTYPE_DOLBY_AC3) then Result := 'ac3' else if SameText(aAudioSubType, MEDIASUBTYPE_AAC) then Result := 'adts' else if MatchText(aAudioSubType, [MEDIASUBTYPE_MP3, MEDIASUBTYPE_MP2, MEDIASUBTYPE_MPEG1Payload]) then Result := 'mp3' else Result := '' end; function GetAudioInputCodec(const aAudioSubType: string): string; begin if SameText(aAudioSubType, MEDIASUBTYPE_WAVE_DOLBY_AC3) or SameText(aAudioSubType, MEDIASUBTYPE_DOLBY_AC3) then Result := 'ac3' else if SameText(aAudioSubType, MEDIASUBTYPE_AAC) then Result := 'libfaad' else if SameText(aAudioSubType, MEDIASUBTYPE_MP3) then Result := 'mp3' else if SameText(aAudioSubType, MEDIASUBTYPE_MP2) then Result := 'mp2' else if SameText(aAudioSubType, MEDIASUBTYPE_MPEG1Payload) then Result := 'mp2' else Result := '' end; var sTranscoderParams, sReadAudioPipeName, sWriteAudioPipeName, sReadVideoPipeName, sWriteVideoPipeName, sAudioMediaMajorType, sAudioMediaSubType, sVideoMediaMajorType, sVideoMediaSubType: string; iAudioChannels, iAudioSampleRate, iAudioFormatTag, iEventCode, iVideoWidth, iVideoHeight, iVideoCompression: Integer; vCurrentPosition: Variant; begin TranscodingResult := False; sTranscoderParams := ''; CheckResult(HmsDirectShowAddSource(InputFileName, 'Source')); CheckResult(HmsDirectShowAddFilter('PBDA DTFilter', 'VideoDTFilter', '{4A56AF32-C21F-11DB-96FA-005056C00008}')); CheckResult(HmsDirectShowAddFilter('PBDA DTFilter', 'AudioDTFilter', '{4A56AF32-C21F-11DB-96FA-005056C00008}')); CheckResult(HmsDirectShowConnectPin('Source', 'VideoDTFilter', '', '', MEDIATYPE_Video)); CheckResult(HmsDirectShowConnectPin('Source', 'AudioDTFilter', '', '', MEDIATYPE_Audio)); CheckResult(HmsDirectShowGetMediaType('VideoDTFilter', PINDIR_OUTPUT, 'Out', sVideoMediaMajorType, sVideoMediaSubType, iVideoWidth, iVideoHeight, iVideoCompression)); CheckResult(HmsDirectShowGetMediaType('AudioDTFilter', PINDIR_OUTPUT, 'Out', sAudioMediaMajorType, sAudioMediaSubType, iAudioChannels, iAudioSampleRate, iAudioFormatTag)); if HmsCreateDualPipe(sReadVideoPipeName, sWriteVideoPipeName, 10000000) and HmsCreateDualPipe(sReadAudioPipeName, sWriteAudioPipeName, 10000000) then begin CheckResult(HmsDirectShowAddDump(sWriteVideoPipeName, 'DumpVideo')); CheckResult(HmsDirectShowAddDump(sWriteAudioPipeName, 'DumpAudio')); CheckResult(HmsDirectShowConnectPin('VideoDTFilter', 'DumpVideo')); CheckResult(HmsDirectShowConnectPin('AudioDTFilter', 'DumpAudio')); sTranscoderParams := Format('-f mpegvideo -i "%s" -f %s -acodec %s -i "%s" -acodec %s -ab %d -f dvd "%s"', [sReadVideoPipeName, GetAudioInputFormat(sAudioMediaSubType), GetAudioInputCodec(sAudioMediaSubType), sReadAudioPipeName, GetAudioCodec(cfgTranscodingAudioCodec), GetAudioBitrate(cfgTranscodingAudioCodec, cfgTranscodingAudioBitrate), OutputFileName]); if CheckResult(HmsDirectShowPlay) then TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams, True) end end. PascalScript Фильмы - DirectShow - WTV (MPEG-PS) -1 2 bb225ec1-7eff-4f18-91e0-eaf9dde1d116 HMSMPEG TranscodingCondition := SameText(ExtractFileExt(mpFilePath), '.wtv'); if TranscodingCondition then OutputFileName := ChangeFileExt(OutputFileName, '.m2ts') PascalScript Транскодирование с использованием фильтров DirectShow 3 MimeType := HmsGetMimeType('m2ts') PascalScript 1 const MEDIASUBTYPE_MPEG1Payload = '{e436eb81-524f-11ce-9F53-0020af0ba770}'; MEDIASUBTYPE_MP2 = '{e06d802b-db46-11cf-b4d1-00805f6cbbea}'; function CheckResult(aResult: Integer; aRaiseException: Boolean = True): Boolean; begin Result := aResult = S_OK; if not Result and aRaiseException then RaiseException(Format('Error (code: %x) - %s', [aResult, SysErrorMessage(aResult)])) end; function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer; begin if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then Result := 320000 else Result := aAudioBitrate end; function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else if SameText(aAudioCodec, 'LPCM') then Result := 'pcm_s16be' else Result := aAudioCodec end; function GetTsMuxerAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'A_AC3' else if SameText(aAudioCodec, 'AAC') then Result := 'A_AAC' else if SameText(aAudioCodec, 'MP3') then Result := 'A_MP3' else if SameText(aAudioCodec, 'MP2') then Result := 'A_MP3' else if SameText(aAudioCodec, 'LPCM') then Result := 'A_LPCM' else Result := '' end; function GetAudioFormat(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'adts' else if SameText(aAudioCodec, 'MP3') then Result := 'mp3' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'LPCM') then Result := 's16be' else Result := aAudioCodec end; function SameAudioCodec(const aAudioCodec, aAudioTrack: string): Boolean; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := aAudioTrack = 'A_AC3' else if SameText(aAudioCodec, 'AAC') then Result := aAudioTrack = 'A_AAC' else if SameText(aAudioCodec, 'MP3') then Result := aAudioTrack = 'A_MP3' else if SameText(aAudioCodec, 'MP2') then Result := aAudioTrack = 'A_MP3' else if SameText(aAudioCodec, 'LPCM') then Result := aAudioTrack = 'A_LPCM' else Result := False end; function GetAudioInputFormat(const aAudioSubType: string): string; begin if SameText(aAudioSubType, MEDIASUBTYPE_WAVE_DOLBY_AC3) or SameText(aAudioSubType, MEDIASUBTYPE_DOLBY_AC3) then Result := 'ac3' else if SameText(aAudioSubType, MEDIASUBTYPE_AAC) then Result := 'adts' else if MatchText(aAudioSubType, [MEDIASUBTYPE_MP3, MEDIASUBTYPE_MP2, MEDIASUBTYPE_MPEG1Payload]) then Result := 'mp3' else Result := '' end; function GetAudioInputCodec(const aAudioSubType: string): string; begin if SameText(aAudioSubType, MEDIASUBTYPE_WAVE_DOLBY_AC3) or SameText(aAudioSubType, MEDIASUBTYPE_DOLBY_AC3) then Result := 'ac3' else if SameText(aAudioSubType, MEDIASUBTYPE_AAC) then Result := 'libfaad' else if SameText(aAudioSubType, MEDIASUBTYPE_MP3) then Result := 'mp3' else if SameText(aAudioSubType, MEDIASUBTYPE_MP2) then Result := 'mp2' else if SameText(aAudioSubType, MEDIASUBTYPE_MPEG1Payload) then Result := 'mp2' else Result := '' end; var MetaFileLines: TStringList; sAudioTrack, sMetaFileName, sTranscoderParams, sVideoTrack, sReadAudioPipeName, sWriteAudioPipeName, sReadVideoPipeName, sWriteVideoPipeName, sAudioMediaMajorType, sAudioMediaSubType, sVideoMediaMajorType, sVideoMediaSubType, sReadAudioTranscodedPipeName, sWriteAudioTranscodedPipeName: string; iAudioChannels, iAudioSampleRate, iAudioFormatTag, iEventCode, iVideoWidth, iVideoHeight, iVideoCompression: Integer; vCurrentPosition: Variant; begin TranscodingResult := False; sTranscoderParams := ''; CheckResult(HmsDirectShowAddSource(InputFileName, 'Source')); CheckResult(HmsDirectShowAddFilter('PBDA DTFilter', 'VideoDTFilter', '{4A56AF32-C21F-11DB-96FA-005056C00008}')); CheckResult(HmsDirectShowAddFilter('PBDA DTFilter', 'AudioDTFilter', '{4A56AF32-C21F-11DB-96FA-005056C00008}')); CheckResult(HmsDirectShowConnectPin('Source', 'VideoDTFilter', '', '', MEDIATYPE_Video)); CheckResult(HmsDirectShowConnectPin('Source', 'AudioDTFilter', '', '', MEDIATYPE_Audio)); CheckResult(HmsDirectShowGetMediaType('VideoDTFilter', PINDIR_OUTPUT, 'Out', sVideoMediaMajorType, sVideoMediaSubType, iVideoWidth, iVideoHeight, iVideoCompression)); CheckResult(HmsDirectShowGetMediaType('AudioDTFilter', PINDIR_OUTPUT, 'Out', sAudioMediaMajorType, sAudioMediaSubType, iAudioChannels, iAudioSampleRate, iAudioFormatTag)); if SameText(sVideoMediaSubType, MEDIASUBTYPE_X264_) or SameText(sVideoMediaSubType, MEDIASUBTYPE_x264) or SameText(sVideoMediaSubType, MEDIASUBTYPE_AVC1_) or SameText(sVideoMediaSubType, MEDIASUBTYPE_avc1) or SameText(sVideoMediaSubType, MEDIASUBTYPE_H264_) or SameText(sVideoMediaSubType, MEDIASUBTYPE_h264) then sVideoTrack := 'V_MPEG-2, "%s"' // sVideoTrack := 'V_MPEG4/ISO/AVC, "%s", level=4.1, insertSEI, contSPS' else if SameText(sVideoMediaSubType, MEDIASUBTYPE_MPEG2) then sVideoTrack := 'V_MPEG-2, "%s"' else sVideoTrack := ''; if SameText(sAudioMediaSubType, MEDIASUBTYPE_WAVE_DOLBY_AC3) or SameText(sAudioMediaSubType, MEDIASUBTYPE_DOLBY_AC3) then sAudioTrack := 'A_AC3' else if SameText(sAudioMediaSubType, MEDIASUBTYPE_AAC) then sAudioTrack := 'A_AAC' else if MatchText(sAudioMediaSubType, [MEDIASUBTYPE_MP3, MEDIASUBTYPE_MP2, MEDIASUBTYPE_MPEG1Payload]) then sAudioTrack := 'A_MP3' else sAudioTrack := ''; if (sVideoTrack <> '') and (sAudioTrack <> '') then begin if HmsCreateDualPipe(sReadVideoPipeName, sWriteVideoPipeName, 10000000) and HmsCreateDualPipe(sReadAudioPipeName, sWriteAudioPipeName, 10000000) then begin CheckResult(HmsDirectShowAddDump(sWriteVideoPipeName, 'DumpVideo')); CheckResult(HmsDirectShowAddDump(sWriteAudioPipeName, 'DumpAudio')); CheckResult(HmsDirectShowConnectPin('VideoDTFilter', 'DumpVideo')); CheckResult(HmsDirectShowConnectPin('AudioDTFilter', 'DumpAudio')); if not SameAudioCodec(cfgTranscodingAudioCodec, sAudioTrack) and HmsCreateDualPipe(sReadAudioTranscodedPipeName, sWriteAudioTranscodedPipeName, 10000000) then begin sTranscoderParams := Format('-f %s -acodec %s -i "%s" -vn -acodec %s -ab %d -f %s -y "%s"', [GetAudioInputFormat(sAudioMediaSubType), GetAudioInputCodec(sAudioMediaSubType), sReadAudioPipeName, GetAudioCodec(cfgTranscodingAudioCodec), GetAudioBitrate(cfgTranscodingAudioCodec, cfgTranscodingAudioBitrate), GetAudioFormat(cfgTranscodingAudioCodec), sWriteAudioTranscodedPipeName]); sReadAudioPipeName := sReadAudioTranscodedPipeName; sAudioTrack := GetTsMuxerAudioCodec(cfgTranscodingAudioCodec); end; sVideoTrack := sVideoTrack + ', track=1'; sAudioTrack := sAudioTrack + ', "%s", track=2'; MetaFileLines := TStringList.Create; try MetaFileLines.Add('MUXOPT --no-pcr-on-video-pid --vbr --vbv-len=500'); MetaFileLines.Add(Format(sVideoTrack, [sReadVideoPipeName])); MetaFileLines.Add(Format(sAudioTrack, [sReadAudioPipeName])); sMetaFileName := ChangeFileExt(OutputFileName, '.meta'); MetaFileLines.SaveToFile(sMetaFileName); OutputFileName := ChangeFileExt(OutputFileName, '.m2ts'); if CheckResult(HmsDirectShowPlay) then begin if sTranscoderParams <> '' then HmsTranscodingExecute('HMSMPEG', sTranscoderParams, False); TranscodingResult := HmsTranscodingExecute('TSMUXER', '"' + sMetaFileName + '" "' + OutputFileName + '"', True); end finally MetaFileLines.Free end end end end. PascalScript Фильмы - DirectShow - WTV (MPEG-TS) -1 5 a9614214-2352-4b76-b822-93cea059d2a0 HMSMPEG PascalScript Транскодирование с использованием фильтров DirectShow 3 1 const MEDIATYPE_AUXLine21Data = '{670AEA80-3A82-11d0-B79B-00AA003767A7}'; MEDIASUBTYPE_MPEG1Payload = '{e436eb81-524f-11ce-9F53-0020af0ba770}'; MEDIASUBTYPE_MP2 = '{e06d802b-db46-11cf-b4d1-00805f6cbbea}'; function CheckResult(aResult: Integer; aRaiseException: Boolean = True): Boolean; begin Result := aResult = S_OK; if not Result and aRaiseException then RaiseException(Format('Error (code: %x) - %s', [aResult, SysErrorMessage(aResult)])) end; function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer; begin if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then Result := 320000 else Result := aAudioBitrate end; function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else if SameText(aAudioCodec, 'LPCM') then Result := 'pcm_s16be' else Result := aAudioCodec end; function GetAudioFormat(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'adts' else if SameText(aAudioCodec, 'MP3') then Result := 'mp3' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'LPCM') then Result := 's16be' else Result := aAudioCodec end; function SameAudioCodec(const aAudioCodec, aAudioTrack: string): Boolean; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := aAudioTrack = 'A_AC3' else if SameText(aAudioCodec, 'AAC') then Result := aAudioTrack = 'A_AAC' else if SameText(aAudioCodec, 'MP3') then Result := aAudioTrack = 'A_MP3' else if SameText(aAudioCodec, 'MP2') then Result := aAudioTrack = 'A_MP3' else if SameText(aAudioCodec, 'LPCM') then Result := aAudioTrack = 'A_LPCM' else Result := False end; function GetAudioInputFormat(const aAudioSubType: string): string; begin if SameText(aAudioSubType, MEDIASUBTYPE_WAVE_DOLBY_AC3) or SameText(aAudioSubType, MEDIASUBTYPE_DOLBY_AC3) then Result := 'ac3' else if SameText(aAudioSubType, MEDIASUBTYPE_AAC) then Result := 'adts' else if MatchText(aAudioSubType, [MEDIASUBTYPE_MP3, MEDIASUBTYPE_MP2, MEDIASUBTYPE_MPEG1Payload]) then Result := 'mp3' else if SameText(aAudioSubType, MEDIASUBTYPE_PCM) then Result := 's16le' else Result := '' end; function GetAudioInputCodec(const aAudioSubType: string): string; begin if SameText(aAudioSubType, MEDIASUBTYPE_WAVE_DOLBY_AC3) or SameText(aAudioSubType, MEDIASUBTYPE_DOLBY_AC3) then Result := 'ac3' else if SameText(aAudioSubType, MEDIASUBTYPE_AAC) then Result := 'libfaad' else if SameText(aAudioSubType, MEDIASUBTYPE_MP3) then Result := 'mp3' else if SameText(aAudioSubType, MEDIASUBTYPE_MP2) then Result := 'mp2' else if SameText(aAudioSubType, MEDIASUBTYPE_MPEG1Payload) then Result := 'mp2' else if SameText(aAudioSubType, MEDIASUBTYPE_PCM) then Result := 'pcm_s16le' else Result := '' end; var bAudioDecoder, bVideoTranscoding: Boolean; eFrameRate: Extended; sAudioPinName, sVideoPinName, sAudioSource, sVideoSource, sAudioSubType, sVideoSubType, sAudioFormat, sInputParams, sTranscoderParams, sVideoFormat, sAuxPinName, sReadAudioPipeName, sWriteAudioPipeName, sReadVideoPipeName, sWriteVideoPipeName, sAudioMediaMajorType, sAudioMediaSubType, sVideoMediaMajorType, sVideoMediaSubType: string; iAudioChannels, iAudioSampleRate, iAudioFormatTag, iEventCode, iVideoWidth, iVideoHeight, iVideoCompression: Integer; vCurrentPosition: Variant; begin TranscodingResult := False; sTranscoderParams := ''; sAudioSubType := ''; sVideoSubType := ''; CheckResult(HmsDirectShowAddSource(InputFileName, 'Source')); if mpTimeStart <> '' then begin vCurrentPosition := HmsTimeConvert(mpTimeStart) * 10000000; if not CheckResult(HmsDirectShowSetPosition('Source', TIME_FORMAT_MEDIA_TIME, vCurrentPosition)) then Exit; end; CheckResult(HmsDirectShowAddFilter('PBDA DTFilter', 'VideoDTFilter', '{4A56AF32-C21F-11DB-96FA-005056C00008}')); CheckResult(HmsDirectShowAddFilter('PBDA DTFilter', 'AudioDTFilter', '{4A56AF32-C21F-11DB-96FA-005056C00008}')); if (HmsDirectShowConnectPin('Source', 'VideoDTFilter', '', '', MEDIATYPE_Video) = S_OK) and (HmsDirectShowConnectPin('Source', 'AudioDTFilter', '', '', MEDIATYPE_Audio) = S_OK) then begin sVideoSource := 'VideoDTFilter'; sAudioSource := 'AudioDTFilter'; end else begin CheckResult(HmsDirectShowRemoveFilter('VideoDTFilter')); CheckResult(HmsDirectShowRemoveFilter('AudioDTFilter')); if (HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sVideoPinName, MEDIATYPE_Video, 0) = S_OK) and (HmsDirectShowGetPinName('Source', PINDIR_OUTPUT, sAudioPinName, MEDIATYPE_Audio, 0) = S_OK) then begin sVideoSource := 'Source'; sAudioSource := 'Source'; end end; if (sVideoSource <> '') and (sAudioSource <> '') then begin if not CheckResult(HmsDirectShowAddFilter('Microsoft DTV-DVD Video Decoder', 'Video Decoder')) then Exit; if not CheckResult(HmsDirectShowAddFilter('Microsoft DTV-DVD Audio Decoder', 'Audio Decoder')) then Exit; CheckResult(HmsDirectShowConnectPin(sVideoSource, 'Video Decoder', '', '', MEDIATYPE_Video)); CheckResult(HmsDirectShowConnectPin(sAudioSource, 'Audio Decoder', '', '', MEDIATYPE_Audio)); sVideoSource := 'Video Decoder'; sAudioSource := 'Audio Decoder'; CheckResult(HmsDirectShowGetMediaType(sVideoSource, PINDIR_OUTPUT, '', sVideoMediaMajorType, sVideoMediaSubType, iVideoWidth, iVideoHeight, iVideoCompression)); if not SameText(sVideoMediaSubType, MEDIASUBTYPE_I420) then begin if (mpOriginalWidth = 0) or (mpOriginalHeight = 0) then begin mpOriginalWidth := mpWidth; mpOriginalHeight := mpHeight; end; if (mpOriginalWidth = 0) or (mpOriginalHeight = 0) then begin mpOriginalWidth := iVideoWidth; mpOriginalHeight := iVideoHeight; end; if (HmsDirectShowAddFilter('Color Converter DMO', 'Color Converter', '{D990EE14-776C-4723-BE46-3DA2F56F10B9}') = S_OK) and (HmsDirectShowConnectPin(sVideoSource, 'Color Converter', '', '', MEDIATYPE_VIDEO, '', '', mpOriginalWidth, mpOriginalHeight) = S_OK) then sVideoSource := 'Color Converter'; end; if HmsCreateDualPipe(sReadVideoPipeName, sWriteVideoPipeName, 10000000) and HmsCreateDualPipe(sReadAudioPipeName, sWriteAudioPipeName, 10000000) then begin CheckResult(HmsDirectShowAddDump(sWriteVideoPipeName, 'DumpVideo')); CheckResult(HmsDirectShowAddDump(sWriteAudioPipeName, 'DumpAudio')); CheckResult(HmsDirectShowConnectPin(sVideoSource, 'DumpVideo', '', '', MEDIATYPE_Video, MEDIASUBTYPE_I420)); CheckResult(HmsDirectShowConnectPin(sAudioSource, 'DumpAudio', '', '', MEDIATYPE_Audio, MEDIASUBTYPE_PCM)); CheckResult(HmsDirectShowGetMediaType(sAudioSource, PINDIR_OUTPUT, '', sAudioMediaMajorType, sAudioMediaSubType, iAudioChannels, iAudioSampleRate, iAudioFormatTag)); sAudioFormat := Format('-f %s -acodec %s -ac %d -ar %d ', [GetAudioInputFormat(sAudioMediaSubType), GetAudioInputCodec(sAudioMediaSubType), iAudioChannels, iAudioSampleRate]); CheckResult(HmsDirectShowGetMediaType(sVideoSource, PINDIR_OUTPUT, '', sVideoMediaMajorType, sVideoMediaSubType, iVideoWidth, iVideoHeight, iVideoCompression)); if mpFrameRate = 0 then CheckResult(HmsDirectShowGetFrameRate(sVideoSource, PINDIR_OUTPUT, '', eFrameRate)) else eFrameRate := mpFrameRate; sVideoFormat := Format('-f rawvideo -vcodec rawvideo -pix_fmt yuv420p -s %dx%d -r %s ', [iVideoWidth, iVideoHeight, ReplaceStr(FormatFloat('0.###', eFrameRate), ',', '.')]); sInputParams := Format('%s -i "%s" %s -i "%s"', [sVideoFormat, sReadVideoPipeName, sAudioFormat, sReadAudioPipeName]); sTranscoderParams := sInputParams + HmsTranscodingVideoParams(0, 0, 0, 0, True, False) + Format(' -q:v 0 -s %dx%d "%s"', [cfgTranscodingScreenWidth, cfgTranscodingScreenHeight, OutputFileName]); if CheckResult(HmsDirectShowPlay) then TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams, True) end end end. PascalScript Фильмы - DirectShow - WTV - FFMPEG -1 1 b4832cc9-aec1-48d3-8d22-48953ac22a1c HDSDUMP PascalScript 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 1 var sTranscoderParams, sReadPipeName, sWritePipeName, sValue: string; begin TranscodingResult := False; if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin HmsRetrieveProperties(); sTranscoderParams := HmsGetItemProperty(mpiTranscodingParams); if sTranscoderParams <> '' then begin sTranscoderParams := sTranscoderParams + Format(' --threads 2 --outfile "%s"', [sWritePipeName]); if mpTimeStart <> '' then sTranscoderParams := sTranscoderParams + ' --skip ' + mpTimeStart; if HmsTranscodingExecute('HDSDUMP', sTranscoderParams, False) then begin sTranscoderParams := HmsTranscodingProfileParams('Фильмы (основной)'); sTranscoderParams := ReplaceStr(sTranscoderParams, '<INPUT FILE>', sReadPipeName) + ' "' + OutputFileName + '"'; TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams); end end end end. PascalScript Фильмы - HDS (ремуксирование) -1 27 ee820b0d-eac0-42e2-9ee2-3935945180e5 RTMPDUMP PascalScript Транскодирование для интернет медиа-ресурсов 3 cfgTranscodingVideoMimeType PascalScript 1 function RtmpRedirectApp(const aRtmpApp: string): string; begin if SameText(aRtmpApp, 'asiaupdate') then Result := 'asiaupdateedge' else if SameText(aRtmpApp, 'alfa-live') then Result := 'alfa-live-source' else Result := aRtmpApp end; function ExecuteRtmpDump(const aRtmpServer, aRtmpFile, aPlayerUrl: string; aRtmpLive: Boolean; var aVideoUrl: string): Boolean; var sRtmpApp, sRtmpFile, sRtmpParams, sRtmpReadPipeName, sRtmpWritePipeName: string; begin Result := False; if (aRtmpServer <> '') and (aRtmpFile <> '') then if HmsCreateDualPipe(sRtmpReadPipeName, sRtmpWritePipeName, 1000000) then begin if SameText(ExtractFileExt(aRtmpFile), '.flv') then sRtmpFile := ChangeFileExt(aRtmpFile, '') else if SameText(ExtractFileExt(aRtmpFile), '.mp4') and (Pos('mp4:', aRtmpFile) = 0) then sRtmpFile := 'mp4:' + aRtmpFile else sRtmpFile := aRtmpFile; if not HmsRegExMatch('rtmp://.*?/(.*)', aRtmpServer, sRtmpApp) then sRtmpApp := ''; if sRtmpApp <> '' then sRtmpApp := ' -a "' + RtmpRedirectApp(sRtmpApp) + '"'; sRtmpParams := Format('-r "%s"%s -y "%s" -o "%s"', [aRtmpServer, sRtmpApp, sRtmpFile, sRtmpWritePipeName]); if aRtmpLive then sRtmpParams := '-v ' + sRtmpParams; if aPlayerUrl <> '' then sRtmpParams := sRtmpParams + ' -W "' + aPlayerUrl + '"'; Result := HmsTranscodingExecute('RTMPDUMP', sRtmpParams, False); if Result then aVideoUrl := sRtmpReadPipeName end end; function ExecuteRtmpDumpCommandLine(const aCommandLine: string; var aInputFileName: string): Boolean; var i, j: Integer; sRtmpDumpParams, sRtmpReadPipeName, sRtmpWritePipeName: string; begin Result := False; i := Pos('rtmpdump.exe', LowerCase(InputFileName)); j := 0; if i > 0 then j := 12 else begin i := Pos('rtmpdump', LowerCase(InputFileName)); if i > 0 then j := 8 end; if (j > 0) and HmsCreateDualPipe(sRtmpReadPipeName, sRtmpWritePipeName, 1000000) then begin sRtmpDumpParams := Format('%s -o "%s"', [Copy(InputFileName, i + j, Length(InputFileName)), sRtmpWritePipeName]); Result := HmsTranscodingExecute('RTMPDUMP', sRtmpDumpParams, False); if Result then aInputFileName := sRtmpReadPipeName end end; var bSuccess: Boolean; sFileType, sInputFileName, sRtmpServer, sRtmpFile, sTranscodingParams: string; begin TranscodingResult := False; if Pos('rtmpdump', LowerCase(InputFileName)) > 0 then bSuccess := ExecuteRtmpDumpCommandLine(InputFileName, sInputFileName) else if HmsRegExMatch2('(rtmp://.*?/.*?)/(.*)', InputFileName, sRtmpServer, sRtmpFile) then bSuccess := ExecuteRtmpDump(sRtmpServer, sRtmpFile, '', True, sInputFileName) else bSuccess := False; if bSuccess then begin if mpFileType = '' then mpFileType := 'flv'; if mpFileType <> '' then sFileType := '-f "' + mpFileType + '" ' else sFileType := ''; mpInternetItem := False; sTranscodingParams := HmsTranscodingProfileParams('Фильмы (основной)'); sTranscodingParams := ReplaceStr(sTranscodingParams, '<HMSMPEG> ', sFileType); sTranscodingParams := sTranscodingParams + ' -strict experimental "<OUTPUT FILE>"'; TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True, sInputFileName, OutputFileName) end end. PascalScript Фильмы - RTMPDUMP - FFMPEG -1 34 122143cc-5e0f-4dc6-bd7e-08e14308d404 TSMUXER begin if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then OutputFileName := ChangeFileExt(OutputFileName, '.ts') else OutputFileName := ChangeFileExt(OutputFileName, '.m2ts'); TranscodingCondition := True end. PascalScript Транскодирование без перекодирования видео 3 MimeType := HmsGetMimeType('m2ts') PascalScript 1 const csAudioTranscodingParams = ' -acodec %s -ar %d -ab %d -ac %d'; function GetCodecInfo(aCodecID: Integer): string; begin if aCodecID = CODEC_ID_AC3 then Result := 'A_AC3' else if aCodecID = CODEC_ID_AAC then Result := 'A_AAC' else if aCodecID = CODEC_ID_MP3 then Result := 'A_MP3' else if aCodecID = CODEC_ID_MP2 then Result := 'A_MP3' else if aCodecID = CODEC_ID_DTS then Result := 'A_DTS' else if aCodecID = CODEC_ID_PCM_BLURAY then Result := 'A_LPCM' else Result := '' end; procedure GetAudioTranscodingParams(const aAudioCodec: string; var aCodecName, aFileFormat: string; var aCodecID, aAudioBitrate, aAudioChannels: Integer); begin aAudioBitrate := cfgTranscodingAudioBitrate; if SameText(aAudioCodec, 'AAC') then begin aCodecName := 'libfaac'; aFileFormat := 'adts'; aCodecID := CODEC_ID_AAC; end else if SameText(aAudioCodec, 'MP3') then begin aCodecName := 'libmp3lame'; aFileFormat := 'mp3'; aCodecID := CODEC_ID_MP3; if aAudioBitrate > 320000 then aAudioBitrate := 320000; if aAudioChannels > 2 then aAudioChannels := 2; end else if SameText(aAudioCodec, 'MP2') then begin aCodecName := 'mp2'; aFileFormat := 'mp2'; aCodecID := CODEC_ID_MP2; if aAudioBitrate > 320000 then aAudioBitrate := 320000; if aAudioChannels > 2 then aAudioChannels := 2; end else if SameText(aAudioCodec, 'LPCM') then begin aCodecName := 'pcm_s16be'; aFileFormat := 's16be'; aCodecID := CODEC_ID_PCM_BLURAY; end else if SameText(aAudioCodec, 'DCA') or SameText(aAudioCodec, 'DTS') then begin aCodecName := 'dca'; aFileFormat := 'dts'; aCodecID := CODEC_ID_DTS; end else begin aCodecName := 'ac3'; aFileFormat := 'ac3'; if SameText(aAudioCodec, 'AC3') then aCodecID := CODEC_ID_AC3 else aCodecID := CODEC_ID_NONE; end end; function GetVideoFormat(aCodecID: Integer): string; var bh264_mp4toannexb: Boolean; begin if aCodecID = CODEC_ID_H264 then begin Result := 'h264'; if VarToStr(mpCodecNalLengthSize) <> '' then bh264_mp4toannexb := VarToStr(mpCodecNalLengthSize) <> '0' else bh264_mp4toannexb := not MatchText(mpFileType, ['mpegts', 'wtv', 'hls', 'applehttp'], True); if bh264_mp4toannexb then Result := Result + ' -vbsf h264_mp4toannexb' end else if aCodecID = CODEC_ID_MPEG2VIDEO then Result := 'mpeg2video' else Result := '' end; var bAudioTranscoding, bCreateLPCM, bDeinterlace, bFileUnsupported, bHideDTS, bPipe, bMapStreams, bSuccess, bVideoTranscoding: Boolean; i, iAudioBitrate, iAudioChannels, iAudioStreamNo, iAudioCodecID, iVideoCodecID, iAudioCfgBitrate, iAudioCfgCodecID, iAudioDelay, iAudioSampleRate, iAudioStreamID, iVideoStreamID: Integer; MetaFileLines: TStringList; sAudioInfo, sVideoInfo, sMetaFileName, sInputVideoFileName, sInputAudioFileName, sAudioCfgCodecInfo, sAudioCfgCodecName, sAudioCfgFileFormat, sResourcePipe, sAudioTranscodingParams, sReadAudioPipeName, sWriteAudioPipeName, sFrameRate, sChannelOrder, sSoxReadPipeName, sSoxWritePipeName, sSoxTranscodingParams, sReadLpcmPipeName, sWriteLpcmPipeName, sReadVideoPipeName, sWriteVideoPipeName, sTimeShift, sTranscodingAudioCodec, sTranscodingParams, sVideoTranscodingParams: string; begin MetaFileLines := TStringList.Create; try bSuccess := True; if HmsGetStreamCount = 0 then HmsRetrieveProperties; bPipe := Pos('\\.\pipe\', InputFileName) > 0; bDeinterlace := SameText(HmsGetVideoSettings(vstDeinterlace), 'on'); if bPipe then bFileUnsupported := True else if (mpIsoItem or mpDvdItem or mpBdItem) and HmsCreateResourcePipe(sResourcePipe) then begin InputFileName := sResourcePipe; bFileUnsupported := True; bPipe := True; end else if mpPodcastItem then begin InputFileName := HmsGetItemProperty(mpiMediaResourceSource); bFileUnsupported := True; bPipe := Pos('\\.\pipe\', InputFileName) > 0; end else bFileUnsupported := not MatchText(mpFileType, ['mov,mp4,m4a,3gp,3g2,mj2', 'mpegts', 'mpeg', 'mp4', 'mov']) or (mpTimeStart <> ''); bVideoTranscoding := False; bAudioTranscoding := False; bHideDTS := False; bCreateLPCM := False; sTimeShift := HmsGetVideoSettings(vstAudioDelay); if sTimeShift <> '' then sTimeShift := Format(', timeshift=%ss', [sTimeShift]); sInputVideoFileName := InputFileName; sInputAudioFileName := InputFileName; MetaFileLines.Add('MUXOPT --no-pcr-on-video-pid --vbr --vbv-len=1500'); iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo < 0 then iAudioStreamNo := 0; if (sTimeShift = '') and (mpTimeStart = '') then begin iAudioDelay := HmsGetStreamDelay(stAudio, iAudioStreamNo); if iAudioDelay <> 0 then sTimeShift := Format(', timeshift=%dms', [iAudioDelay]); end; iVideoCodecID := HmsGetStreamCodecID(stVideo, 0); iAudioCodecID := HmsGetStreamCodecID(stAudio, iAudioStreamNo); iAudioChannels := HmsGetStreamChannels(iAudioStreamNo); if iAudioChannels = 0 then iAudioChannels := 2; iAudioBitrate := HmsGetStreamBitrate(stAudio, iAudioStreamNo); if SameText(HmsGetVideoSettings(vstVideoOriginal), 'On') then bVideoTranscoding := False else if SameText(HmsGetVideoSettings(vstVideoOriginal), 'Off') then bVideoTranscoding := True else begin bVideoTranscoding := (mpSubtitleLanguage <> '') or (HmsGetVideoSettings(vstSubtitle) <> '') or bDeinterlace; if not bVideoTranscoding and (mpFrameRate > 0) and (mpFrameRate < 20) then bVideoTranscoding := True; end; sTranscodingParams := ''; sSoxTranscodingParams := ''; if not bVideoTranscoding then begin if SameText(mpVideoCodec, 'H264') then iVideoCodecID := CODEC_ID_H264 else if SameText(mpVideoCodec, 'MPEG2VIDEO') then iVideoCodecID := CODEC_ID_MPEG2VIDEO; if iVideoCodecID = CODEC_ID_H264 then sVideoInfo := 'V_MPEG4/ISO/AVC, "%s", level=4.1, insertSEI, contSPS' else if iVideoCodecID = CODEC_ID_MPEG2VIDEO then sVideoInfo := 'V_MPEG-2, "%s"' else if ((iVideoCodecID = CODEC_ID_VC1) or SameText(mpVideoCodec, 'VC1')) and not bFileUnsupported then sVideoInfo := 'V_MS/VFW/WVC1, "%s"' else bVideoTranscoding := True end; if bVideoTranscoding then begin if SameText(cfgTranscodingVideoCodec, 'X264') then begin iVideoCodecID := CODEC_ID_H264; sVideoInfo := 'V_MPEG4/ISO/AVC, "%s", level=4.1, insertSEI, contSPS' end else begin iVideoCodecID := CODEC_ID_MPEG2VIDEO; sVideoInfo := 'V_MPEG-2, "%s"'; end end; if (iAudioCodecID = CODEC_ID_DTS) and cfgTranscodingHideDTSInLPCM and ((iAudioBitrate = 768000) or (iAudioBitrate = 1536000)) then begin bHideDTS := True; sAudioCfgFileFormat := 'dts'; sAudioInfo := 'A_LPCM' end else begin if SameText(HmsGetVideoSettings(vstAudioOriginal), 'On') then begin bAudioTranscoding := False; GetAudioTranscodingParams(mpAudioCodec, sAudioCfgCodecName, sAudioCfgFileFormat, iAudioCfgCodecID, iAudioCfgBitrate, iAudioChannels); end else begin GetAudioTranscodingParams(cfgTranscodingAudioCodec, sAudioCfgCodecName, sAudioCfgFileFormat, iAudioCfgCodecID, iAudioCfgBitrate, iAudioChannels); bAudioTranscoding := (iAudioCodecID <> iAudioCfgCodecID); end; if bAudioTranscoding then sAudioInfo := GetCodecInfo(iAudioCfgCodecID) else sAudioInfo := GetCodecInfo(iAudioCodecID); end; if SameText(ExtractFileExt(mpFilePath), '.mkv') then begin iVideoStreamID := HmsGetStreamIndex(stVideo, 0) + 1; iAudioStreamID := HmsGetStreamIndex(stAudio, iAudioStreamNo) + 1; end else begin iVideoStreamID := HmsGetStreamID(stVideo, 0); iAudioStreamID := HmsGetStreamID(stAudio, iAudioStreamNo); if SameText(mpFileType, 'mpeg') then begin iVideoStreamID := iVideoStreamID and 255; iAudioStreamID := iAudioStreamID and 255; end end; if bVideoTranscoding or bAudioTranscoding or bHideDTS or bFileUnsupported then begin bMapStreams := HmsGetStreamCount > 0; if bVideoTranscoding or bFileUnsupported then bSuccess := HmsCreateDualPipe(sReadVideoPipeName, sWriteVideoPipeName, 10000000); if bSuccess and (bAudioTranscoding or bFileUnsupported or bHideDTS) then bSuccess := HmsCreateDualPipe(sReadAudioPipeName, sWriteAudioPipeName, 10000000); if bSuccess then begin if bVideoTranscoding then sVideoTranscodingParams := HmsTranscodingVideoCodecParams else if bFileUnsupported then sVideoTranscodingParams := ' -copyinkf -vcodec copy' // else sVideoTranscodingParams := ''; if sVideoTranscodingParams <> '' then begin if bMapStreams then sVideoTranscodingParams := sVideoTranscodingParams + Format(' -map 0:%d', [HmsGetStreamIndex(stVideo, 0)]); sVideoTranscodingParams := sVideoTranscodingParams + Format(' -f %s -y "%s"', [GetVideoFormat(iVideoCodecID), sWriteVideoPipeName]); sInputVideoFileName := sReadVideoPipeName; iVideoStreamID := 1; end; if bAudioTranscoding then begin if cfgTranscodingAudioChannels <> 0 then iAudioChannels := cfgTranscodingAudioChannels else if iAudioChannels < 2 then iAudioChannels := 2; if (iAudioChannels = 6) and (mpAudioSampleRate > 0) then iAudioSampleRate := mpAudioSampleRate else iAudioSampleRate := 48000; sAudioTranscodingParams := Format(csAudioTranscodingParams, [sAudioCfgCodecName, iAudioSampleRate, iAudioCfgBitrate, iAudioChannels]) end else if bFileUnsupported or bHideDTS then sAudioTranscodingParams := ' -acodec copy ' else sAudioTranscodingParams := ''; if sAudioTranscodingParams <> '' then begin if bMapStreams then sAudioTranscodingParams := sAudioTranscodingParams + Format(' -map 0:%d', [HmsGetStreamIndex(stAudio, iAudioStreamNo)]); sAudioTranscodingParams := sAudioTranscodingParams + Format(' -f %s -y "%s"', [sAudioCfgFileFormat, sWriteAudioPipeName]); sInputAudioFileName := sReadAudioPipeName; iAudioStreamID := 1; end; if (sVideoTranscodingParams <> '') or (sAudioTranscodingParams <> '') then begin if (mpTimeStart <> '') and not bPipe then sTranscodingParams := '-ss ' + mpTimeStart + ' ' else sTranscodingParams := ''; if SameText(mpFileType, 'mpeg') then sTranscodingParams := sTranscodingParams + '-f mpeg '; sTranscodingParams := sTranscodingParams + Format('-i "%s"', [InputFileName]); if sVideoTranscodingParams = '' then sTranscodingParams := sTranscodingParams + ' -vn ' + sAudioTranscodingParams else if sAudioTranscodingParams = '' then sTranscodingParams := sTranscodingParams + ' -an ' + sVideoTranscodingParams else begin if bVideoTranscoding and bAudioTranscoding and (mpTimeStart <> '') and not bPipe then sTranscodingParams := '-async 1 ' + sTranscodingParams; sTranscodingParams := sTranscodingParams + sVideoTranscodingParams + sAudioTranscodingParams; end; sTranscodingParams := sTranscodingParams + ' -v -1 -loglevel quiet' end else sTranscodingParams := ''; if sTranscodingParams <> '' then begin if SameText(sAudioInfo, 'A_LPCM') or bHideDTS then begin bSuccess := HmsCreateDualPipe(sReadLpcmPipeName, sWriteLpcmPipeName, 10000000); if bSuccess then begin if bHideDTS then begin iAudioChannels := 2; sAudioInfo := 'A_LPCM' end else if iAudioChannels = 6 then begin sChannelOrder := '1 2 3 5 6 4'; if HmsCreateDualPipe(sSoxReadPipeName, sSoxWritePipeName) then begin sSoxTranscodingParams := Format('-t raw -B -c %d -r 48000 -e signed -b 16 "%s" -t raw -B -c %d -r 48000 "%s" remix %s', [iAudioChannels, sReadAudioPipeName, iAudioChannels, sSoxWritePipeName, sChannelOrder]); sReadAudioPipeName := sSoxReadPipeName end end; if bSuccess then begin HmsCreateLpcmFile(sReadAudioPipeName, sWriteLpcmPipeName, iAudioChannels, 48000, 16, False, bHideDTS); sInputAudioFileName := sReadLpcmPipeName end end end end end end; if bSuccess then begin sFrameRate := HmsGetVideoSettings(vstFrameRate); if (sFrameRate = '') and (mpFrameRate > 0) then begin if mpFrameRate < 23976 / 1000 then mpFrameRate := 23.976; sFrameRate := ReplaceStr(FormatFloat('0.000', mpFrameRate), ',', '.') end else sFrameRate := ''; if sFrameRate <> '' then sVideoInfo := sVideoInfo + ', fps=' + sFrameRate; sVideoInfo := sVideoInfo + ', track=%d'; sAudioInfo := sAudioInfo + ', "%s", ' + 'track=%d' + sTimeShift; MetaFileLines.Add(Format(sVideoInfo, [sInputVideoFileName, iVideoStreamID])); MetaFileLines.Add(Format(sAudioInfo, [sInputAudioFileName, iAudioStreamID])); sMetaFileName := ChangeFileExt(OutputFileName, '.meta'); MetaFileLines.SaveToFile(sMetaFileName); if Pos('MPEGTS', cfgTranscodingFileFormat) > 0 then OutputFileName := ChangeFileExt(OutputFileName, '.ts') else OutputFileName := ChangeFileExt(OutputFileName, '.m2ts'); if sSoxTranscodingParams <> '' then HmsTranscodingExecute('SOX', sSoxTranscodingParams, False); if sTranscodingParams <> '' then TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, False, InputFileName); TranscodingResult := HmsTranscodingExecute('TSMUXER', '"' + sMetaFileName + '" "' + OutputFileName + '"', True); end finally MetaFileLines.Free end end. PascalScript Фильмы - TsMuxer -1 7 TSMUXER OutputFileName := ChangeFileExt(OutputFileName, '.m2ts'); TranscodingCondition := True PascalScript Транскодирование объединенных медиа-ресурсов 3 MimeType := HmsGetMimeType('m2ts') PascalScript 1 const csFFMpegTranscodingParams = '-f mpegts -i "%s" -acodec %s -ab %d -y -f %s "%s"'; function GetAudioBitrate(const aAudioCodec: string; aAudioBitrate: Integer): Integer; begin if MatchText(aAudioCodec, ['MP2', 'MP3']) and (aAudioBitrate > 320000) then Result := 320000 else Result := aAudioBitrate end; function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else Result := aAudioCodec end; function GetTsMuxerAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'A_AC3' else if SameText(aAudioCodec, 'AAC') then Result := 'A_AAC' else if SameText(aAudioCodec, 'MP3') then Result := 'A_MP3' else if SameText(aAudioCodec, 'MP2') then Result := 'A_MP3' else Result := '' end; function GetAudioFormat(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'adts' else if SameText(aAudioCodec, 'MP3') then Result := 'mp3' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else Result := aAudioCodec end; function SameAudioCodec(const aAudioCodec: string; aCodecID: Integer): Boolean; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') then Result := aCodecID = CODEC_ID_AC3 else if SameText(aAudioCodec, 'AAC') then Result := aCodecID = CODEC_ID_AAC else if SameText(aAudioCodec, 'MP3') then Result := aCodecID = CODEC_ID_MP3 else if SameText(aAudioCodec, 'MP2') then Result := aCodecID = CODEC_ID_MP2 else if SameText(aAudioCodec, 'WMA') then Result := aCodecID = CODEC_ID_WMAV2 else Result := False end; var bAudioTranscoding, bUseSubItems: Boolean; i, iAudioStreamNo, iAudioCodecID, iAudioStreamID, iStartTime, iSubItemsCount, iTimeLength, iVideoCodecID, iVideoStreamID: Integer; MetaFileLines: TStringList; sAudioType, sFrameRate, sMetaFileName, sCutStart, sInputVideoFileName, sInputAudioFileName, sInputVideoFileNames, sInputAudioFileNames, sMuxOpt, sFFMpegTranscodingParams, sAudioReadPipeName, sAudioWritePipeName, sTimeShift, sTsMuxerReadPipeName, sTsMuxerWritePipeName: string; begin TranscodingResult := False; iStartTime := HmsTimeConvert(mpTimeStart); iSubItemsCount := mpSubItemsCount; bUseSubItems := iSubItemsCount > 0; sTimeShift := HmsGetVideoSettings(vstAudioDelay); if sTimeShift <> '' then sTimeShift := Format(', timeshift=%ss', [sTimeShift]); iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo < 0 then iAudioStreamNo := 0; if bUseSubItems or mpDvdItem then begin if bUseSubItems then HmsTranscodingActivateSubItem(0); iVideoCodecID := HmsGetStreamCodecID(stVideo, 0); if (iVideoCodecID = CODEC_ID_MPEG2VIDEO) or SameText(mpVideoCodec, 'MPEG2VIDEO') then begin iVideoStreamID := HmsGetStreamID(stVideo, 0); iAudioStreamID := HmsGetStreamID(stAudio, iAudioStreamNo); if SameText(ExtractFileExt(mpFilePath), '.vob') then begin iVideoStreamID := iVideoStreamID and 255; iAudioStreamID := iAudioStreamID and 255; end; sFrameRate := ReplaceStr(FormatFloat('0.000', mpFrameRate), ',', '.'); iAudioCodecID := HmsGetStreamCodecID(stAudio, iAudioStreamNo); if iAudioCodecID = CODEC_ID_AC3 then sAudioType := 'A_AC3' else if iAudioCodecID = CODEC_ID_DTS then sAudioType := 'A_DTS' else if iAudioCodecID = CODEC_ID_MP3 then sAudioType := 'A_MP3' else if iAudioCodecID = CODEC_ID_AAC then sAudioType := 'A_AAC' else sAudioType := ''; if sAudioType <> '' then begin bAudioTranscoding := not SameAudioCodec(cfgTranscodingAudioCodec, iAudioCodecID); sInputVideoFileNames := ''; sInputAudioFileNames := ''; sCutStart := ''; if bUseSubItems then begin for i := 0 to iSubItemsCount - 1 do begin HmsTranscodingActivateSubItem(i); if iStartTime > 0 then begin iTimeLength := HmsTimeConvert(mpTimeLength); if (iTimeLength > 0) and (iStartTime > iTimeLength) then begin iStartTime := iStartTime - iTimeLength; sTimeShift := ''; Continue end; sCutStart := Format(' --cut-start=%ds', [iStartTime]); iStartTime := 0; end; if mpIsoItem then begin // pipe join не работает на текущей версии TsMuxer sInputVideoFileName := '.vob'; HmsCreateResourcePipe(sInputVideoFileName); if bAudioTranscoding then begin sInputAudioFileName := '.vob'; HmsCreateResourcePipe(sInputAudioFileName) end else sInputAudioFileName := sInputVideoFileName end else begin sInputVideoFileName := mpFilePath; sInputAudioFileName := sInputVideoFileName; end; if sInputVideoFileNames <> '' then sInputVideoFileNames := sInputVideoFileNames + '+'; sInputVideoFileNames := sInputVideoFileNames + '"' + sInputVideoFileName + '"'; if sInputAudioFileNames <> '' then sInputAudioFileNames := sInputAudioFileNames + '+'; sInputAudioFileNames := sInputAudioFileNames + '"' + sInputAudioFileName + '"'; end; end else begin sInputVideoFileNames := '.vob'; HmsCreateResourcePipe(sInputVideoFileNames); if bAudioTranscoding then begin sInputAudioFileNames := '.vob'; HmsCreateResourcePipe(sInputAudioFileNames) end else sInputAudioFileNames := sInputVideoFileNames end; MetaFileLines := TStringList.Create; try sMuxOpt := 'MUXOPT --no-pcr-on-video-pid --vbr --vbv-len=500'; if bAudioTranscoding then begin MetaFileLines.Add(sMuxOpt); MetaFileLines.Add(sAudioType + ', ' + sInputAudioFileNames + Format(', track=%d', [iAudioStreamID])); sMetaFileName := ChangeFileExt(OutputFileName, '.audio.meta'); MetaFileLines.SaveToFile(sMetaFileName); sTsMuxerReadPipeName := '.ts'; sTsMuxerWritePipeName := '.ts'; if not HmsCreateDualPipe(sTsMuxerReadPipeName, sTsMuxerWritePipeName) then Exit; if not HmsTranscodingExecute('TSMUXER', '"' + sMetaFileName + '" "' + sTsMuxerWritePipeName + '"', False) then Exit; if not HmsCreateDualPipe(sAudioReadPipeName, sAudioWritePipeName) then Exit; sFFMpegTranscodingParams := Format(csFFMpegTranscodingParams, [sTsMuxerReadPipeName, GetAudioCodec(cfgTranscodingAudioCodec), GetAudioBitrate(cfgTranscodingAudioCodec, cfgTranscodingAudioBitrate), GetAudioFormat(cfgTranscodingAudioCodec), sAudioWritePipeName]); if not HmsTranscodingExecute('HMSMPEG', sFFMpegTranscodingParams, False) then Exit; sInputAudioFileNames := sAudioReadPipeName; iAudioStreamID := 1; sAudioType := GetTsMuxerAudioCodec(cfgTranscodingAudioCodec); end; MetaFileLines.Clear; MetaFileLines.Add(sMuxOpt + sCutStart); MetaFileLines.Add('V_MPEG-2, ' + sInputVideoFileNames + Format(', fps=%s, track=%d', [sFrameRate, iVideoStreamID])); MetaFileLines.Add(sAudioType + ', ' + sInputAudioFileNames + sTimeShift + Format(', track=%d', [iAudioStreamID])); sMetaFileName := ChangeFileExt(OutputFileName, '.meta'); MetaFileLines.SaveToFile(sMetaFileName); OutputFileName := ChangeFileExt(OutputFileName, '.m2ts'); TranscodingResult := HmsTranscodingExecute('TSMUXER', '"' + sMetaFileName + '" "' + OutputFileName + '"', True); finally MetaFileLines.Free end end end end end. PascalScript Фильмы - TsMuxer - DVD -1 10 8944B120E242447CB9D5BBB34B192FEB HMSMPEG PascalScript 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 1 var sTranscoderParams, sReadPipeName, sWritePipeName, sLink: string; begin TranscodingResult := False; if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin sLink := CurrentMediaItem[mpiFilePath]; sReadPipeName := HmsDownloadURLToPipe(sLink, 'Referer: http://turkcinema.tv/swf/player.swf?v=1.3.1', true); // HmsLogMessage(1, 'HmsDownloadURLToPipe: '+sReadPipeName); sTranscoderParams := HmsTranscodingProfileParams('Фильмы (основной)'); sTranscoderParams := ReplaceStr(sTranscoderParams, '<INPUT FILE>', sReadPipeName) + ' "' + OutputFileName + '"'; TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams); end end. PascalScript Фильмы - Turkcinema.tv (HMSMPEG) -1 44 1365310f-7d6f-48d7-9f57-f1bc6f348403 HMSMPEG PascalScript Транскодирование для интернет медиа-ресурсов 3 cfgTranscodingVideoMimeType PascalScript 1 const csVlcParams = '-Idummy --language en --demuxdump-file="%s" "%s" :demux=dump'; var sFileType, sReadPipeName, sWritePipeName, sTranscodingParams: string; begin TranscodingResult := False; if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin if HmsTranscodingExecute('VLC', Format(csVlcParams, [sWritePipeName, InputFileName]), 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 Фильмы - VLC - FFMPEG -1 33 4b992fa8-71f7-49cf-bec4-b2f037963821 HMSMPEG PascalScript Транскодирование с использованием фильтров DirectShow 3 MimeType := HmsGetMimeType('wmv') PascalScript 1 function CheckResult(aResult: Integer; aRaiseException: Boolean = True): Boolean; begin Result := aResult = S_OK; if not Result and aRaiseException then RaiseException(Format('Ошибка (код: %x) - %s', [aResult, SysErrorMessage(aResult)])) end; var iAudioBitrate, iAudioCodecID, iAudioChannels, iAudioStreamNo, iEventCode, iTimeLength, iVideoBitrate: Integer; sAudioDecoder, sAudioMediaMajorType, sAudioMediaSubType, sAudioSource: string; vCurrentPosition: Variant; begin TranscodingResult := False; if mpIsoItem or mpBdItem then begin if not CheckResult(HmsDirectShowAddResourceSource('ResourceSource')) then Exit; if not CheckResult(HmsDirectShowLoadFilter('Filters\MpegSplitter.ax', // MPC - Mpeg Splitter (Gabest) '{DC257063-045F-4BE2-BD5B-E12279C464F0}', 'Source')) then Exit; if not CheckResult(HmsDirectShowConnectPin('ResourceSource', 'Source', 'Output', 'Input')) then Exit; end else if SameText(mpFileType, 'mpegts') then begin if not CheckResult(HmsDirectShowLoadFilter('Filters\MpegSplitter.ax', // MPC - Mpeg Source (Gabest) '{1365BE7A-C86A-473C-9A41-C0A6E82C9FA3}', 'Source')) then Exit; if not CheckResult(HmsDirectShowSetFileName('Source', InputFileName)) then Exit; end else if not CheckResult(HmsDirectShowAddSource(InputFileName, 'Source')) then Exit; iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo = -1 then iAudioStreamNo := 0; HmsDirectShowSelectStream('Source', iAudioStreamNo, MEDIATYPE_Audio, HmsGetStreamID(stAudio, iAudioStreamNo)); iAudioBitrate := mpAudioBitRate; iVideoBitrate := mpVideoBitRate; if iVideoBitrate = 0 then iVideoBitrate := Round((mpWidth * mpHeight) * 0.4 * mpFrameRate); if mpTimeStart <> '' then begin vCurrentPosition := HmsTimeConvert(mpTimeStart) * 10000000; if not CheckResult(HmsDirectShowSetPosition('Source', TIME_FORMAT_MEDIA_TIME, vCurrentPosition)) then Exit; end; iAudioChannels := HmsGetStreamChannels(iAudioStreamNo); iAudioCodecID := HmsGetStreamCodecID(stAudio, iAudioStreamNo); if (iAudioChannels <= 2) and (iAudioCodecID in [CODEC_ID_WMAV1, CODEC_ID_WMAV2]) then sAudioSource := 'Source' else begin sAudioSource := 'Audio Encoder'; sAudioDecoder := ''; if not CheckResult(HmsDirectShowAddFilter('WMAudio Encoder DMO', 'Audio Encoder', '{33D9A761-90C8-11d0-BD43-00A0C911CE86}')) then Exit; if iAudioChannels > 2 then begin if not CheckResult(HmsDirectShowAddFilter('PCM', 'PCM', '{33D9A761-90C8-11d0-BD43-00A0C911CE86}')) then Exit; if HmsDirectShowConnectPin('Source', 'PCM', '', '', MEDIATYPE_Audio) = S_OK then sAudioDecoder := 'PCM' end; if sAudioDecoder = '' then begin sAudioDecoder := 'Audio Decoder'; if iAudioCodecID in [CODEC_ID_WMAV1, CODEC_ID_WMAV2, CODEC_ID_WMALOSSLESS, CODEC_ID_WMAPRO] then begin if not CheckResult(HmsDirectShowAddFilter('WMAudio Decoder DMO', sAudioDecoder)) then Exit; end else begin if not CheckResult(HmsDirectShowAddFilter('ffdshow Audio Decoder', sAudioDecoder)) then Exit; HmsDirectShowSetProperty(sAudioDecoder, IFFDShowBaseT, 2481, 1); // Mixer HmsDirectShowSetProperty(sAudioDecoder, IFFDShowBaseT, 2482, 1); // stereo end; if not CheckResult(HmsDirectShowConnectPin('Source', sAudioDecoder, '', '', MEDIATYPE_Audio)) then Exit; if iAudioChannels > 2 then begin if not CheckResult(HmsDirectShowConnectPin(sAudioDecoder, 'PCM')) then Exit; sAudioDecoder := 'PCM'; end end; if not CheckResult(HmsDirectShowConnectPin(sAudioDecoder, sAudioSource)) then Exit; end; if not CheckResult(HmsDirectShowAddWMWriter(OutputFileName, iVideoBitrate, iAudioBitrate, 'WMWriter')) then Exit; if not CheckResult(HmsDirectShowConnectPin('Source', 'WMWriter', '', 'Video', MEDIATYPE_Video)) then Exit; if not CheckResult(HmsDirectShowConnectPin(sAudioSource, 'WMWriter', '', 'Audio', MEDIATYPE_Audio)) then Exit; if CheckResult(HmsDirectShowPlay) then TranscodingResult := CheckResult(HmsDirectShowWaitComplete(iEventCode)); end. PascalScript Фильмы - WMF -1 20 EFC7A47A5545411DA44BABDC92B86AFB HMSMPEG (CurrentMediaItem <> nil) and (CurrentMediaItem.ItemOrigin.MediaType = mtImage) PascalScript Транскодирование для специальных папок (Цифровое телевидение - DVB, Музыка - Визуализация, Фото - Слайд-шоу) 3 begin 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 := '' end. PascalScript 1 const csSingleTrackTranscodingProfile = 'Музыка (Объединение - Случайный порядок, Повтор)'; csFFMpegParams = '-s %dx%d -r %s -pix_fmt rgb32 -f rawvideo -i "%s" -f wav -i "%s" ' + '-vcodec %s %s%s%s -r %s -acodec %s -b:a %d -ac 2 -f %s "%s"'; function GetAudioCodec(const aAudioCodec: string): string; begin if (aAudioCodec = '') or SameText(aAudioCodec, 'AC3') or SameText(aAudioCodec, 'LPCM') then Result := 'ac3' else if SameText(aAudioCodec, 'AAC') then Result := 'libfaac' else if SameText(aAudioCodec, 'MP3') then Result := 'libmp3lame' else if SameText(aAudioCodec, 'MP2') then Result := 'mp2' else if SameText(aAudioCodec, 'WMA') then Result := 'wmav2' else Result := aAudioCodec end; function GetFileFormat(const aFileFormat: string): string; begin if (aFileFormat = '') or SameText(aFileFormat, 'MPEG (DVD)') then Result := 'dvd' else if Pos('MPEGTS', aFileFormat) > 0 then Result := 'mpegts' else if Pos('ASF', aFileFormat) > 0 then Result := 'asf' else if SameText(aFileFormat, 'MP4') then Result := 'ipod' else if SameText(aFileFormat, 'MPEG1') then Result := 'mpeg' else Result := aFileFormat end; function GetVideoCodec(const aVideoCodec: string): string; begin if (aVideoCodec = '') or SameText(aVideoCodec, 'MPEG2') then Result := 'mpeg2video' else if SameText(aVideoCodec, 'MPEG1') then Result := 'mpeg1video' else if SameText(aVideoCodec, 'WMV') then Result := 'wmv2' else if SameText(aVideoCodec, 'MPEG4') then Result := 'mpeg4' else if SameText(aVideoCodec, 'X264') then Result := 'libx264 -x264opts "fast-pskip=1:rc-lookahead=0:aq_mode=0" -partitions none -sc_threshold 0 -trellis 0 -me_method dia -refs 1 -subq 0 -vprofile baseline -level 30 -bufsize 10000000 ' else Result := aVideoCodec end; function GetMultiThreadSupported(const aVideoCodec: string): Boolean; begin Result := not MatchText(aVideoCodec, ['WMV', 'MPEG1', 'FLV']) end; var eFrameRate: Extended; i, iChildCount, iRotate, iVideoWidth, iVideoHeight, j, iStartIndex, iWait: Integer; iPriorSetBitmap: Variant; FolderItem, SingleTrackItem: THmsScriptMediaItem; ImageBitmap: TBitmap32; sAudioReadPipeName, sAudioWritePipeName, sTranscodingParams, sVideoReadPipeName, sVideoWritePipeName, sFrameRate, sThreadParams, sVideoBitrate, sVideoMinMaxRate: string; VideoSlideShow: THmsVideoSlideShow; VisibleItemList: THmsScriptMediaItemList; begin TranscodingResult := False; if CurrentMediaItem <> nil then begin FolderItem := CurrentMediaItem.ItemParent; if FolderItem <> nil then begin VisibleItemList := FolderItem.GetVisibleChildItems; try iChildCount := VisibleItemList.Count; if iChildCount > 0 then begin iStartIndex := VisibleItemList.IndexOf(CurrentMediaItem.ItemID); if iStartIndex = -1 then iStartIndex := 0; sVideoMinMaxRate := ''; if cfgTranscodingVideoBitrate > 0 then begin sVideoBitrate := '-b:v ' + IntToStr(cfgTranscodingVideoBitrate); if cfgTranscodingVideoMinMaxRate then sVideoMinMaxRate := Format(' -minrate %d -maxrate %d -bufsize %d', [cfgTranscodingVideoBitrate, cfgTranscodingVideoBitrate, HmsTranscodingBufferSize(cfgTranscodingVideoBitrate)]) end else sVideoBitrate := '-q:v 0'; eFrameRate := StrToFloatDef(cfgPhotoSlideShowFrameRate, 25); sFrameRate := FormatFloat('0.###', eFrameRate); iVideoWidth := cfgPhotoSlideShowWidth; iVideoHeight := cfgPhotoSlideShowHeight; SingleTrackItem := HmsGetSingleTrackItem(cfgPhotoSlideShowMusicFolderID); if SingleTrackItem = nil then SingleTrackItem := HmsGetSingleTrackItem(mfAudioAllMusicItemID); if (SingleTrackItem <> nil) and HmsCreateDualPipe(sAudioReadPipeName, sAudioWritePipeName) and HmsPreTranscoding(SingleTrackItem, sAudioWritePipeName, csSingleTrackTranscodingProfile, 'audio/wav;rate=44100;channels=2;bits=16', False) then begin if HmsCreateDualPipe(sVideoReadPipeName, sVideoWritePipeName, 200000000) then begin VideoSlideShow := THmsVideoSlideShow.Create(sVideoWritePipeName, iVideoWidth, iVideoHeight, eFrameRate); try if (cfgTranscodingThreadCount > 1) and GetMultiThreadSupported(cfgTranscodingVideoCodec) then sThreadParams := ' -threads ' + IntToStr(cfgTranscodingThreadCount) else sThreadParams := ''; sTranscodingParams := Format(csFFMpegParams, [ iVideoWidth, iVideoHeight, sFrameRate, sVideoReadPipeName, sAudioReadPipeName, GetVideoCodec(cfgTranscodingVideoCodec), sVideoBitrate, sVideoMinMaxRate, sThreadParams, sFrameRate, GetAudioCodec(cfgTranscodingAudioCodec), cfgTranscodingAudioBitrate, GetFileFormat(cfgTranscodingFileFormat), OutputFileName]); if HmsTranscodingExecute('HMSMPEG', sTranscodingParams, False) then begin VideoSlideShow.Start; try iPriorSetBitmap := 0; ImageBitmap := TBitmap32.Create; try for i := iStartIndex to iChildCount - 1 do begin if not VideoSlideShow.Started then Break; if ImageBitmap.LoadFromFile(VisibleItemList[i].Properties[mpiFilePath]) then begin iRotate := ImageBitmap.Rotate; if iRotate = -1 then iRotate := StrToIntDef(VisibleItemList[i].Properties[mpiRotate], 0); case iRotate of 3: ImageBitmap.Rotate180; 5: ImageBitmap.Rotate270; 6: ImageBitmap.Rotate90; end; if iPriorSetBitmap > 0 then HmsSleep(cfgPhotoSlideShowInterval * 1000 - (HmsGetTickCount - iPriorSetBitmap)); if VideoSlideShow.Started then begin VideoSlideShow.SetBitmap(ImageBitmap, cfgPhotoSlideShowStyles); iPriorSetBitmap := HmsGetTickCount; end end end; if VideoSlideShow.Started then begin HmsSleep(cfgPhotoSlideShowInterval * 1000); ImageBitmap.Clear; VideoSlideShow.SetBitmap(ImageBitmap, 119); HmsSleep(cfgPhotoSlideShowInterval * 1000); TranscodingResult := True end finally ImageBitmap.Free end finally VideoSlideShow.Stop end end finally VideoSlideShow.Free end end end end finally VisibleItemList.Free end end end end. PascalScript Фото (Слайд-шоу) -1 4 27ff5ce9-6a7b-4c1e-83f9-78b8e8de3012 HMSMPEG Нет скрипта 2 0 -i "<INPUT FILE>" -f image2 -vcodec mjpeg "<OUTPUT FILE>" Нет скрипта Фото (основной) -1 -1 7781F9B3836B4361BD7B73A1736236FC IMAGEMAGICK PascalScript 2 MimeType := HmsGetMimeType('jpg') PascalScript 0 const csTranscodingParams = '"%s" -profile "%s" -auto-orient -filter Kaiser -resize "%dx%d>" -format jpeg "<OUTPUT FILE>"'; begin TranscodingParams := Format(csTranscodingParams, [ExtractShortPathName(InputFileName), ExtractFilePath(HmsTranscoderPath('IMAGEMAGICK')) + 'sRGB.icm', cfgTranscodingScreenWidth, cfgTranscodingScreenHeight]); end. PascalScript Фото - ImageMagick -1 0 7760417A8926459EAF9D967E24531AE5 DVPIPER mpDvbItem PascalScript Транскодирование для специальных папок (Цифровое телевидение - DVB, Музыка - Визуализация, Фото - Слайд-шоу) 3 0 var sTranscodingParams: string; begin HmsSleep(500); // Задержка на закрытие предыдущего вызова DVPiper sTranscodingParams := HmsTranscodingProfileParams('Фильмы (основной)') + ' "<OUTPUT FILE>"'; sTranscodingParams := ReplaceStr(sTranscodingParams, '"<INPUT FILE>"', '-'); sTranscodingParams := ReplaceStr(sTranscodingParams, '<HMSMPEG>', '"' + HmsTranscoderPath('HMSMPEG') + '"'); sTranscodingParams := ReplaceStr(sTranscodingParams, '"', '""'); TranscodingParams := mpParentPath + '-command "record(rid(' + mpItemID + '),progid(' + mpProgramID + '),send(prog('#39 + sTranscodingParams + #39')))"'; end. PascalScript Цифровое телевидение (DVB) - DVPiper -1 19 34B0642A7BF446D8A86CAFBEB4012FFF