X
xebaobei
Unregistered / Unconfirmed
GUEST, unregistred user!
http://www.delphibbs.com/keylife/iblog_show.asp?xid=610
谁帮整理出来一份代码啊.
我调试不成功
这句话我不明白
这个事件我不知道哪里出来的
然后添加两个菜单项,并同两个Action连接,编写Action的OnExecute事件处理函数:
//监控电话
procedure TFrmMain.ActionAnswerExecute(Sender: TObject);
begin
try
ApdTapiDevice.EnableVoice := True;
except
Application.MessageBox('当前设备不支持语音扩展', '错误', MB_OK);
end;
if ApdTapiDevice.EnableVoice then
begin
ApdTapiDevice.AutoAnswer;
LBSysInfo.Items.Add('answer:接听对方电话');
CurrentState := csWaiting;
end
end;
而且我用到
ApdTapiDevice.PlayWaveFile('Greeting.wav');//播放功能提示语音
这个命令的时候一定过不了
错误信息
不支持指定的格式或无法解释指定的格式.请使用能力功能来确定所支持格式.
谁帮解决这两个问题
或把能通过的代码MAIL TO shuizhiqiang@etang.com
或实现类似功能的代码邮件给我,小弟在这里谢谢了
这些是我全部份分,可惜还是那么的少
谁帮整理出来一份代码啊.
我调试不成功
这句话我不明白
这个事件我不知道哪里出来的
然后添加两个菜单项,并同两个Action连接,编写Action的OnExecute事件处理函数:
//监控电话
procedure TFrmMain.ActionAnswerExecute(Sender: TObject);
begin
try
ApdTapiDevice.EnableVoice := True;
except
Application.MessageBox('当前设备不支持语音扩展', '错误', MB_OK);
end;
if ApdTapiDevice.EnableVoice then
begin
ApdTapiDevice.AutoAnswer;
LBSysInfo.Items.Add('answer:接听对方电话');
CurrentState := csWaiting;
end
end;
而且我用到
ApdTapiDevice.PlayWaveFile('Greeting.wav');//播放功能提示语音
这个命令的时候一定过不了
错误信息
不支持指定的格式或无法解释指定的格式.请使用能力功能来确定所支持格式.
谁帮解决这两个问题
或把能通过的代码MAIL TO shuizhiqiang@etang.com
或实现类似功能的代码邮件给我,小弟在这里谢谢了
这些是我全部份分,可惜还是那么的少