Question

百分求delphi无控件采集麦克风音频用UDP发出和接收的代码

一个小东西搞得我头昏脑涨，大侠们救救我呀！
Delphi里面不要用控件采集麦克风的声音，注意，不要任何控件，ACM也不要。
可以同时用idUDPserver和idUDPclient发送和接收，两边都用麦克风采集音频，数据发送不用压缩，也不要编码，原始音频流就可以。
接收到的数据用一个API播放，好像是DirectSound吧！
对高手来说，应该很简单的。
谢谢了！

Answer 1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,mmsystem, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button4: TButton;
SaveDialog1: TSaveDialog;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('close p1',0,0,0);
mciSendStringA('open new type WAVEAudio alias p1',0,0,0);
mciSendString('record p1',0,0,0);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('stop p1',0,0,0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
mciSendString('play p1',0,0,0);
end;

procedure TForm1.Button4Click(Sender: TObject);
var s:string;
begin
if SaveDialog1.Execute then
s:='save p1 '+SaveDialog1.filename;
mciSendString(pchar(s),0,0,0);
end;

end.