急求WAV转MP3组件或源码！谢谢！(100)

我正在编写一个录音程序，要求实时录音，实时生成MP3音频文件。我目前已经完成了实时录音，实时生成WAV文件，但是WAV文件太大了，我想实时将WAV文件转换成MP3文件，请大家帮帮忙。

我看了我下的一个媒体转换软件里有个LAME.exe我在cmd里看了,好象是用他转的,你去查查资料!~

转自它处Delphi 实现MP3互相转换 WAV (无需任何第三方dll)function acmDriverEnumCallback(hadid: HACMDRIVERID;
dwInstance: DWORD;
fdwSupport: DWORD): BOOL;
stdcall;var driver : HACMDRIVER;
details : TACMDRIVERDETAILS;
i : integer;
fmtDetails : TACMFORMATTAGDETAILS;
begin
if (fdwSupport and ACMDRIVERDETAILS_SUPPORTF_CODEC) <> 0 then
begin
details.cbStruct := sizeof(TACMDRIVERDETAILS);
acmDriverDetails(hadid, details, 0);
acmDriverOpen(driver, hadid, 0);
for i := 0 to details.cFormatTags - 1do
begin
ZeroMemory(@fmtDetails, sizeof(fmtDetails));
fmtDetails.cbStruct := sizeof(TACMFORMATTAGDETAILS);
fmtDetails.dwFormatTagIndex := i;
acmFormatTagDetails(driver, fmtDetails, ACM_FORMATTAGDETAILSF_INDEX);
if (fmtDetails.dwFormatTag = WAVE_FORMAT_MPEGLAYER3) then
inc(g_mp3Drivers);
end;

acmDriverClose(driver, 0);
end;

