HMSMPEG hmsmpeg.exe http://www.ffmpeg.org/ HmsMPEG Hmsmpeg.exe http://www.ffmpeg.org/ 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';// --extraintf=logger --verbose=2 --logfile=D:\vlc.log --logmode=text --file-logging'; 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 := '-hwaccel auto '+Format('-i "<INPUT FILE>" -f dvd -vcodec mpeg2video -vb 19500000 -acodec ac3 -ab %d -ar 48000 -threads 4', [cfgTranscodingAudioBitrate]); sTranscodingParams := ReplaceStr(sTranscodingParams, '<HMSMPEG> ', sFileType); sTranscodingParams := ReplaceStr(sTranscodingParams, '<INPUT FILE>', sReadPipeName); sTranscodingParams := sTranscodingParams + ' "' + OutputFileName + '"'; TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True) end end end. PascalScript AceStream (ACE-FFMPEG) + V20000-AC3 + hwaccel -1 41 ffd1f246-3e71-49f6-b08b-b7611e2f7b09