shpa3api.vb

三汇CTI示例程序源码

    Public Enum ShMsg

        NO_EVENT ' 无事件方式
        EVENT_POLLING '事件轮询
        EVENT_CALLBACK '事件回调
        EVENT_MESSAGE 'windows消息
    End Enum

    ' 事件码占用16bytes，采用顺序编码（从0开始编码）。
    ' 若采用windows消息机制，windows消息编码：事件码+0x7000(WM_USER)
    Public Enum ShEvent

        '语音识别
        E_PROC_Recognize '0x0000	'语音识别结束事件

        'ISDN呼叫
        E_CHG_ISDNStatus '0x0001	'ISDN底层状态改变事件

        'ss7
        E_RCV_Ss7Msu  '0x0002	'SS7 MSU接收通知事件
        E_CHG_Mtp3State '0x0003	'Mtp3状态改变事件

        '传真
        E_CHG_FaxChState '0x0004	'传真通道传真状态改变事件
        E_CHG_FaxPages  '0x0005	'传真接收/发送页结束事件
        E_PROC_FaxEnd  '0x0006	'传真结束事件

        'PCM线路同步状态
        E_CHG_PcmLinkStatus '0x0007	'PCM线路同步状态改变事件


        '录音通道
        E_CHG_LineVoltage '0x0008	'录音通道线路电压变化事件


        'ss1
        E_RCV_CAS  '0x0009	'接收到的CAS值有变化
        E_RCV_R2  '0x000A	'收到新的R2 值


        'DTMF接收
        E_PROC_WaitDTMF '0x000B	'WaitDTMF任务结束事件
        E_CHG_RcvDTMF  '0x000C

        'DTMF发送
        E_PROC_SendDTMF '0x000D	'发送DTMF任务结束事件


        '发送闪断
        E_PROC_SendFlash '0x000E	'发送闪断任务结束事件


        '放音
        E_PROC_PlayEnd  '0x000F	'放音任务结束
        E_PROC_PlayFile '0x0010	'文件放音进程指示
        E_PROC_PlayFileList '0x0011	'文件列表放音进程指示


        E_PROC_PlayMem  '0x0012	'内存放音进程指示

        '录音
        E_PROC_RecordEnd '0x0013	'录音任务结束
        E_PROC_RecordFile '0x0014	'文件录音任务进展指示
        E_PROC_RecordMem '0x0015	'内存录音任务进展指示


        'FSK发送
        E_PROC_SendFSK  '0x0016	'发送FSK任务结束事件

        'FSK接收
        E_PROC_RcvFSK  '0x0017	'RcvFSK任务结束


        '呼叫控制
        E_CHG_ChState  '0x0018	'通道状态发生变化
        E_PROC_AutoDial '0x0019	'AutoDial任务有进展
        E_CHG_RemoteChBlock '0x001A
        E_CHG_RemotePCMBlock '0x001B
        E_SYS_ActualPickup '0x001C	'外线通道实际摘机
        E_CHG_RingFlag  '0x001D	'铃流电平变化
        E_CHG_RingCount '0x001E	'振铃计数变化
        E_CHG_CIDExBuf  '0x001F	'CID扩展接收缓冲区变化
        E_CHG_RxPhoNumBuf '0x0020	'被叫号码接收缓冲区变化
        E_CHG_PolarRvrsCount '0x0021	'外线通道极性反转
        E_SYS_RemotePickup '0x0022	'模拟电话线相对能量算法检测被叫摘机

        '座席
        E_CHG_FlashCount '0x0023	'flash计数发生变化
        E_CHG_HookState '0x0024	'Hook状态发生变化

        '信号音检测
        E_CHG_ToneAnalyze '0x0025	'信号音分析结果变化事件
        E_OverallEnergy '0x0026
        E_CHG_OvrlEnrgLevel '0x0027	'全频能量标识输出事件
        E_CHG_BusyTone  '0x0028	'忙音计数变化事件
        E_CHG_BusyToneEx '0x0029	'松散忙音变化
        E_CHG_VocFxFlag '0x002A	'单音频信号音电平变化
        E_CHG_ToneValue '0x002B	'信号音电平变化
        E_CHG_RingEchoToneTime '0x002C
        E_CHG_PeakFrq  '0x002D	'PeakFrq有变化
        E_SYS_BargeIn  '0x002E	'检测到BargeIn
        E_SYS_NoSound  '0x002F	'检测到NoSound

        '定时器
        E_SYS_TIMEOUT  '0x0030	'定时器事件

        '信令监控
        E_CHG_SpyState  '0x0031	'被监控电路的接续状态通知事件
        E_CHG_SpyLinkStatus '0x0032	'被监控的PCM链路状态通知事件

        '+++START+++		added by yxh for 2B+D 2004.12.23
        '数字电话录音卡
        E_RCV_DTR_AUDIO '0x0033	'语音通道开关事件
        E_RCV_DTR_HOOK  '0x0034	'摘挂机事件
        E_RCV_DTR_LAMP  '0x0035	'灯状态变化事件
        E_RCV_DTR_FKEY  '0x0036	'Function Key 事件
        E_RCV_DTR_DKEY  '0x0037	'Dial Key 事件
        E_RCV_DTR_VOX  '0x0038	'VOX开关事件
        E_RCV_DTR_DISPLAY '0x0039	'显示事件
        E_RCV_DTR_DIRECTION '0x003a	'呼叫方向事件
        '+++ END +++		added by yxh for 2B+D 2004.12.23
        E_RCV_DTR_RING  '0x003b	'振铃事件		'added by yxh for Siemens 2005.03.09
    End Enum
    'self-defined message
    Public Enum FaxMsg

        E_MSG_FAX_IDLE = 64 '0x0040 	'fax channel gets idle event
        E_MSG_SEND_FAX = 65 '0x0041				'
        E_MSG_RCV_FAX = 66 '0x0042
        E_MSG_HAVETASK = 67 '0x0043				'have a fax task
        E_MSG_OFFLINE = 68 '0x0044				'bus between fax channel and trunk channel is offline
    End Enum

    '-----------------------------------------------------------------------
    ' 自动拨号任务执行情况的常量定义，函数SsmChkAutoDial()的返回值
    '-----------------------------------------------------------------------
    Public Enum AutoDial

        DIAL_STANDBY = 0        ' 没有自动拨号任务
        DIAL_DIALING = 1        ' 正在自动拨号
        DIAL_ECHOTONE = 2       ' 发送完被叫号码后检测到了回铃音
        DIAL_NO_DIALTONE = 3    ' 没有拨号音，自动拨号失败。
        DIAL_BUSYTONE = 4       ' 被叫用户忙，自动拨号结束
        DIAL_ECHO_NOVOICE = 5   ' 模拟外线通道拨号结束并收到回铃音后出现无声，自动拨号结束
        DIAL_NOVOICE = 6        ' 模拟外线通道拨号结束后在指定时间内没有检测到任何声音，自动拨号结束
        DIAL_VOICE = 7          ' 被叫用户摘机，自动拨号结束
        DIAL_VOICEF1 = 8        ' 被叫用户摘机且收到频率F1的声音（模拟外线通道），自动拨号结束
        DIAL_VOICEF2 = 9        ' 被叫用户摘机且收到频率F2的声音（模拟外线通道），自动拨号结束
        DIAL_NOANSWER = 10       ' 无人接听，自动拨号失败
        DIAL_FAILURE = 11        ' 自动拨号失败
        DIAL_INVALID_PHONUM = 12 ' 空号，自动拨号结束
    End Enum



    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@ INITIALIZATION OPERATION  @@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmStartCti Lib "SHP_A3.dll" (ByVal lpSsmCfgFileName As String, ByVal lpIndexCfgFileName As String) As Int32

    Public Declare Function SsmCloseCti Lib "SHP_A3.dll" () As Int32
    Public Declare Sub SsmGetLastErrMsg Lib "SHP_A3.dll" (ByVal szErrMsgBuf As System.Text.StringBuilder)

    Public Declare Auto Function SsmSetEvent Lib "SHP_A3.dll" (ByVal wEvent As Int32, ByVal nReference As Int32, ByVal bEnable As Boolean, ByRef pEventSet As EVENT_SET_INFO) As Int32

    Public Declare Function SsmGetLastErrCode Lib "SHP_A3.dll" () As Int32
    Public Declare Function SsmGetMaxUsableBoard Lib "SHP_A3.dll" () As Int32
    Public Declare Function SsmGetMaxCfgBoard Lib "SHP_A3.dll" () As Int32
    Public Declare Function SsmGetRxDtmfBufSize Lib "SHP_A3.dll" () As Int32
    Public Declare Function SsmGetAccreditId Lib "SHP_A3.dll" (ByVal nBId As Int32) As Int32
    Public Declare Function SsmGetMaxCh Lib "SHP_A3.dll" () As Int32
    Public Declare Function SsmGetChType Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmSetMaxIdxSeg Lib "SHP_A3.dll" (ByVal wMaxIdxSeg As Int32) As Int32
    Public Declare Function SsmLoadIndexData Lib "SHP_A3.dll" (ByVal nSegNo As Int32, ByVal pAlias As String, ByVal nCodec As Int32, ByVal pVocFile As String, ByVal lStartPos As Int32, ByVal lLen As Int32) As Int32

    Public Declare Function SsmFreeIndexData Lib "SHP_A3.dll" (ByVal nSegNo As Int32) As Int32
    Public Declare Function SsmGetTotalIndexSeg Lib "SHP_A3.dll" () As Int32
    Public Declare Function SsmPauseCard Lib "SHP_A3.dll" () As Int32
    Public Declare Function SsmRestartCard Lib "SHP_A3.dll" () As Int32