HMSMPEG hmsmpeg.exe http://www.ffmpeg.org/ HmsMPEG Hmsmpeg.exe http://www.ffmpeg.org/ hmsMPEG hmsmpeg.exe http://www.ffmpeg.org/ HMSMPEG Нет скрипта 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 0 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; iBitsPerSample, iChannels, iSampleRate: Integer; sInputCodec, sInputFileName, sMimeType, sOutputFormat, sStreamType, sStreamHeader, sStartTime: string; begin if mpDvdItem then HmsCreateResourcePipe(sInputFileName) else begin sInputFileName := '<INPUT FILE>'; if mpInternetItem and (Pos('\\.\pipe\', InputFileName) = 0) then if HmsCreateInternetRadioStream(InputFileName, sInputFileName, sStreamType, sStreamHeader) then if mpFileType = '' then begin sStreamType := LowerCase(sStreamType); if Pos('aac', sStreamType) > 0 then mpFileType := 'aac' else if (Pos('x-ms', sStreamType) > 0) then mpFileType := 'asf' else mpFileType := 'mp3' end end; if SameText(mpAudioCodec, 'dca') then sInputCodec := '-acodec dca ' else if SameText(mpAudioCodec, 'MLP') then sInputCodec := '-f mlp ' else if SameText(mpAudioCodec, 'pcm_s16le') then sInputCodec := Format('-f s16le -ac %d -ar %d ', [mpChannels, mpAudioSampleRate]) else begin if mpFileType <> '' then sInputCodec := '-f "' + mpFileType + '" ' else if mpInternetItem or (Pos('\\.\pipe\', InputFileName) > 0) then sInputCodec := '-f mp3 ' else sInputCodec := ''; end; if mpInternetItem then sMimeType := cfgTranscodingRadioMimeType else sMimeType := cfgTranscodingAudioMimeType; bWav := Pos('wav', sMimeType) > 0; bFlac := Pos('flac', sMimeType) > 0; if bWav or bFlac or SameText(Copy(sMimeType, 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', sMimeType) > 0 then sOutputFormat := 'mpeg -acodec mp2' else if Pos('x-ms', sMimeType) > 0 then sOutputFormat := 'asf -acodec wmav2 -ab 320000 -ac 2 -ar 44100' else if mpInternetItem and SameText(mpFileType, 'mp3') then sOutputFormat := 'mp3 -acodec copy' else sOutputFormat := 'mp3 -acodec libmp3lame -ab 320000 -ac 2 -ar 44100' end; TranscodingParams := Format('%s -i "%s" %s-f %s "<OUTPUT FILE>"', [sInputCodec, sInputFileName, GetMetadata, sOutputFormat]); if not mpInternetItem and (mpTimeStart <> '') then begin sStartTime := '-ss ' + mpTimeStart; if mpTimeLength <> '' then sStartTime := sStartTime + ' -t ' + Copy(mpTimeLength, 1, 8); TranscodingParams := sStartTime + ' ' + TranscodingParams end end. PascalScript Музыка (основной) -1 -1 BB1A7873C552412CB77C1C3125F0AA33