HMSMPEG hmsmpeg.exe http://www.ffmpeg.org/ HmsMPEG Hmsmpeg.exe http://www.ffmpeg.org/ hmsMPEG hmsmpeg.exe http://www.ffmpeg.org/ HMSMPEG PascalScript Транскодирование без перекодирования видео 3 begin FileExt := HmsTranscodingFormatFileExt(cfgTranscodingFileFormat); if FileExt <> '' then begin MimeType := HmsGetMimeType(FileExt); if MimeType = '' then MimeType := HmsTranscodingFormatMimeType(cfgTranscodingFileFormat); end else MimeType := '' end. PascalScript 1 const csFFMpegVideoParams = ' -vcodec %s %s%s -pix_fmt yuv420p'; csFFMpegAudioParams = ' -acodec %s -ab %d -ar %d -ac %d'; csTranscodingInputFile = '-i "<INPUT FILE>" '; procedure AddDecoderParams(var aParams: string; const aCodecName: string; const aParameterName: string); var sDecoderParams: string; begin if aCodecName <> '' then begin sDecoderParams := HmsTranscodingDecoderParams(aCodecName); if sDecoderParams <> '' then aParams := Format('%s %s %s ', [aParams, aParameterName, sDecoderParams]) end end; function GetInputParameters(var aTwoInputFile: Boolean): string; var bPipe: Boolean; iAudioDelay, iStartTime: Integer; sAudioFileName, sVideoFileName, sVideoCodecName, sAudioCodecName, sResourcePipe, sAudioInputParams, sDelayOffset, sProbeParameters, sStartOffset: string; begin sProbeParameters := HmsTranscodingProbeParams; sResourcePipe := ''; bPipe := Pos('\\.\pipe\', InputFileName) > 0; if bPipe then else if (mpIsoItem or mpDvdItem or mpBdItem or mpDvbItem) and HmsCreateResourcePipe(sResourcePipe) then begin InputFileName := sResourcePipe; bPipe := True; end else if mpPodcastItem then begin InputFileName := HmsGetItemProperty(mpiMediaResourceSource); bPipe := Pos('\\.\pipe\', InputFileName) > 0; end; if bPipe then begin sVideoFileName := InputFileName; sAudioFileName := InputFileName; iStartTime := 0; iAudioDelay := 0; end else begin sVideoFileName := HmsGetStreamParam(stVideo, mpVideoStreamNo, siStreamFilePath); sAudioFileName := HmsGetStreamParam(stAudio, mpAudioStreamNo, siStreamFilePath); iStartTime := HmsTimeConvert(mpTimeStart); iAudioDelay := StrToIntDef(HmsGetVideoSettings(vstAudioDelay), 0); end; sVideoCodecName := HmsGetStreamParam(stVideo, mpVideoStreamNo, siStreamCodecName); sAudioCodecName := HmsGetStreamParam(stAudio, mpAudioStreamNo, siStreamCodecName); aTwoInputFile := (iAudioDelay <> 0) or (sAudioFileName <> sVideoFileName); if mpFileType <> '' then Result := '-f "' + mpFileType + '" ' else Result := ''; AddDecoderParams(Result, sVideoCodecName, '-vcodec'); if not aTwoInputFile then AddDecoderParams(Result, sAudioCodecName, '-acodec'); if sVideoFileName <> '' then Result := Result + Format('-i "%s" ', [sVideoFileName]) else if (InputFileName <> '') and (InputFileName[1] = '-') then Result := Result + InputFileName + ' ' else Result := Result + csTranscodingInputFile; if (iStartTime > 0) or (iAudioDelay <> 0) or aTwoInputFile then begin sAudioInputParams := ''; if aTwoInputFile then AddDecoderParams(sAudioInputParams, sAudioCodecName, '-acodec'); if sAudioFileName <> '' then sAudioInputParams := sAudioInputParams + Format('-i "%s" ', [sAudioFileName]) else if (InputFileName <> '') and (InputFileName[1] = '-') then sAudioInputParams := sAudioInputParams + InputFileName + ' ' else sAudioInputParams := sAudioInputParams + csTranscodingInputFile; if iStartTime > 0 then sStartOffset := '-ss ' + HmsTimeFormat(iStartTime) + ' ' else sStartOffset := ''; if iAudioDelay <> 0 then sDelayOffset := '-ss ' + HmsTimeFormat(iStartTime + Trunc(Abs(iAudioDelay))) + ' ' else sDelayOffset := ''; if iAudioDelay > 0 then Result := sStartOffset + Result + sProbeParameters + sDelayOffset + sAudioInputParams else if iAudioDelay < 0 then Result := sDelayOffset + Result + sProbeParameters + sStartOffset + sAudioInputParams else if aTwoInputFile then Result := sStartOffset + Result + sProbeParameters + sStartOffset + sAudioInputParams else Result := sStartOffset + Result end; Result := sProbeParameters + Result end; procedure GetAudioTranscodingParams(const aAudioCodec: string; var aCodecName, aFileFormat: string; var aCodecID, aAudioBitrate, aAudioChannels: Integer); begin aAudioBitrate := cfgTranscodingAudioBitrate; if (cfgTranscodingAudioChannels <> 0) then aAudioChannels := cfgTranscodingAudioChannels; if aAudioCodec = '' then aCodecName := HmsTranscodingEncoderParams('AC3') else aCodecName := HmsTranscodingEncoderParams(aAudioCodec); if SameText(aAudioCodec, 'AAC') then begin aFileFormat := 'adts'; aCodecID := CODEC_ID_AAC; end else if SameText(aAudioCodec, 'MP3') then begin 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 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 aFileFormat := 's16be'; aCodecID := CODEC_ID_PCM_BLURAY; end else if SameText(aAudioCodec, 'DTS') then begin aFileFormat := 'dts'; aCodecID := CODEC_ID_DTS; aAudioChannels := 0 end else if SameText(aAudioCodec, 'WMA') then begin aFileFormat := 'asf'; aCodecID := CODEC_ID_WMAV2; if aAudioChannels > 2 then aAudioChannels := 2; end else begin 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 Result := HmsTranscodingFormatParams(aFileFormat) end; function GetVideoCodec(const aVideoCodec: string): string; begin if aVideoCodec = '' then Result := 'mpeg2video' else Result := HmsTranscodingEncoderParams(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 MatchText(cfgTranscodingFileFormat, ['HLS', 'DASH', 'HDS', 'ISMC']) then Result := MatchText(mpVideoCodec, ['H264']) 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 if SameText(cfgTranscodingFileFormat, 'WEBM') then Result := MatchText(mpVideoCodec, ['VP8', 'VP9']) else if SameText(cfgTranscodingFileFormat, 'MKV') then Result := True 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, bh264_mp4toannexb, bSuccess, bAudioTranscoding, bVideoTranscoding, bTwoInputFile: Boolean; iAudioBitrate, iAudioChannels, iAudioCfgBitrate, iAudioCfgCodecID, iAudioFileNo, iAudioStreamNo, iAudioStreamID, iCodecID, iFrameWidth, iFrameHeight, iWidth, iHeight, iNewHeight, iCropTop, iCropBottom, iPadLeft, iPadTop, iPadRight, iPadBottom, iVideoCodecID, iAudioCodecID, iVideoStreamNo, iVideoStreamID: Integer; sVideoTranscodingParams, sAudioTranscodingParams, sTranscodingParams, sAudioCfgCodecName, sAudioCfgFileFormat, sFrameRate, sVideoBitrate, sVideoMinMaxRate, sFilterParams, sPadParams, sAudioVolume, sDVDAspectRatio: string; begin if HmsGetStreamCount = 0 then HmsRetrieveProperties; bVideoTranscoding := False; bAudioTranscoding := False; iVideoStreamNo := mpVideoStreamNo; if iVideoStreamNo < 0 then iVideoStreamNo := 0; iAudioStreamNo := mpAudioStreamNo; if iAudioStreamNo < 0 then iAudioStreamNo := 0; iVideoCodecID := HmsGetStreamCodecID(stVideo, iVideoStreamNo); iAudioCodecID := HmsGetStreamCodecID(stAudio, iAudioStreamNo); iAudioChannels := HmsGetStreamChannels(iAudioStreamNo); if iAudioChannels < 2 then iAudioChannels := 2; iAudioBitrate := HmsGetStreamBitrate(stAudio, iAudioStreamNo); sTranscodingParams := ''; bVideoTranscoding := False; bAudioTranscoding := False; sAudioVolume := HmsGetVideoSettings(vstAudioVolume); if mp3DVideoType = 0 then begin sDVDAspectRatio := HmsGetVideoSettings(vstDVDAspectRatio); if sDVDAspectRatio = '' then sDVDAspectRatio := mpDVDAspectRatio; if (sDVDAspectRatio <> '') and not MatchText(sDVDAspectRatio, ['16:9', '16/9']) then sDVDAspectRatio := ''; end else sDVDAspectRatio := ''; 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 if sDVDAspectRatio <> '' 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 else if sAudioVolume <> '' 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 := '-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 := '25.000' end; if sFrameRate <> '' then sVideoTranscodingParams := sVideoTranscodingParams + ' -r ' + sFrameRate; iWidth := mpWidth; iHeight := mpHeight; if (iWidth > 0) and (iHeight > 0) then begin sFilterParams := ''; sPadParams := ''; if sDVDAspectRatio <> '' then begin iNewHeight := (Round((iWidth / 16) * 9) div 2) * 2; if iNewHeight < iHeight then begin iCropTop := (iHeight - iNewHeight) div 2; iCropBottom := iHeight - iNewHeight - iCropTop; iHeight := iNewHeight; sFilterParams := Format('crop=in_w:in_h-%d:0:%d', [iCropTop + iCropBottom, iCropTop]) end end; 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 begin sAudioTranscodingParams := Format(csFFMpegAudioParams, [sAudioCfgCodecName, iAudioCfgBitrate, GetAudioSampleRate(cfgTranscodingFileFormat, cfgTranscodingAudioCodec), iAudioChannels]); if sAudioVolume <> '' then sAudioTranscodingParams := sAudioTranscodingParams + ' -af volume=' + sAudioVolume + 'dB'; // :eval=frame end else sAudioTranscodingParams := ' -acodec copy'; bMapStreams := HmsGetStreamCount > 0; sTranscodingParams := GetInputParameters(bTwoInputFile); sTranscodingParams := sTranscodingParams + '-f ' + GetFileFormat(cfgTranscodingFileFormat); sTranscodingParams := sTranscodingParams + sVideoTranscodingParams + sAudioTranscodingParams; if bMapStreams then begin iVideoStreamID := HmsGetStreamID(stVideo, iVideoStreamNo); iAudioStreamID := HmsGetStreamID(stAudio, iAudioStreamNo); if not bTwoInputFile and (iVideoStreamID > 0) and (iAudioStreamID > 0) then sTranscodingParams := sTranscodingParams + Format(' -vstreamid %d -astreamid %d', [iVideoStreamId, iAudioStreamId]) else begin if bTwoInputFile then begin iAudioFileNo := 1 end else begin iAudioFileNo := 0; end; sTranscodingParams := sTranscodingParams + Format(' -map 0:%d -map %d:%d', [HmsGetStreamIndex(stVideo, iVideoStreamNo), iAudioFileNo, HmsGetStreamIndex(stAudio, iAudioStreamNo)]); end end; if (cfgTranscodingLeadTime > 0) and (TranscodingMode = tmNormal) then sTranscodingParams := sTranscodingParams + Format(' -lt %d', [cfgTranscodingLeadTime]); sTranscodingParams := sTranscodingParams + ' "<OUTPUT FILE>"'; // TranscodingParams := sTranscodingParams; TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams, True, InputFileName, OutputFileName) end. PascalScript Фильмы (Ремуксирование) (25fps+dl 6) -1 0 6d153a01-6207-4503-8a0f-6b4cf722e95e