TSMUXER C:\Program Files (x86)\Home Media Server\Transcoders\tsmuxer.exe http://www.smlabs.net/tsmuxer.html http://www.smlabs.net/tsmuxer.html 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 := 'A_DTS' 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 := 6; 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 := 6; 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 := True; 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 := True; 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 := 6; 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 (5.1) (ci) -1 18 31dade7f-5180-44d5-b08f-3d8ce43ad4f0