AcmIn/AcmOut 语音采集

AcmIn/AcmOut 语音采集

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ACMOut, ACMConvertor, ACMIn;

type
TForm1 = class(TForm)
??? CheckBox1: TCheckBox;
??? Button1: TButton;
??? GroupBox1: TGroupBox;
??? Label1: TLabel;
??? ComboBox1: TComboBox;
??? ComboBox2: TComboBox;
??? Label2: TLabel;
??? procedure FormCreate(Sender: TObject);
??? procedure FormDestroy(Sender: TObject);
??? procedure Button1Click(Sender: TObject);
private
??? n, T: integer;
??? ACMI: TACMIn;
??? ACMO: TACMOut;
??? ACMC: TACMConvertor;
??? procedure BufferFull(Sender: TObject; Data: Pointer; Size: Integer);
??? procedure ShowSize(var Msg: TMessage); message WM_USER;
public
??? { Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ACMO := TACMOut.Create(nil);
ACMC := TACMConvertor.Create;
ACMO.NumBuffers := 0;
ACMO.Open(ACMC.FormatIn);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ACMC.Active := False;
ACMC.Free;
ACMO.Close;
ACMO.Free;
ACMI.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ACMI := TACMIn.Create;
ACMI.OnBufferFull := BufferFull;
if ComboBox2.Text = 'Stereo' then ACMC.FormatIn.Format.nChannels := 2
else ACMC.FormatIn.Format.nChannels := 1;
ACMC.FormatIn.Format.nSamplesPerSec := StrToInt(ComboBox1.Text);
?? ACMC.FormatIn.Format.wBitsPerSample := 16;
ACMC.FormatIn.Format.nBlockAlign := (ACMC.FormatIn.Format.wBitsPerSample div 8) * ACMC.FormatIn.Format.nChannels;
ACMC.FormatIn.Format.nAvgBytesPerSec := ACMC.FormatIn.Format.nSamplesPerSec * ACMC.FormatIn.Format.nBlockAlign;

ACMC.InputBufferSize := ACMC.FormatIn.Format.nAvgBytesPerSec;
ACMI.BufferSize := ACMC.InputBufferSize;
ACMC.Active := True;
ACMI.Open(ACMC.FormatIn);
t := getTickCount;
end;
{声音充满缓冲区在此得到声音数据DATA……}
procedure Tform1.BufferFull(Sender: TObject; Data: Pointer; Size: Integer);
var
NewSize: Integer;
begin
Move(Data^, ACMC.BufferIn^, Size);
NewSize := ACMC.Convert;
Application.ProcessMessages;
inc(n, newsize);
if getTickCount - t >= 1000 then //每秒数据流量
begin
??? SendMessage(Handle, WM_USER, n, 0);
??? t := getTickCount;
??? n := 0;
end;

//自己的方式传输声音数据 ~.WriteBuffer(ACMC.BufferOut^, NewSize);
??? //网络传输数据......//
//接受数据(ACMC.BufferOut^, NewSize)

{声音输出}
if not checkbox1.Checked then ACMO.Play(ACMC.Bufferout^, NewSize);

end;

procedure TForm1.ShowSize(var Msg: TMessage);
begin
Caption := Format('AUDIO %0.1fK/s', [Msg.WParam / 1024]);
end;

end.
///////////////////////

{ WaveFmt.Format.wFormatTag := 49;
?? WaveFmt.Format.nChannels := 1;
?? WaveFmt.Format.nSamplesPerSec := 22050;
?? WaveFmt.Format.nAvgBytesPerSec := 4478;
?? WaveFmt.Format.nBlockAlign := 65;
?? WaveFmt.Format.wBitsPerSample := 0;
?? WaveFmt.Format.cbSize := 2;
?? Wavefmt.Rawdata[18] := 64;
?? Wavefmt.Rawdata[19] := 1;
}