Raise Exception.The Audacity error “Audacity Needs lame_enc.dll” shows as a result of a corrupted or missing file from the LAME MP3 encoder. Raise Exception.Create('Encoding Error') Įrror := beDeinitStream(hbeStream, pMP3Buffer^, dwWrite) Position the source file stream at the beginning of the PCM-data: Have it write a VBRHeader, as recommended by Lame, even though it's CBRī := True ī := False Įrror := beInitStream(beConfig, dwSamples, dwSamplesMP3, hbeStream) InputSampleRate := pWaveFormat.nSamplesPerSec ī := 1 ī := SizeOf(beConfig) ī := InputSampleRate ī := InputSampleRate ī := BE_MP3_MODE_STEREO ī := BitRate ī := BitRate Raise Exception.Create('Wave format must be 16bit Stereo.') If (pWaveFormat.nChannels 2) or (pWaveFormat.wBitsPerSample 16) then ('Unable to obtain necessary info from wave file.') If not GetStreamWaveAudioInfo(fs, pWaveFormat, DataSize, DataOffset) then variables to hold the wave info necessary for encodingĭataOffset, DataSize, InputSampleRate: DWORD įs := TFileStream.Create(WaveFile, fmOpenRead or fmShareDenyWrite) įt := TFileStream.Create(MP3File, fmCreate or fmShareDenyWrite) Result := GetWaveAudioInfo(mmIO, pWaveFormat, DataSize, DataOffset) = MMSYSERR_NOERROR) and (ckFormat.cksize >= SizeOf(TWaveFormat)) then Var DataSize, DataOffset: DWORD): Boolean įunction GetWaveFormat(const ckRIFF: TMMCKInfo): Boolean ĬkFormat.ckid := mmioStringToFOURCC('fmt', 0) Result := mmioOpen(nil, MMIO_READWRITE) įunction GetWaveAudioInfo(mmIO: HMMIO var pWaveFormat: PWaveFormatEx Result := Stream.Write(Pointer(lParam1)^, lParam2) įunction OpenStreamWaveAudio(Stream: TStream): HMMIO LpmmIOInfo^.lDiskOffset := Stream.Seek(0, SEEK_CUR) Result := Stream.Read(Pointer(lParam1)^, lParam2) Stream.Seek(lpmmIOInfo^.lDiskOffset, SEEK_SET)
If TObject(lpmmIOInfo^.adwInfo) is TStream then If Assigned(lpmmIOInfo) and (lpmmIOInfo^.adwInfo 0) then Procedure EncodeWavToMP3(WaveFile, MP3File: string BitRate: Integer) įunction mmioStreamProc(lpmmIOInfo: PMMIOInfo uMsg, lParam1, lParam2: DWORD) Procedure beWriteVBRHeader(MP3FileName: pAnsiChar) cdecl Procedure beVersion(var pbeVersion: TBE_Version) cdecl Var pdwOutput: LongWord): BE_ERR cdecl external 'Lame_enc.dll' įunction beCloseStream(hbeStream: THBE_STREAM): BE_ERR cdecl Var pOutput var pdwOutput: LongWord): BE_ERR cdecl external 'Lame_enc.dll' įunction beDeinitStream(hbeStream: THBE_STREAM var pOutput Var dwBufferSize: LongWord var phbeStream: THBE_STREAM): BE_ERR cdecl įunction beEncodeChunk(hbeStream: THBE_STREAM nSamples: LongWord var pSample ZHomePage: Array of Char įunction beInitStream(var pbeConfig: TBE_Config var dwSample: LongWord NVBRQuality: Integer // VBR QUALITY 0.9ītReserved: array of Byte // FUTURE USE, SET TO 0 NQuality: Integer // Quality setting (NORMAL,HIGH,LOW,VOICE)ĭwMpegVersion: DWORD // MPEG-1 OR MPEG-2ĭwPsyModel: DWORD // FUTURE USE, SET TO 0ĭwEmphasis: DWORD // FUTURE USE, SET TO 0īPrivate: LONGBOOL // Set Private Bit (TRUE/FALSE)īCRC: LONGBOOL // Insert CRC (TRUE/FALSE)īCopyright: LONGBOOL // Set Copyright Bit (TRUE/FALSE)īOriginal: LONGBOOL // Set Original Bit (TRUE/FALSE_īWriteVBRHeader: LONGBOOL // WRITE XING VBR HEADER (TRUE/FALSE)īEnableVBR: LONGBOOL // USE VBR ENCODING (TRUE/FALSE) BE_MP3_MODE_STEREO, BE_MP3_MODE_DUALCHANNEL, BE_MP3_MODE_MONOĭwBitrate: DWORD // CBR bitrate, VBR min bitrateĭwMaxBitrate: DWORD // CBR ignored, VBR Max bitrate
Uses System.SysUtils, WinApi.Windows, System.Classes īE_ERR_INVALID_FORMAT_PARAMETERS: LongWord = 2 ĭwSampleRate: DWORD // ALLOWED SAMPLERATE VALUES DEPENDS ON dwMPEGVersionĭwReSampleRate: DWORD // DOWNSAMPLERATE, 0=ENCODER DECIDES If you use it and find something wrong, I'd like to know 🙂 WaveFile needs to be 16-bit Stereo, but that could be adjusted.īitrate is a constant bitrate, for example 128. Usage: EncodeWavToMP3(WaveFile, MP3File, Bitrate) Instead of file-handles I'm using TFileStream, that seems to speed up encoding considerably. figure out the duration of the mp3-audio more easily. Lame suggests writing a VBR-Header to the file, even though it's CBR, I have changed the routine accordingly. Khojasteh ( ) to retrieve the necessary info using WinApi.MMSystem. Since this offset can vary, I have used the utility functions by Kambiz R. Fix: Offset the source into the data-section of the wave-file. This gives a noise at the beginning and can switch the stereo-channels. The encoding starts at the beginning of the wave-file, thereby encoding the header. The file references unnecessary stuff, preventing compilation, easy to fix. The Lame-source comes with a rudimentary Delphi-header-file, but this has several issues, which I have tried to fix: I spent some time to have Delphi interface correctly with the Lame-encoder-DLL, so I thought it a good idea to share the result, since I also could not find any good Delphi-code for this on the net.
0 kommentar(er)
