shpa3api.bas

三汇CTI示例程序源码

Attribute VB_Name = "Shpa3api"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'软件授权协议
'
'1、    杭州三汇信息工程有限公司（以下简称本公司）拥有“本软件及所有附属产品、文件和相关文档”（以下简称本产品）的完全版权。        任何单位和个人在使用前须获得本公司的授权。
'2、    本公司授权符合以下全部条件的单位和个人免费使用本产品：
'    A、        本产品与通过合法销售渠道购买的本公司硬件产品配合使用时；
'    B、        不私自向第三方传播本产品和本产品的任何一部分。
'3、    除符合第2条以外的其他单位和个人需要使用本产品时，必须获得本公司的书面授权。
'4、    获得授权的单位和个人不得转让其获得的授权。
'5、    使用本产品，即表明完全理解本协议的所有条款并全部接受。
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''







'enum{
Public Const ANALOG_CH = 0
Public Const INTER_CH = 1
Public Const USER_CH = 2
Public Const REC_CH = 3
Public Const SS1_CH = 4
Public Const FAX_CH = 5
'} As  Long

'//pending reason
'enum{
Public Const ANALOGOUT_NO_DIALTONE = 0
Public Const ANALOGOUT_BUSYTONE = 1
Public Const ANALOGOUT_ECHO_NOVOICE = 2
Public Const ANALOGOUT_NOANSWER = 3
Public Const ANALOGOUT_TALKING_REMOTE_HANGUPED = 4

Public Const SS1IN_WAIT_SET_KB = 10
Public Const SS1IN_BWD_KB5 = 11
Public Const SS1IN_TALKING_REMOTE_HANGUPED = 12         '// 自动呼入时检测到主叫用户先挂机


Public Const SS1OUT_TALKING_REMOTE_HANGUPED = 20        '// 自动呼出进入通话后检测到被叫用户先挂机
Public Const SS1OUT_NOANSWER = 21                   '// 等待被叫用户摘机超时
Public Const SS1OUT_NOBWDACK = 22                   '// 等待占用应答信号超时
Public Const SS1OUT_DIALING_BWD_HANGUP = 23             '// 收到后向拆线信号
Public Const SS1OUT_BWD_A5 = 24                         '// 收到A=5（空号）信号
Public Const SS1OUT_BWD_KB5 = 25                        '// 收到KB=5（空号）信号
Public Const SS1OUT_BWD_KB2 = 26                        '// 用户“市忙”
Public Const SS1OUT_BWD_KB3 = 27                        '// 用户”长忙“
Public Const SS1OUT_BWD_A4 = 28                         '// 机键拥塞
Public Const SS1OUT_BWD_KB4 = 29                        '// 收到KB=4（机键拥塞）信号
Public Const SS1OUT_TIMEOUT_BWD_A = 30                  '// 等候接收后向A组信号超时
Public Const SS1OUT_TIMEOUT_BWD_A_STOP = 31             '// 等候后向A组信号停发超时
Public Const SS1OUT_TIMEOUT_BWD_KB = 32                 '// 接收后向KB信号超时
Public Const SS1OUT_TIMEOUT_BWD_KB_STOP = 33            '// 等候被叫方停发后向KB信号超时
Public Const SS1OUT_TIMEOUT_CALLERID_BWD_A1 = 34        '// 收到未定义的后向A组信号
Public Const SS1OUT_TIMEOUT_CALLERID_BWD_A1_STOP = 35 '// 发送CALLERID时等候后向A组信号停发超时
Public Const SS1OUT_UNDEFINED_CALLERID_BWD_A = 36   '// 发送主叫号码时收到未定义的后向A组信号
Public Const SS1OUT_UNDEFINED_BWD_A = 37                '// 收到未定义的后向A组信号
Public Const SS1OUT_UNDEFINED_BWD_KB = 38            '// 收到未定义的KB信号
'} As  Long


'enum{
Public Const S_CALL_STANDBY = 0
Public Const S_CALL_PICKUPED = 1
Public Const S_CALL_RINGING = 2
Public Const S_CALL_TALKING = 3
Public Const S_CALL_ANALOG_WAITDIALTONE = 4
Public Const S_CALL_ANALOG_TXPHONUM = 5
Public Const S_CALL_ANALOG_WAITDIALRESULT = 6
Public Const S_CALL_PENDING = 7
Public Const S_CALL_OFFLINE = 8

