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, iSacdSampleRate, 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 else iChannels := mpChannels; iSampleRate := cfgTranscodingLpcmMaxSampleRate; iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample; iSacdSampleRate := (iSampleRate div 44100) * 44100; if iSacdSampleRate < 44100 then iSacdSampleRate := 192000 else if iSacdSampleRate > 352800 then iSacdSampleRate := 192000; if iSampleRate > iSacdSampleRate then iSampleRate := iSacdSampleRate; if bWav then MimeType := cfgTranscodingAudioMimeType else begin MimeType := 'audio/L' + IntToStr(iBitsPerSample); FileExt := 's16be' end; MimeType := MimeType + Format(';rate=%d;channels=%d;bits=%d', [iSampleRate, iChannels, iBitsPerSample]) end else MimeType := cfgTranscodingAudioMimeType; end. PascalScript 1 function GetSampleFmt(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; var eStartSeconds: Extended; iSampleRate, iSacdSampleRate, iChannels, iBitsPerSample: Integer; sSacdReadPipeName, sSacdWritePipeName, sInputFormat, sOutputFormat, sTranscodeSeconds, sTranscoderParams: string; begin TranscodingResult := False; iChannels := mpChannels; if iChannels > cfgTranscodingLpcmMaxChannels then iChannels := cfgTranscodingLpcmMaxChannels else if iChannels < 2 then iChannels := 2 else if iChannels > 2 then iChannels := 6 else iChannels := mpChannels; iSampleRate := cfgTranscodingLpcmMaxSampleRate; iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample; iSacdSampleRate := (iSampleRate div 44100) * 44100; if iSacdSampleRate < 44100 then iSacdSampleRate := 192000 else if iSacdSampleRate > 352800 then iSacdSampleRate := 192000; if iSampleRate > iSacdSampleRate then iSampleRate := iSacdSampleRate; if SameText(Copy(cfgTranscodingAudioMimeType, 1, 7), 'audio/L') then sOutputFormat := Format('s%dbe -ac %d -ar 192000', [iBitsPerSample, iChannels, iSampleRate]) else if Pos('wav', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := Format('wav -acodec pcm_s%dle -ac %d -ar 192000', [iBitsPerSample, iChannels, iSampleRate]) else if Pos('flac', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := Format('flac -sample_fmt %s -ac %d -ar 192000', [GetSampleFmt(iBitsPerSample), iChannels, iSampleRate]) else if Pos('video/mpeg', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := 'mpeg -acodec mp2' else begin iSampleRate := 44100; if Pos('x-ms', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := 'asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100' else sOutputFormat := 'mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100' end; sTranscodeSeconds := ''; eStartSeconds := 0; if mpTimeStart <> '' then begin eStartSeconds := HmsTimeConvertEx(mpTimeStart); if mpTimeLength <> '' then sTranscodeSeconds := ' -t ' + Copy(mpTimeLength, 1, 8); end; if HmsCreateDualPipe(sSacdReadPipeName, sSacdWritePipeName) and HmsTranscodingSacdTrack(sSacdWritePipeName, iSacdSampleRate, eStartSeconds, 10) then begin sInputFormat := Format('-ar %d -f f32le -ac %d ', [iSacdSampleRate, mpChannels]); sTranscoderParams := Format('%s-i "%s"%s %s-f %s "%s"', [sInputFormat, sSacdReadPipeName, sTranscodeSeconds, GetMetadata, sOutputFormat, OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams) end end. PascalScript Музыка - SACD -1 5 25be13da-0964-4444-b104-d3be72e0e271