Result := true;
end;
function ConverMP3ToRaw(Mp3FileName: pChar;
const Channels, SamplesPerSec, BitsPerSample: Integer): Boolean;
stdcall;var mmr : MMRESULT;
maxFormatSize : DWORD;
waveFormat : PWAVEFORMATEX;
mp3format : PMPEGLAYER3WAVEFORMAT;
g_mp3stream : HACMSTREAM;
fpIn, fpOut : Integer;
rawbufsize : Cardinal;
mp3buf, rawbuf : PBYTE;
mp3streamHead : TACMSTREAMHEADER;
count : Cardinal;
RawFileName : string;
begin
Result := False;
acmDriverEnum(acmDriverEnumCallback, 0, 0);
// try to find an MP3 codec if (g_mp3Drivers = 0) then
Exit;
maxFormatSize := 0;
// find the biggest format size acmMetrics(nil, ACM_METRIC_MAX_SIZE_FORMAT, maxFormatSize);
waveFormat := PWAVEFORMATEX(Pointer(LocalAlloc(LPTR, maxFormatSize)));
// define desired output format waveFormat^.wFormatTag := WAVE_FORMAT_PCM;
if Channels = 1 then
waveFormat^.nChannels := 1;
if Channels = 2 then
waveFormat^.nChannels := 2;
waveFormat^.nSamplesPerSec := SamplesPerSec;
// 44.1kHz waveFormat^.wBitsPerSample := BitsPerSample;
// 16 bits waveFormat^.nBlockAlign := waveFormat^.nChannels * waveFormat^.wBitsperSample div 8;
// 4;
// 4 bytes of data at a time are useful (1 sample) waveFormat^.nAvgBytesPerSec := waveFormat^.nBlockAlign * SamplesPerSec;
// byte-rate waveFormat^.cbSize := 0;
// no more data to follow mp3format := PMPEGLAYER3WAVEFORMAT(Pointer(LocalAlloc(LPTR, maxFormatSize)));
// define MP3 input format mp3format^.wfx.cbSize := MPEGLAYER3_WFX_EXTRA_BYTES;
mp3format^.wfx.wFormatTag := WAVE_FORMAT_MPEGLAYER3;
mp3format^.wfx.nChannels := 2;
mp3format^.wfx.nAvgBytesPerSec := 128 * (1024 div 8);
// not really used but must be one of 64, 96, 112, 128, 160kbps mp3format^.wfx.wBitsPerSample := 0;
// MUST BE ZERO mp3format^.wfx.nBlockAlign := 1;
// MUST BE ONE mp3format^.wfx.nSamplesPerSec := 44100;
// 44.1kHz mp3format^.fdwFlags := MPEGLAYER3_FLAG_PADDING_OFF;
mp3format^.nBlockSize := MP3_BLOCK_SIZE;
// voodoo value #1 mp3format^.nFramesPerBlock := 1;
// MUST BE ONE mp3format^.nCodecDelay := 1393;
// voodoo value #2 mp3format^.wID := MPEGLAYER3_ID_MPEG;
g_mp3stream := nil;
mmr := acmStreamOpen(g_mp3stream, // open an ACM conversion stream nil, // querying all ACM drivers TWAVEFORMATEX(Pointer(mp3format)^), //TWAVEFORMATEX(Pointer(LongInt(@mp3format))), // converting from MP3 waveFormat^, // to WAV nil, // with no filter 0, // or async callbacks 0, // (and no data for the callback) 0 // and no flags );
LocalFree(LongInt(mp3format));
LocalFree(LongInt(waveFormat));
if mmr <> 0 then
Exit;
// MP3 stream converter opened correctly // now, let‘s open a file, read in a bunch of MP3 data, and convert it! // open file fpIn := FileOpen(MP3FileName, fmOpenRead);
if (fpIn = 0) then
Exit;
// find out how big the decompressed buffer will be rawbufsize := 0;
acmStreamSize(g_mp3stream, MP3_BLOCK_SIZE, rawbufsize, ACM_STREAMSIZEF_SOURCE);
// allocate our I/O buffers mp3Buf := PByte(LocalAlloc(LPTR, MP3_BLOCK_SIZE));
rawbuf := pByte(LocalAlloc(LPTR, rawbufsize));
// prepare the decoder ZeroMemory(@mp3streamHead, sizeof(TACMSTREAMHEADER));
mp3streamHead.cbStruct := sizeof(TACMSTREAMHEADER);
mp3streamHead.pbSrc := mp3buf;
mp3streamHead.cbSrcLength := MP3_BLOCK_SIZE;
mp3streamHead.pbDst := rawbuf;
mp3streamHead.cbDstLength := rawbufsize;
acmStreamPrepareHeader(g_mp3stream, mp3streamHead, 0);
// let‘s dump this data off to disk (for debug checking!) RawFileName := ChangeFileExt(MP3FileName, ‘.raw‘);
fpOut := FileCreate(RawFileName);
if (fpOut = 0) then
Exit;
FileSeek(fpIn, 0, 0);
while Truedo
begin
//suck in some MP3 data Count := FileRead(fpIn, mp3buf^, MP3_BLOCK_SIZE);
if (Count <> MP3_BLOCK_SIZE) then
break;
// convert the data mmr := acmStreamConvert(g_mp3stream, mp3streamHead, ACM_STREAMCONVERTF_BLOCKALIGN);
if mmr <> 0 then
begin
MessageBox(0, ‘输入参数错误。请检查你的输入参数。‘, ‘系统提示： ‘, 64);
Exit;
end;

//write the decoded PCM to disk Count := FileWrite(fpOut, rawbuf^, mp3streamHead.cbDstLengthUsed);
if Count <> mp3streamHead.cbDstLengthUsed then
begin
MessageBox(0, ‘输入参数错误。请检查你的输入参数。‘, ‘系统提示： ‘, 64);
Exit;
end;

end;

;// clean up after yourself like a good little boy FileClose(fpIn);
FileClose(fpOut);
acmStreamUnprepareHeader(g_mp3stream, mp3streamHead, 0);
LocalFree(LongInt(rawbuf));
LocalFree(LongInt(mp3buf));
acmStreamClose(g_mp3stream, 0);
Result := True;
end;

ConverMP3ToRaw函数是将MP3转换成RAW(RIFF格式)，添加WAV文件头就是WAV文件了。

New Audio Components for DelphiNew Audio Components (NewAC) are designed to help your Delphi programs to perform different sound-processing tasks. With NewAC you can play audio stored in different formats (wav, Ogg Vorbis, FLAC, Monkey Audio, WavPack, MP3, Windows WMA). The playback is performed in the background, and although you application can control it (stop, pause, move forward and backward, play in a loop) it can perform some other tasks while audio plays. You can play sound not only from external files, but also from sound resources embedded into your program, and, in fact, from any stream providing audio data. But NewAC not only allows you to play sound. You can acquire audio data from such input devices as microphone or CD and encode it into any of the audio formats mentioned above. While playing audio stored in a file or while writing audio content to a file you can manipulate tags supported by the chosen audio format. Apart from all that NewAC can perform some audio-editing tasks, like mixing and concatenating audio streams, selecting fragments of streams, performing samle rate and bits per sample conversions. In other words with NewAC you can perform wide range of audio tasks: from adding audio notifications capability to your program to writing a sophisticated audio-recorder with sound conversion and editing capabilities. And, I just forgot to mention, NewAC is free with source available.Some of the components, like Ogg Vorbis, FLAC, WAVPack require additioan third party DLLs. You cando
wnload them in a precompiled form below.NewAC 1.9 Delphi sources http://symmetrica.net/newac/newac190.zip

谢谢以上几位朋友的帮忙，我想在录音的同时，实时的录制成MP3文件，而不是录制成WAV文件以后，再转换成MP3文件。

请大家帮帮我，谢谢！

menoy

我想在录音的同时，实时的录制成MP3文件，而不是录制成WAV文件以后，再转换成MP3文件。

可以浏览这个网站，里面有符合你的控件。htttp://www.csdelphi.como