linux c怎样将buf数据保存为.wav声音文件,操作 Wave 文件(9): 使用 waveOut... 函数播放 wav 文件...

下面是使用低级音频函数播放 wav 的两个方法, 对这个感兴趣的人恐怕很少, 免注释了.

使用窗口接受音频输出设备的消息:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

protected

procedure WndProc(var Message: TMessage); override;

public

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses MMSystem;

//获取文件格式和波形数据的函数

function GetWaveFmtData(path: string; var fmt: TWaveFormatEx; var buf: TBytes): Boolean;

var

hFile: HMMIO;

ckiRIFF,ckiFmt,ckiData: TMMCKInfo;

begin

Result := False;

hFile := mmioOpen(PChar(path), nil, MMIO_READ);

if hFile = 0 then Exit;

ZeroMemory(@ckiRIFF, SizeOf(TMMCKInfo));

ZeroMemory(@ckiFmt, SizeOf(TMMCKInfo));

ZeroMemory(@ckiData, SizeOf(TMMCKInfo));

ckiRIFF.fccType := mmioStringToFOURCC('WAVE', 0);

ckiFmt.ckid := mmioStringToFOURCC('fmt', 0);

ckiData.ckid := mmioStringToFOURCC('data', 0);

ZeroMemory(@fmt, SizeOf(TWaveFormatEx));

mmioDescend(hFile, @ckiRIFF, nil, MMIO_FINDRIFF);

if (ckiRIFF.ckid = FOURCC_RIFF) and (ckiRIFF.fccType = mmioStringToFOURCC('WAVE',0)) and

(mmioDescend(hFile, @ckiFmt, @ckiRIFF, MMIO_FINDCHUNK) = MMSYSERR_NOERROR) and

(mmioRead(hFile, @fmt, ckiFmt.cksize) = ckiFmt.cksize) and

(mmioAscend(hFile, @ckiFmt, 0) = MMSYSERR_NOERROR) and

(mmioDescend(hFile, @ckiData, @ckiRIFF, MMIO_FINDCHUNK) = MMSYSERR_NOERROR) then

begin

SetLength(buf, ckiData.cksize);

Result := (mmioRead(hFile, PAnsiChar(buf), ckiData.cksize) = ckiData.cksize);

end;

mmioClose(hFile, 0);

end;

//------------------------------------------------------------------------------

var

wh: TWaveHdr;

hOut: HWAVEOUT;

fmt: TWaveFormatEx;

buf: TBytes;

procedure TForm1.Button1Click(Sender: TObject);

const

path = 'C:\WINDOWS\Media\Windows XP 启动.wav';

begin

GetWaveFmtData(path, fmt, buf);

wh.lpData := PAnsiChar(buf);

wh.dwBufferLength := Length(buf);

wh.dwBytesRecorded := 0;

wh.dwUser := 0;

wh.dwFlags := 0;

wh.dwLoops := 1;

wh.lpNext := nil;

wh.reserved := 0;

waveOutOpen(@hOut, WAVE_MAPPER, @fmt, Handle, 0, CALLBACK_WINDOW);

waveOutPrepareHeader(hOut, @wh, SizeOf(TWaveHdr));

waveOutWrite(hOut, @wh, SizeOf(TWaveHdr));

end;

procedure TForm1.WndProc(var Message: TMessage);

begin

inherited;

case Message.Msg of

MM_WOM_OPEN: ;

MM_WOM_CLOSE: ;

MM_WOM_DONE: begin

waveOutUnprepareHeader(hOut, @wh, SizeOf(TWaveHdr));

waveOutClose(hOut);

end;

end;

end;

end.

使用回调函数:

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 Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

uses MMSystem;

function GetWaveFmtData(path: string; var fmt: TWaveFormatEx; var buf: TBytes): Boolean;

var

hFile: HMMIO;

ckiRIFF,ckiFmt,ckiData: TMMCKInfo;

begin

Result := False;

hFile := mmioOpen(PChar(path), nil, MMIO_READ);

if hFile = 0 then Exit;

ZeroMemory(@ckiRIFF, SizeOf(TMMCKInfo));

ZeroMemory(@ckiFmt, SizeOf(TMMCKInfo));

ZeroMemory(@ckiData, SizeOf(TMMCKInfo));

ckiRIFF.fccType := mmioStringToFOURCC('WAVE', 0);

ckiFmt.ckid := mmioStringToFOURCC('fmt', 0);

ckiData.ckid := mmioStringToFOURCC('data', 0);

ZeroMemory(@fmt, SizeOf(TWaveFormatEx));

mmioDescend(hFile, @ckiRIFF, nil, MMIO_FINDRIFF);

if (ckiRIFF.ckid = FOURCC_RIFF) and (ckiRIFF.fccType = mmioStringToFOURCC('WAVE',0)) and

(mmioDescend(hFile, @ckiFmt, @ckiRIFF, MMIO_FINDCHUNK) = MMSYSERR_NOERROR) and

(mmioRead(hFile, @fmt, ckiFmt.cksize) = ckiFmt.cksize) and

(mmioAscend(hFile, @ckiFmt, 0) = MMSYSERR_NOERROR) and

(mmioDescend(hFile, @ckiData, @ckiRIFF, MMIO_FINDCHUNK) = MMSYSERR_NOERROR) then

begin

SetLength(buf, ckiData.cksize);

Result := (mmioRead(hFile, PAnsiChar(buf), ckiData.cksize) = ckiData.cksize);

end;

mmioClose(hFile, 0);

end;

//------------------------------------------------------------------------------

var

wh: TWaveHdr;

hOut: HWAVEOUT;

fmt: TWaveFormatEx;

buf: TBytes;

procedure WaveProc(hWave: HWAVE; uMsg, dwInstance, dwParam1, dwParam2: DWORD); stdcall;

begin

case uMsg of

MM_WOM_OPEN: ;

MM_WOM_CLOSE: ;

MM_WOM_DONE: begin

waveOutUnprepareHeader(hWave, PWaveHdr(dwParam1), SizeOf(TWaveHdr));

waveOutClose(hWave);

end;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

const

path = 'C:\WINDOWS\Media\Windows XP 启动.wav';

begin

GetWaveFmtData(path, fmt, buf);

wh.lpData := PAnsiChar(buf);

wh.dwBufferLength := Length(buf);

wh.dwBytesRecorded := 0;

wh.dwUser := 0;

wh.dwFlags := 0;

wh.dwLoops := 1;

wh.lpNext := nil;

wh.reserved := 0;

waveOutOpen(@hOut, WAVE_MAPPER, @fmt, DWORD(@WaveProc), 0, CALLBACK_FUNCTION);

waveOutPrepareHeader(hOut, @wh, SizeOf(TWaveHdr));

waveOutWrite(hOut, @wh, SizeOf(TWaveHdr));

end;

//暂停

procedure TForm1.Button2Click(Sender: TObject);

begin

waveOutPause(hOut);

end;

//继续

procedure TForm1.Button3Click(Sender: TObject);

begin

waveOutRestart(hOut);

end;

end.