shpa3api.bas

三汇CTI示例程序源码

'    //数字电话录音
    Public Const E_RCV_DTR_AUDIO = &H33     '//语音通道打开关闭消息
    Public Const E_RCV_DTR_HOOK = &H34      '//通道摘挂机消息
    Public Const E_RCV_DTR_LAMP = &H35      '//灯状态变化消息
    Public Const E_RCV_DTR_FKEY = &H36      '//功能键消息
    Public Const E_RCV_DTR_DKEY = &H37      '//拨号键消息
    Public Const E_RCV_DTR_VOX = &H38       '//VOX消息
    Public Const E_RCV_DTR_DISPLAY = &H39   '//显示消息
    Public Const E_RCV_DTR_DIRECTION = &H3A '//呼叫方向消息
    Public Const E_RCV_DTR_RING = &H3B      '//振铃消息
    

'enum
'{
    Public Const NO_EVENT = 0 ' // 无事件方式
    Public Const EVENT_POLLING = 1 ' //事件轮询
    Public Const EVENT_CALLBACK = 2 ' //事件回调
    Public Const EVENT_MESSAGE = 3 ' //windows消息
'};
Type MESSAGE_INFO_STRUCT
'{
    wEventCode As Integer
    nReference As Long
    dwParam  As Long    '//输出参数
'}MESSAGE_INFO, *PMESSAGE_INFO;
 End Type
Type EVENT_SET_INFO_STRUCT
    dwWorkMode As Long
    lpHandlerParam As Long
    dwOutCondition As Long
    dwOutParamVal As Long
    dwUser As Long
    End Type
'}EVENT_SET_INFO,*PEVENT_SET_INFO;
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@ 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


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ 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 Boolean) 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 Boolean) As Long

Public Declare Function SsmGetBargeinStopPlayFlag 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 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

Public Declare Function SsmGetPlayType Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmPlayIndexString Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszIdxStr As String) As Long
Public Declare Function SsmPlayIndexList Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIdxListLen As Integer, ByRef pwIdxList As Integer) As Long
Public Declare Function SsmStopPlayIndex Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmClearFileList Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmAddToFileList 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 SsmPlayFileList Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStopPlayFileList Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmPlayMem Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                     ByVal nFormat As Long, _
                                                     ByRef pBuf As Byte, _
                                                     ByVal dwBufSize As Long, _
                                                     ByVal dwStartOffset As Long, _
                                                     ByVal dwStopOffset As Long) As Long
                                                     
Public Declare Function SsmGetPlayOffset Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pdwPlayOffset As Long) As Long

Public Declare Function SsmSetStopPlayOffset Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwStopPlayOffset As Long) As Long

Public Declare Function SsmStopPlayMem Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmClearPlayMemList Lib "SHP_A3.dll" () As Long

Public Declare Function SsmAddToPlayMemList Lib "SHP_A3.dll" (ByRef pBuf As Byte, _
                                                              ByVal dwDataLen As Long, _
                                                              ByVal nFormat As Long) As Long

Public Declare Function SsmPlayMemList Lib "SHP_A3.dll" _
                                        (ByVal ch As Long, _
                                         ByRef pMemList As Integer, _
                                         ByVal wMemListLen As Integer) As Long
                                         
Public Declare Function SsmStopPlayMemList Lib "SHP_A3.dll" (ByVal ch As Long) As Long



'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@    RECORD OPERATION   @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmSetRecVolume Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nVolume As Long) As Long
Public Declare Function SsmGetRecType Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmRecToFile Lib "SHP_A3.dll" _
                                    (ByVal ch As Long, _
                                      ByVal pszFileName As String, _
                                      ByVal nFormat As Long, _
                                      ByVal dwStartPos As Long, _
                                      ByVal dwBytes As Long, _
                                      ByVal dwTime As Long, _
                                      ByVal nMask As Long) As Long
                                      
Public Declare Function SsmPauseRecToFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmRestartRecToFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetRecTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetDataBytesToRecord Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStopRecToFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmChkRecToFile Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmRecToMem Lib "SHP_A3.dll" ( _
                                                      ByVal ch As Long, _
                                                      ByVal nFormat As Long, _
                                                      ByRef pBuf As Byte, _
                                                      ByVal dwBufSize As Long, _
                                                      ByVal dwStartOffset As Long) As Long
                                                      
Public Declare Function SsmStopRecToMem Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetRecOffset Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmGetRecAGCSwitch Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetRecAGC Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEnable As Boolean) As Long

Public Declare Function SsmQueryOpRecMixer Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetRecMixer Lib "SHP_A3.dll" ( _
                                                    ByVal ch As Long, _
                                                    ByVal bEnRecMixer As Boolean, _
                                                    ByVal nMixerVolume As Long) As Long
                                                    

Public Declare Function SsmGetRecMixerState Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pnEnRecMixer As Long, ByRef pnMixerVolume As Long) As Long


Public Declare Function SsmSetPrerecord Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEnable As Boolean, ByVal nMode As Long, ByVal wInsertTime As Integer, ByVal nFormat As Long) As Long
Public Declare Function SsmSetTruncateTail Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwTime As Long) As Long
Public Declare Function SsmGetTruncateTailTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetPrerecordState Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pnMode As Long, ByRef pwInsertTime As Long, ByRef pnFormat As Long) As Long


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@   RxDTMF OPERATION   @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmClearRxDtmfBuf Lib "SHP_A3.dll" (ByVal ch As Long) As Long