tmdefines.bas

多路开发文档和源代码例子 VB源码 电话开发系统

Attribute VB_Name = "tmdefines"
Public Const CT_INTERNAL = 0    'MIC
Public Const CT_EXTERNAL = 1    'LINE
Public Const CHN = CT_EXTERNAL

Public Const MAX_PLAYBUFSIZE = 4096

Public Const MaxDataLen = 46

Public Type EDATA
    Result As Long
    buf As String * MaxDataLen
End Type

Public Type TEvent
    iChannel  As Integer '两字节
    EventType As Long    ' Type of event
 '   Channel As Long      ' Channel = 0
    Data As EDATA
End Type

Public Const TEvent_InterOffHook = 0    ' 本地话机摘机事件
Public Const TEvent_Ring = 3            ' 某一外线通道振铃事件
Public Const TEvent_DialEnd = 4         ' 拨号结束事件
Public Const TEvent_PlayEnd = 5         ' 放音结束事件
Public Const TEvent_GetChar = 10        ' 收到DTMF码事件
Public Const TEvent_OffHook = 11        ' 拨号后,被叫方摘机事件
Public Const TEvent_HangUp = 12         ' 挂机事件(必须调用设置忙音信号类型及忙音个数,方可产生该事件)
Public Const TEvent_Nobody = 13         ' 拨号后,没人接事件
Public Const TEvent_Busy = 14           ' 检测到忙音事件
Public Const TEvent_InterHangUp = 19    ' 本地话机挂机
Public Const TEvent_MicIn = 41          ' 麦克风插入事件
Public Const TEvent_MicOut = 42         ' 麦克风拔出事件
Public Const TEvent_Dial = 28           ' 检测到拨号音事件
Public Const TEvent_GetInterChar = 29   ' 检测到话机拨号DTMF码
Public Const TEvent_GetFsk = 30
Public Const TEvent_GetDTMF = 32
Public Const TEvent_TelCallOut = 33     '本地电话开始呼出，就是在电话拨号后听到回铃音了


' 设备启动关闭
Public Declare Function TV_Initialize Lib "tma4drvm" () As Long
Public Declare Sub TV_Disable Lib "tma4drvm" ()


' 获取事件
Public Declare Function TV_GetEvent Lib "tma4drvm" (ByVal iChannel As Long, TV_Event As TEvent) As Long


' 摘挂机
Public Declare Function TV_OffHookCtrl Lib "tma4drvm" (ByVal iChannel As Long) As Boolean

Public Declare Function TV_HangUpCtrl Lib "tma4drvm" (ByVal iChannel As Long) As Boolean