HMSMPEG hmsmpeg.exe http://www.ffmpeg.org/ HmsMPEG Hmsmpeg.exe http://www.ffmpeg.org/ hmsMPEG hmsmpeg.exe http://www.ffmpeg.org/ 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 > 96000 then iSampleRate := 192000; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 32 then iBitsPerSample := 24; 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 GetSampleFormat(aBitsPerSample: Integer): string; begin if aBitsPerSample > 16 then Result := 's32' else Result := 's24' 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; function GetTranscodingFormat: string; begin if mpInternetItem then Result := cfgTranscodingRadioFileFormat else Result := cfgTranscodingAudioFileFormat end; function GetInputFormat: string; begin if SameText(mpAudioCodec, 'MLP') then Result := '-f mlp ' else Result := '' end; function GetInputFileName: string; begin if mpDvdItem then HmsCreateResourcePipe(Result) else Result := InputFileName; end; procedure GetConfigParameters(var aChannels, aSampleRate, aBitsPerSample: Integer); begin aChannels := mpChannels; if aChannels > cfgTranscodingLpcmMaxChannels then aChannels := cfgTranscodingLpcmMaxChannels else if aChannels < 2 then aChannels := 2; aSampleRate := mpAudioSampleRate; if aSampleRate > cfgTranscodingLpcmMaxSampleRate then aSampleRate := cfgTranscodingLpcmMaxSampleRate else if aSampleRate > 96000 then aSampleRate := 192000; aBitsPerSample := mpBitsPerSample; if aBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then aBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if aBitsPerSample < 32 then aBitsPerSample := 24; end; function ReplaceParams(const aText: string; const aParams: array of Variant): string; var i: Integer; begin Result := aText; i := 0; while i < Length(aParams) do begin Result := ReplaceStr(Result, aParams[i], VarToStr(aParams[i + 1])); Inc(i, 2) end end; function GetOutputFormat: string; var iBitsPerSample, iChannels, iSampleRate: Integer; begin Result := HmsTranscodingFormatParams(GetTranscodingFormat, mtAudio); GetConfigParameters(iChannels, iSampleRate, iBitsPerSample); Result := ReplaceParams(Result, ['[bits_per_sample]', iBitsPerSample, '[channels]', iChannels, '[sample_rate]', iSampleRate, '[sample_format]', GetSampleFormat(iBitsPerSample)]); end; var sTranscodingParams: string; begin sTranscodingParams := Format('%s -i "%s" %s-f %s "%s"', [GetInputFormat, GetInputFileName, GetMetadata, GetOutputFormat, OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams) end. PascalScript Музыка - DVD-Audio -1 7 5F1801449C8248CB82FBB8911B603E39