tmdefines.bas.bak

多路开发文档和源代码例子 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
    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 = 26          ' 麦克风插入事件
Public Const TEvent_MicOut = 27         ' 麦克风拔出事件
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 Const TEvent_SpkIn = 34          ' 耳机插入
Public Const TEvent_SpkOut = 35         ' 耳机拔出

'
Public Declare Sub TV_EnableCryptOfSerial Lib "tma4drv" (ByVal bEnable As Boolean)

'设置检测DTMF的参数
Public Declare Function TV_SetDTMFParam Lib "tma4drv" (ByVal nFlow As Long, ByVal nSlow As Long, ByVal nValue As Double, ByVal nNum As Long) As Double



' 设备启动关闭
Public Declare Function TV_Initialize Lib "tma4drv" () As Long
Public Declare Function TV_InitializeEx Lib "tma4drv" (ByVal mode As Long) As Long
Public Declare Function TV_ReInit Lib "tma4drv" () As Boolean
Public Declare Sub TV_Disable Lib "tma4drv" ()


' 获取事件
Public Declare Function TV_GetEvent Lib "tma4drv" (TV_Event As TEvent) As Long

' 通道查询
'Public Declare Function TV_ChannelType Lib "tma4drv" (ByVal Channel As Long) As Long
Public Declare Function TV_OffHookDetect Lib "tma4drv" (ByVal Channel As Long) As Long
Public Declare Function TV_RingDetect Lib "tma4drv" (ByVal Channel As Long) As Long

' 摘挂机
Public Declare Sub TV_OffHookCtrl Lib "tma4drv" ()
Public Declare Sub TV_HangUpCtrl Lib "tma4drv" ()

' 拨号
Public Declare Sub TV_SetSendDTMFSpeed Lib "tma4drv" (ByVal speed As Long)
Public Declare Function TV_StartDial Lib "tma4drv" (ByVal code As String, ByVal st As Boolean) As Long
Public Declare Function TV_StopDial Lib "tma4drv" () As Long

' 取得来电号码
Public Declare Function TV_ReceiveCallingID Lib "tma4drv" (ByVal Channel As Long, ByVal dhhm As String, ByVal cd As Long) As Long

' 频率
' 检测语音数据的频率
Public Declare Function VS_GetSigFreq Lib "tma4drv" (ByVal ProcessBuf As String, ByVal nBufLen As Long) As Long
' 设置频率
Public Declare Function VS_SetSigFreq Lib "tma4drv" (ByVal freq As Long, ByVal freq1 As Long, ByVal ID As Long) As Boolean


' 播放
'//
'// Function:                        TV_StartPlayFile
'//
'// Description:                     播放语音文件
'//
'// Inputs:
'//
'//       FilePath                   语音文件路径
'//       lSeek                      偏移的时间
'//       lMaxNum                    保留。可输入任意值
'//       bOpenPlay                  是否让喇叭出声
'//       bReplay                    重复播放
'//       bSetVolume                 是否设置音量
'// Return:
'//       -1:                        播放失败
'//       其它:                      返回播放设备通道的ID，用来停止播放标志
'//
'// Notes:                           系统摘机时，语音数据同时被发往通话对方

Public Declare Function TV_StartPlayFile Lib "tma4drv" (ByVal fname As String, ByVal fseek As Long, ByVal num As Long, _
                                                        ByVal bOpenPlay As Boolean, ByVal bReplay As Boolean, ByVal bSetVolume As Boolean, _
                                                        ByVal bTimeout As Long) As Long
Public Declare Function TV_StopPlayFile Lib "tma4drv" (ByVal nDevID As Long) As Long


' 录音
Public Declare Function TV_StartRecordFile Lib "tma4drv" (ByVal fname As String, ByVal fseek As Long, ByVal num As Long) As Long
Public Declare Function TV_StopRecordFile Lib "tma4drv" (nDevID As Long, bClearBusy As Boolean) As Long


' 取得初始化状态
Public Declare Function TV_GetInitState Lib "tma4drv" () As Boolean

