FLAC Transcoders\flac.exe http://flac.sourceforge.net/ http://flac.sourceforge.net/download.html FLAC SameText(ExtractFileExt(mpFilePath), '.flac') 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 < 44100 then iSampleRate := 44100; iBitsPerSample := mpBitsPerSample; if iBitsPerSample > cfgTranscodingLpcmMaxBitsPerSample then iBitsPerSample := cfgTranscodingLpcmMaxBitsPerSample else if iBitsPerSample < 16 then iBitsPerSample := 16; 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 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 bWav, bFlac: Boolean; iSampleRate, iChannels, iBitsPerSample: Integer; sReadPipeName, sWritePipeName, sInputFormat, sOutputFormat, sTranscoderParams: string; begin TranscodingResult := False; bWav := Pos('wav', cfgTranscodingAudioMimeType) > 0; bFlac := Pos('flac', cfgTranscodingAudioMimeType) > 0; if bWav or bFlac 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 sOutputFormat := Format('wav -acodec pcm_s%dle -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) else if bFlac then sOutputFormat := Format('flac -sample_fmt %s -ac %d -ar %d', [GetSampleFmt(iBitsPerSample), iChannels, iSampleRate]) else sOutputFormat := Format('s%dbe -ac %d -ar %d', [iBitsPerSample, iChannels, iSampleRate]) end else begin if Pos('video/mpeg', cfgTranscodingAudioMimeType) > 0 then sOutputFormat := 'mpeg -acodec mp2' else 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; sReadPipeName := '.wav'; sWritePipeName := '.wav'; if HmsCreateDualPipe(sReadPipeName, sWritePipeName) then begin sTranscoderParams := Format('-F -d "%s"', [InputFileName]); if mpTimeStart <> '' then begin sTranscoderParams := sTranscoderParams + ' --skip=' + HmsCueTime(HmsTimeConvert(mpTimeStart)); if mpTimeLength <> '' then sTranscoderParams := sTranscoderParams + ' --until=' + HmsCueTime(HmsTimeConvert(mpTimeStart) + HmsTimeConvert(mpTimeLength)); end; sTranscoderParams := sTranscoderParams + Format(' -f -o"%s"', [sWritePipeName]); if HmsTranscodingExecute('FLAC', sTranscoderParams, False) then begin sInputFormat := '-f wav'; if MatchText(mpAudioCodec, ['DCA', 'DTS']) then sInputFormat := '-acodec dca ' + sInputFormat; sTranscoderParams := Format('%s -i "%s" %s-f %s "%s"', [sInputFormat, sReadPipeName, GetMetadata, sOutputFormat, OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscoderParams) end end end. PascalScript Музыка - FLAC (24bit) -1 0 f7f20853-11ba-4f18-b428-53ff4f1847b9