Public Const S_CALL_WAIT_REMOTE_PICKUP = 9
Public Const S_CALL_ANALOG_CLEAR = 10

Public Const S_CALL_SS1_BLOCK = 20
Public Const S_CALL_SS1_SAYIDLE = 21

Public Const S_CALL_SS1IN_WAIT_PHONUM = 30
Public Const S_CALL_SS1IN_WAIT_FWDSTOP = 31
Public Const S_CALL_SS1IN_WAIT_CALLERID = 32
Public Const S_CALL_SS1IN_WAIT_KD = 33
Public Const S_CALL_SS1IN_WAIT_KDSTOP = 34

Public Const S_CALL_SS1OUT_WAITBWDACK = 40
Public Const S_CALL_SS1OUT_TXPHONENUM = 41
Public Const S_CALL_SS1OUT_WAIT_PHONUM = 42
Public Const S_CALL_SS1OUT_TXCALLERID = 43
Public Const S_CALL_SS1OUT_WAIT_KB = 44
'Public Const S_SPY_STANDBY = 0 '//监控：空闲
'Public Const S_SPY_RCVPHONUM = 105   '  //监控：接收号码
'Public Const S_SPY_RINGING = 2                        '//监控：振铃
'Public Const S_SPY_TALKING = 3     ' //监控：通话

'} As  Long

'enum{
Public Const DIAL_STANDBY = 0
Public Const DIAL_DIALING = 1
Public Const DIAL_ECHOTONE = 2
Public Const DIAL_NO_DIALTONE = 3
Public Const DIAL_BUSYTONE = 4
Public Const DIAL_ECHO_NOVOICE = 5
Public Const DIAL_NOVOICE = 6
Public Const DIAL_VOICE = 7
Public Const DIAL_VOICEF1 = 8
Public Const DIAL_VOICEF2 = 9
Public Const DIAL_NOANSWER = 10
Public Const DIAL_FAILURE = 11
Public Const DIAL_INVALID_PHONUM = 12
'} As  Long


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@ INITIALIZATION OPERATION  @@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmStartCti Lib "SHP_A3.dll" _
                    (ByVal lpSsmCfgFileName As String, _
                    ByVal lpIndexCfgFileName As String) As Long
                    
Public Declare Function SsmCloseCti Lib "SHP_A3.dll" () As Long
Public Declare Sub SsmGetLastErrMsg Lib "SHP_A3.dll" (ByVal szErrMsgBuf As String)

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


Public Declare Function SsmGetAccreditIdEx Lib "SHP_A3.dll" (ByVal nBId As Long) As Long
Public Declare Function SsmGetBoardModel Lib "SHP_A3.dll" (ByVal nBId As Long) As Long
Public Declare Function SsmGetPciSerialNo Lib "SHP_A3.dll" (ByVal nBId As Long) As Long
Public Declare Function SsmSetChState Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nState As Long) As Long

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PLAY OPERATION @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmSetPlayVolume Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nVolume As Long) As Long
Public Declare Function SsmSetDtmfStopPlay Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bDspf As Long) As Long
Public Declare Function SsmGetDtmfStopPlayFlag Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetBargeinStopPlay Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bBispf As Long) As Long
Public Declare Function SsmGetBargeinStopPlayFlag Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStopPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmPlayFile Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                      ByVal pszFileName As String, _
                                                      ByVal nFormat As Long, _
                                                      ByVal dwStartPos As Long, _
                                                      ByVal dwLen As Long) As Long
Public Declare Function SsmStopPlayFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmPausePlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmRestartPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmFastFwdPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmFastBwdPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetPlayTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwTime As Long) As Long
Public Declare Function SsmGetPlayedTimeEx Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetPlayingFileInfo Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pnFormat As Long, ByRef pnTotalTime As Long) As Long
Public Declare Function SsmSetPlayPrct Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwPercentage As Long) As Long
Public Declare Function SsmGetPlayedTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetPlayedPercentage Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetDataBytesToPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmCheckPlay Lib "SHP_A3.dll" (ByVal ch As Long) As Long