'设置接受消息的窗口
Public Declare Sub TV_SetMsgWnd Lib "tma4drv" (ByVal hMsgWnd As Long)

' 设置播放声音的音量，范围为0-100，默认为100最大
Public Declare Sub V_SetVolume Lib "tma4drv" (ByVal nVolume As Long)

' 取得播放声音的音量
Public Declare Function TV_GetVolume Lib "tma4drv" () As Long

' 控制本地话机是否可用
Public Declare Sub TV_EnableTel Lib "tma4drv" (ByVal bEnable As Boolean)

' 本地话机是否可用
Public Declare Function TV_IsTelEnable Lib "tma4drv" () As Boolean

' 本地话机摘挂机状态
Public Declare Function TV_GetTelState Lib "tma4drv" () As Boolean

' 系统摘挂机状态
Public Declare Function TV_GetPcState Lib "tma4drv" () As Boolean

'系统是否处于通话状态
Public Declare Function TV_IsTalkState Lib "tma4drv" () As Boolean

' 是否检测到拨号音
Public Declare Function TV_CheckDialSignal Lib "tma4drv" () As Boolean

' 播放文件时的偏移时间
Public Declare Function TV_PlaySeek Lib "tma4drv" (ByVal nSeekTime As Long) As Long

' 通话时麦克风是否有效
Public Declare Sub TV_EnableMicRec Lib "tma4drv" (ByVal bEnable As Boolean)

' 设置本地话机摘挂机时系统响应速度
Public Declare Sub TV_SetLocalTelSpeed Lib "tma4drv" (ByVal nTelSpeed As Long)

' 检测拨号是否结束
Public Declare Function TV_DialRest Lib "tma4drv" (ByVal Channel As Long) As Long

' 取得板卡序列号
Public Declare Function TV_GetSerial Lib "tma4drv" (ByVal serial As String) As Boolean

' 取得最后一个错误
Public Declare Function TV_GetLastError Lib "tma4drv" () As Long

' 清除事件缓冲
Public Declare Function TV_ClearEvent Lib "tma4drv" (ByVal Channel As Long) As Long

' 是所有接口函数是否可用
Public Declare Sub TV_EnableSoftWare Lib "subid" (ByVal bEnable As Boolean)

' 来电时是否允许话机震铃
Public Declare Sub TV_EnableCallInRing Lib "tma4drv" (ByVal bEnable As Boolean)

' 取得耳机是否已经插入
Public Declare Function TV_GetMicSpkState Lib "tma4drv" () As Boolean

' 取得麦克风是否已经插入
Public Declare Function TV_GetMicRecState Lib "tma4drv" () As Boolean

' 设置检测DTMF的灵敏度
'      iLevel:0                最灵敏
'      iLevel:1                灵敏
'      iLevel:2                中等
'      iLevel:3                低
'      iLevel:4                最低
Public Declare Sub TV_SetCheckDTMFLevel Lib "tma4drv" (ByVal nLevel As Long)

' 设置拨号时的声音大小
Public Declare Sub TV_SetDialVolLevel Lib "tma4drv" (ByVal nLevel As Long)


' 设置下次播放播放文件的音量是否同步于TV_SetDialVolLevel
'      nType:0             使用通用设置的音量
'      nType:1             使用设置的DTMF等级音量
Public Declare Sub V_SetVolumeType Lib "tma4drv" (ByVal nType As Long)

' 设置来检测的忙音个数
Public Declare Sub TV_SetBusyNum Lib "tma4drv" (ByVal nBusyNum As Long)

' 设置来电响铃后静音的长度。标准市话为4000毫秒
Public Declare Sub TV_SetSileLength Lib "tma4drv" (ByVal nSileLength As Long)

' 设置判断对方摘机类型
Public Declare Sub TV_SetOffHookType Lib "tma4drv" (ByVal bType As Boolean)

' 取得正在录音的文件路径
Public Declare Function TV_GetRecordingFilePath Lib "tma4drv" (ByVal FilePath As String) As Boolean