shpa3api.vb

三汇CTI示例程序源码

        'English: dialing
        TRK_FAXING     'Chinese: 传真过程中
        'English: faxing...
    End Enum

    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 Int32, 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