modem打电话

1.一个VB的呼出例子，对开发人员有帮助；
2.测试版本将过期，HANDUP挂机功能在测试版本中限制使用；
3.注意先调用passit ，输入密码后才启动所有功能；
4.双击install.bat安装控件
5.有兴趣也可下载www.fm8u8.8u8.com/center.zip 是编译好的演示程序，包含呼入，呼出，DTMF等功能演示   


========================================================================
                   接口说明(电话中心机，语音modem方式)
1.方法：
 AnswerTp            功能:接电话   参数:无   返回:0成功
 BeginMonitorDtmf    功能:启动监视DTMF   参数:Index线路号(打开时所选择的设备号称)   返回:0成功 
 CallOut             功能:出中继   参数:Index线路号, szNumber电话号码   返回:0成功
 CancelMonitor       功能:取消监视DTMF   参数:Index线路号   返回:0成功
 ClearDTMF           功能:清除DTMF接收缓冲   参数:Index线路号  返回:0成功
 CloseLine           功能:关闭线路   参数:无   返回:0成功
 GetDtmf             功能:取DTMF缓冲区所有数据   参数:无   返回:DTMF缓冲区所有数据
 GetTPNO             功能:取来电号码   参数:无   返回:来电号码
 HandUp              功能:挂电话   参数:无   返回:0成功 
 InitLine            功能:初始化线路   参数:Index线路号   返回:成功设备名;失败为"-1"
 OpenLine            功能:打开线路  参数:Index线路号   返回:0成功     
 PlayStr             功能:向指定设备汉字放音  参数:PlayStr放音字符 Dev设备(为0向线路放音，为1向声卡放音)   返回:0成功     
 PlayTxtFile         功能:向指定设备读txt文件内容 参数:FileName文件名称 Dev(为0向线路放音，为1向声卡放音)    返回:0成功   
 PlayWav             功能:向指定设备放wav文件 参数:FileName文件名称 Dev(为0向线路放音，为1向声卡放音)    返回:0成功   
 RecordWav           功能:从指定设备录制wav文件 参数:Dev(为0向线路录音，为1向声卡录音); FileName文件名称(现在不用,系统按时间进行命名文件)   Time(录音时间秒)  返回:0成功   
 StopPlayWav         功能:停止放语音   参数:无   返回:0成功 
 
 long ChangeCall     功能:呼叫转移  PBX用
 (long Index, LPCTSTR TpNumber);

 long GetDialogicNbus 功能:取得ntwork 的bus总线路号 dialogic用
 long GetDialogicVbus 功能:取得voice的bus总线路号


2.事件
  
      
  DisConnected(long Index)                 线路断开       Index-线路号 
  DtmfIn(long Index, LPCTSTR DTMF)         收到DTMF       Index-线路号  DTMF-DTMF数据(按钮)
  EndPlay()                                单文件放音完毕
  EndPlayAll()                             所有文件放音完毕
  EndRecord()                              录音完毕
  IsConnect(long Index)                    已经建立线路连接
  LineIsFree(long Index)                   线路空闲
  RecordDevOpen(long Index)                录音设备已经打开
  Ring(long RingNumber)                    震铃  RingNumber-次数

vb示范代码，呼出播放语音，文字，和本地TTS播放文字。呼入同样可参照说明写
========================================================================
Private Sub Command1_Click()
 '播放文本
 VoivePhone1.PlayStr Text1.Text, 1
' VoivePhone1.PlayAllisEnglish Text1.Text, 1
End Sub

Private Sub Command2_Click()
'停止播放语音
 VoivePhone1.StopPlayWav
End Sub

Private Sub Command3_Click()
'打开线路，打出电话
 VoivePhone1.OpenLine Combo1.ListIndex
 VoivePhone1.CallOut Combo1.ListIndex, "112"
 
End Sub

'验证通过
Private Sub Form_Load()
VoivePhone1.PassIt "用户密码" '正式版本提供,击活所有功能
Dim i As Long
Dim str As String


'取得设备名称
For i = 0 To 10
 str = VoivePhone1.InitLine(i)
 
 If str <> "" Then
  Combo1.AddItem str
 End If

Next i
End Sub

Private Sub VoivePhone1_DtmfIn(ByVal Index As Long, ByVal DTMF As String)
'接受DTMF
End Sub

'连接后 播放线路语音
Private Sub VoivePhone1_IsConnect(ByVal Index As Long)
 '监视DTMF
 VoivePhone1.BeginMonitorDtmf Combo1.Index
 
 VoivePhone1.PlayStr Text1.Text, 0
End Sub

Private Sub VoivePhone1_LineInitted(ByVal Name As String)
 '消息方式 返回设备名称 Name
End Sub