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 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 mpFileType := 'mp3' end; TranscodingParams := Format('-f mp3 -i "%s" %s -f mp3 -acodec copy "<OUTPUT FILE>"', [sInputFileName, GetMetadata]); if not mpInternetItem and (mpTimeStart <> '') then begin sStartTime := '-ss ' + mpTimeStart; if mpTimeLength <> '' then sStartTime := sStartTime + ' -t ' + Copy(mpTimeLength, 1, 8); TranscodingParams := sStartTime + ' ' + TranscodingParams end; //HmsLogMessage(1, 'Музыка MP3'); end. PascalScript Музыка MP3 -1 0 b677af96-ac4e-4d16-b1b6-137b5a3f5624