如何用ACMIn和ACMOut实现语音传输，给个例子(100分)

1.昨天下载了ACM控件，但不会使用。请问各位大侠：

2.如何用ACMIn和ACMOut实现语音传输，给个例子?

先谢了!

对不起，忘记告诉了我的Email: wqlem@km169.net，还请大侠们告知方法再谢了。

那里有ACM控件下载？谢谢

它能实现语音传输吗？我也需要这样的东西。

Hubdog的例子不是写的很清楚吗，用起来也很简单
ACMConvertorReg.pas文件就是用来注册的啊

to 烂泥:
不好意思，前段时间到专线出差，没有电脑可用，不能即时回复。
现在的问题是:
ACMIn,ACMOut和ACMConvertor已经注册。但不会用:
例如如何录制？如何存储? 如何播放? 即如何获取?再存储？再另外的电脑上再播放?

你说的URL进不去，能否详细些?再谢了!!!

to 烂泥:
不好意思，你给的TAudio是录音和播放用的，这个用TMediaPlay也可以,我试过了，
每隔1秒录入一段并存放到文件中再传输到另外的电脑上播放，效果不大好，中间
会“打隔”。

哎！不讨论了，给你50分吧！

type
TForm1 = class(TForm)
ACMDialog1: TACMDialog;
ACMWaveIn1: TACMWaveIn;
ACMWaveOut1: TACMWaveOut;
Button1: TButton;
Button2: TButton;
UDPSock1: TUDPSock;
Edit1: TEdit;
Wallpaper1: TWallpaper;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure ACMWaveIn1Data(data: Pointer;
size: Integer);
procedure UDPSock1Recv(data: PChar;
delka: Integer;
host: String);
private
{ Private declarations }
public
{ Public declarations }
end;


var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var formatointer;
begin

UDPsock1.RemoteIP:=edit1.text;
format:=ACMDialog1.OpenDialog;
if format=nil then
exit;
UDPSock1.Start;
ACMWaveOut1.Open(format);
ACMWaveIn1.Open(format);
Button1.Enabled:=false;
Button2.Enabled:=true;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin

ACMWaveIn1.Close;
ACMWaveOut1.Close;
UDPSock1.Stop;
Button1.Enabled:=true;
Button2.Enabled:=false;
end;


procedure TForm1.ACMWaveIn1Data(data: Pointer;
size: Integer);
begin

UDPSock1.Send(data,size);
end;


procedure TForm1.UDPSock1Recv(data: PChar;
delka: Integer;
host: String);
begin

ACMWaveOut1.PlayBack(data,delka);
end;

有用ACM函数（不是控件）的源代码吗？
有的话，请给我一份，不胜感激！

email: LionEagle@263.net

我这里有Acm的例子 .想要的给我<a href="mailto:coeeftp@nuaa.edu.cn">写信.</a>

>>

不讨论了，我想休息一会儿!!!

多人接受答案了。

to firewing
例子里用到的UDPsock哪里有啊，我找了很久都没找到，可以给我发一个吗，谢谢了
我的mail: watter@sina.com

各位，我这里执行到
ACMWaveIn1.Open(format);
就会出错：program create record handle32

给你一个例子：
hixj@mail.jxptt.zj.cn

to firewing
例子里用到的UDPsock哪里有啊，我找了很久都没找到，可以给我发一个吗，谢谢了
我的mail: robin_lo@163.com

另一个ACM控件，我加了NMUDP的例子，在局域网里可以实现广播功能！

徐军:
可以给我发一份那个acm控件吗？
g622@xanet.edu.cn

徐军:
可以给我发一份那个acm控件吗？
robin_lo@163.com