RSS订阅 | 匿名投稿
您的位置:网站首页 > 媒体 > 正文

delphi 录音制作 wav 文件

作者:admin 来源: 日期:2013/11/12 11:08:01 人气: 标签:

//使用窗口接受音频设备发出的消息: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.

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: