delphi 录音制作 wav 文件-木庄网络博客

本文整理自网络，侵删。
 //使用窗口接受音频设备发出的消息:

unit　Unit1;　
　
interface　
　
uses　
　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Controls,　Forms,　
　Dialogs,　StdCtrls;　
　
type　
　TForm1　=　class(TForm)　
　　Button1:　TButton;　
　　Button2:　TButton;　
　　Button3:　TButton;　
　　procedure　FormCreate(Sender:　TObject);　
　　procedure　Button1Click(Sender:　TObject);　
　　procedure　Button2Click(Sender:　TObject);　
　　procedure　Button3Click(Sender:　TObject);　
　protected　
　　procedure　WndProc(var　m:　TMessage);　override;　
　end;　
　
var　
　Form1:　TForm1;　
　
implementation　
　
{$R　*.dfm}　　
　
uses　MMSystem;　
　
var　
　whIn1,whIn2,　whOut:　TWaveHdr;　
　hWaveIn,hWaveOut:　HWAVE;　
　fmt:　TWaveFormatEx;　
　buf1,buf2,SaveBuf:　TBytes;　
　
procedure　TForm1.FormCreate(Sender:　TObject);　
begin　
　Button1.Caption　:=　'开始录音';　
　Button2.Caption　:=　'停止录音';　
　Button3.Caption　:=　'播放录音';　
end;　
　
//开始录音　
procedure　TForm1.Button1Click(Sender:　TObject);　
begin　
　{指定要录制的格式}　
　fmt.wFormatTag　:=　WAVE_FORMAT_PCM;　
　fmt.nChannels　:=　2;　
　fmt.nSamplesPerSec　:=　22050;　
　fmt.nAvgBytesPerSec　:=　88200;　
　fmt.nBlockAlign　:=　4;　
　fmt.wBitsPerSample　:=　16;　
　fmt.cbSize　:=　0;　
　
　SaveBuf　:=　nil;　{清除已录制的内容}　
　
　if　waveInOpen(@hWaveIn,　WAVE_MAPPER,　@fmt,　Handle,　0,　CALLBACK_WINDOW)　=　0　then　
　begin　
　　SetLength(buf1,　1024*8);　
　　SetLength(buf2,　1024*8);　
　
　　whIn1.lpData　:=　PAnsiChar(buf1);　
　　whIn1.dwBufferLength　:=　Length(buf1);　
　　whIn1.dwBytesRecorded　:=　0;　
　　whIn1.dwUser　:=　0;　
　　whIn1.dwFlags　:=　0;　
　　whIn1.dwLoops　:=　0;　
　　whIn1.lpNext　:=　nil;　
　　whIn1.reserved　:=　0;　
　
　　whIn2.lpData　:=　PAnsiChar(buf2);　
　　whIn2.dwBufferLength　:=　Length(buf2);　
　　whIn2.dwBytesRecorded　:=　0;　
　　whIn2.dwUser　:=　0;　
　　whIn2.dwFlags　:=　0;　
　　whIn2.dwLoops　:=　0;　
　　whIn2.lpNext　:=　nil;　
　　whIn2.reserved　:=　0;　
　
　　waveInPrepareHeader(hWaveIn,　@whIn1,　SizeOf(TWaveHdr));　
　　waveInPrepareHeader(hWaveIn,　@whIn2,　SizeOf(TWaveHdr));　
　　waveInAddBuffer(hWaveIn,　@whIn1,　SizeOf(TWaveHdr));　
　　waveInAddBuffer(hWaveIn,　@whIn2,　SizeOf(TWaveHdr));　
　
　　waveInStart(hWaveIn);　
　end;　
end;　
　
//停止录音　
procedure　TForm1.Button2Click(Sender:　TObject);　
begin　
　waveInStop(hWaveIn);　
　waveInUnprepareHeader(hWaveIn,　@whIn1,　SizeOf(TWaveHdr));　
　waveInUnprepareHeader(hWaveIn,　@whIn2,　SizeOf(TWaveHdr));　
　waveInClose(hWaveIn);　
end;　
　
//播放录音　
procedure　TForm1.Button3Click(Sender:　TObject);　
begin　
　whOut.lpData　:=　PAnsiChar(SaveBuf);　
　whOut.dwBufferLength　:=　Length(SaveBuf);　
　whOut.dwBytesRecorded　:=　0;　
　whOut.dwUser　:=　0;　
　whOut.dwFlags　:=　0;　
　whOut.dwLoops　:=　1;　
　whOut.lpNext　:=　nil;　
　whOut.reserved　:=　0;　
　
　waveOutOpen(@hWaveOut,　WAVE_MAPPER,　@fmt,　Handle,　0,　CALLBACK_WINDOW);　
　waveOutPrepareHeader(hWaveOut,　@whOut,　SizeOf(TWaveHdr));　
　waveOutWrite(hWaveOut,　@whOut,　SizeOf(TWaveHdr));　
end;　
　
procedure　TForm1.WndProc(var　m:　TMessage);　
var　
　ordLen:　Integer;　
begin　
　inherited;　
　case　m.Msg　of　
　　{处理录音消息}　
　　MM_WIM_OPEN:　;　　　{此消息只携带了设备句柄}　
　　MM_WIM_CLOSE:　;　　{此消息只携带了设备句柄}　
　　MM_WIM_DATA:　begin　{此消息携带了设备句柄和　WaveHdr　指针(LParam)}　
　　　{保存录制的数据}　
　　　ordLen　:=　Length(SaveBuf);　
　　　SetLength(SaveBuf,　ordLen　+　PWaveHdr(m.LParam).dwBytesRecorded);　
　　　CopyMemory(Ptr(DWORD(SaveBuf)+ordLen),　PWaveHdr(m.LParam).lpData,　PWaveHdr(m.LParam).dwBytesRecorded);　
　　　{继续录制}　
　　　waveInAddBuffer(hWaveIn,　PWaveHdr(m.LParam),　SizeOf(TWaveHdr));　
　　end;　
　
　　{处理播放消息}　
　　MM_WOM_OPEN:　;　　　{此消息只携带了设备句柄}　
　　MM_WOM_CLOSE:　;　　{此消息只携带了设备句柄}　
　　MM_WOM_DONE:　begin　{此消息携带了设备句柄和　WaveHdr　指针(LParam)}　
　　　waveOutUnprepareHeader(hWaveOut,　PWaveHdr(m.LParam),　SizeOf(TWaveHdr));　
　　　waveOutClose(hWaveOut);　
　　end;　
　end;　
end;　
　
end.
delphi 录音制作 wav 文件

相关推荐

评论
