VLC %Registry\SOFTWARE\VideoLAN\VLC\InstallDir%\vlc.exe http://www.videolan.org http://www.videolan.org VLC mpInternetItem PascalScript Транскодирование для интернет медиа-ресурсов 3 0 function GetAudioCodec: string; begin if Pos('wmv', cfgTranscodingTvsetMimeType) > 0 then Result := 'wma2' else if (Pos('IPOD', UpperCase(cfgDeviceType)) > 0) or (Pos('LG', UpperCase(cfgDeviceType)) = 1) or SameText(cfgTranscodingAudioCodec, 'AAC') or (Pos('flv', cfgTranscodingTvsetMimeType) > 0) then Result := 'aac' else if Pos('SONY', UpperCase(cfgDeviceType)) > 0 then Result := 'mpga' else Result := 'mpga' end; function GetFileFormat: string; begin if Pos('wmv', cfgTranscodingTvsetMimeType) > 0 then Result := 'asf' else if Pos('flv', cfgTranscodingTvsetMimeType) > 0 then Result := 'ffmpeg{mux=flv}' else if (Pos('MPEGTS', cfgTranscodingFileFormat) > 0) or (Pos('SONY', UpperCase(cfgDeviceType)) > 0) or (Pos('IPOD', UpperCase(cfgDeviceType)) > 0) then Result := 'ts' else Result := 'mpeg1' end; function 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 --no-overlay --ffmpeg-hw -v --directx-use-sysmem --direct3d-hw-blending --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, 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 Интернет-телевидение (Видео без изменения) + HW Acceleration -1 36 d80c47fb-0a0a-4b5e-9d4a-a34669314eb0