本文實例講述了delphi製作wav檔案的方法。分享給大家供大家參考。具體如下：
這裡delphi用waveIn...函數製作wav文件
具體代碼如下：
//使用視窗接受音訊裝置所發出的訊息:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: 藝術; Button ; 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 implementment. } uses MMSystem; var whIn1,whIn2, whOut: TWaveHdr; hWaveIn,hWaveOut: HWAVE; fmt: TWaveFormatEx; buf1,buf2,SaveBuf: TBytes; procedure TForm1.FormCreate(Sender: TObject); begin Button1.Caption; := '停止錄音'; Button3.Caption := '播放錄音'; end; //開始錄音procedure TForm1.Button1Click(Sender: TObject); begin {指定要錄製的格式} fmt.wFormatTag := WAVE_FORMAT_PCM; fmt.nChannels := 2; fSecmt.nSamplesPer :== 22050; fmt.nAvgBytesPerSec := 88200; fmt.nBlockAlign := 4; fmt.wBitsPerSample := 16; fmt.cbSize := 0; SaveBuf := nil; {清除已錄製的內容} if waveInOpen(@hWaveIn, WAVE_MAPPER, @fmt, Handle, 0, INDCAL, INDCALOW) = 0 then begin SetLength(buf1, 1024*8); SetLength(buf2, 1024*8); whIn1.lpData := PAnsiChar(buf1); whIn1.dwBufferLength := Length(buf1); whIn1.dwBytesRecorded := 0; wh1.Userf1); whIn1.dwBytesRecorded := 0; wh1.User; dwFlags := 0; whIn1.dwLoops := 0; whIn1.lpNext := nil; whIn1.reserved := 0; whIn2.lpData := PAnsiChar(buf2); whIn2.dwBufferLength := Length(buf2); whIn2.dwBytesRecorded : 0 0; whIn2.dwFlags := 0; whIn2.dwLoops := 0; whIn2.lpNext := nil; whIn2.reserved := 0; waveInPrepareHeader(hWaveIn, @whIn1, SizeOf(TWaveHdr)); waveInPrepareHeader(hWaveIndInavefInavefInnaveS; , @whIn1, SizeOf(TWaveHdr)); waveInAddBuffer(hWaveIn, @whIn2, SizeOf(TWaveHdr)); waveInStart(hWaveIn); end; end; //停止錄音procedure TForm1.Button2Click(Sender); end; end; //停止錄音procedure TForm1.Button2Click(Senders); ; waveInUnprepareHeader(hWaveIn, @whIn1, SizeOf(TWaveHdr)); waveInUnprepareHeader(hWaveIn, @whIn2, SizeOf(TWaveHdr)); waveInClose(hWaveIn); end; //播放錄音procedure TForm1.Button3Click(Sender.Out); (SaveBuf); whOut.dwBufferLength := Length(SaveBuf); whOut.dwBytesRecorded := 0; whOut.dwUser := 0; whOut.dwFlags := 0; whOut.dwLoops := 1; whOut.lpNext := nil; whOut.reservedLoops : 0; waveOutOpen(@hWaveOut, WAVE_MAPPER, @fmt, Handle, 0, CALLBACK_WINDOW); waveOutPrepareHeader(hWaveOut, @whOut, SizeOf(TWaveHdr)); waveOutWrite(hWaveOut, @whOut, SizeOf(TWaveHdr)); end; procedure TForm1.WhOutage; ordLen: Integer; begin inherited; case m.Msg of {處理錄音訊息} MM_WIM_OPEN: ; {此訊息只攜帶了裝置句柄} MM_WIM_CLOSE: ; {此訊息只攜帶了裝置句柄} MM_WIM_DATA: begin {此訊息攜帶了裝置句柄和WaveHdrdrdrdr 指標( LParam)} {儲存錄製的資料} ordLen := Length(SaveBuf); SetLength(SaveBuf, ordLen + PWaveHdr(m.LParam).dwBytesRecorded); CopyMemory(Ptr(DWORD(SaveBuf)+ordLen), PWaveHdr(m.LParam).lpData, PWaveHdrdr(m.Ly). } 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程式設計有幫助。