用acm做了一个语音通讯软件,在一个A客户端点击“开始通话”后,另一个B客户端也要点击“开始通话”才能开始语音,
怎样做一个 自动应答,在A点击“开始通话”后就可以直接对B说话???哪位帮忙解决下 谢谢了!
procedure TForm2.btn1Click(Sender: TObject);
var format:pointer;
strs:string;
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ip.db where 名称='''+DBlookupComboBox1.Text+''''); query1.Open;
strs:=Query1.FieldByName('ip').AsString;
lbledtip.Text:=strs;
idc.Host:=lbledtip.Text ; format:=ACMDialog1.OpenDialog;
if format=nil then exit;
idc.Active:=true;
ACMWaveOut1.Open(format);
ACMWaveIn1.Open(format);
Btn1.Enabled:=false;
Btn2.Enabled:=true;end;
怎样做一个 自动应答,在A点击“开始通话”后就可以直接对B说话???哪位帮忙解决下 谢谢了!
procedure TForm2.btn1Click(Sender: TObject);
var format:pointer;
strs:string;
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from ip.db where 名称='''+DBlookupComboBox1.Text+''''); query1.Open;
strs:=Query1.FieldByName('ip').AsString;
lbledtip.Text:=strs;
idc.Host:=lbledtip.Text ; format:=ACMDialog1.OpenDialog;
if format=nil then exit;
idc.Active:=true;
ACMWaveOut1.Open(format);
ACMWaveIn1.Open(format);
Btn1.Enabled:=false;
Btn2.Enabled:=true;end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货