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 > 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 Result := '-f wav'; if MatchText(mpAudioCodec, ['DCA', 'DTS']) then Result := '-acodec dca ' + Result end; function GetInputFileName: string; var sReadPipeName, sWritePipeName, sTranscoderParams: string; begin Result := ''; 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 Result := sReadPipeName end 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 TranscodingResult := False; sTranscodingParams := Format('%s -i "%s" %s-f %s "%s"', [GetInputFormat, GetInputFileName, GetMetadata, GetOutputFormat, OutputFileName]); TranscodingResult := HmsTranscodingExecute('HMSMPEG', sTranscodingParams) end. PascalScript Музыка - FLAC (24bit) -1 11 0A185870D0904403A92E8DE0D121ED8F