shpa3api.bas

三汇CTI示例程序源码

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
Public Declare Function SsmSetDTMFStopPlayCharSet Lib "SHP_A3.dll" (ByVal ch As Long, ByVal lpstrDtmfCharSet As String) As Long
Public Declare Function SsmGetDTMFStopPlayCharSet Lib "SHP_A3.dll" (ByVal ch As Long, ByVal lpstrDtmfCharSet As String) As Long
Public Declare Function SsmSetHangupStopPlayFlag Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bHangupStopRecFlag As Long) As Long
''
Public Declare Function SsmStopPlayMemBlock Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetDataBytesPlayed Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetPlayGain Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wGainLevel As Integer) 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 SsmRecToFileEx 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 Integer, _
                                                    ByVal nMask As Long, _
                                                    ByVal bSaveToFileOnBargin As Long, _
                                                    ByVal dwRollbackTime 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 Long) 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 Long, _
                                                    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 Long, 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
Public Declare Function SsmSetDTMFStopRecCharSet Lib "SHP_A3.dll" (ByVal ch As Long, ByVal lpstrDtmfCharSet As String) As Long
Public Declare Function SsmGetDTMFStopRecCharSet Lib "SHP_A3.dll" (ByVal ch As Long, ByVal lpstrDtmfCharSet As String) As Long
Public Declare Function SsmSetHangupStopRecFlag Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bHangupStopRecFlag As Long) As Long
Public Declare Function SsmCheckRecord Lib "SHP_A3.dll" (ByVal ch As Long) As Long

''
Public Declare Function SsmStopRecordMemBlock Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetNoModuleChBusRec Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bBusRec As Long) As Long

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@   RxDTMF OPERATION   @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmEnableRxDtmf Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bRun As Long) As Long
Public Declare Function SsmClearRxDtmfBuf Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetDtmfStr Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long
Public Declare Function SsmGetRxDtmfLen Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGet1stDtmf Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pcDtmf As Byte) As Long
Public Declare Function SsmGet1stDtmfClr Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pcDtmf As Byte) As Long
Public Declare Function SsmGetLastDtmf Lib "SHP_A3.dll" ( _
                                    ByVal ch As Long, ByRef pcDtmf As Byte) As Long
                                    
Public Declare Function SsmSetWaitDtmf Lib "SHP_A3.dll" ( _
                                    ByVal ch As Long, _
                                    ByVal wTimeOut As Integer, _
                                    ByVal wMaxLen As Integer, _
                                    ByVal cEndChar As Byte, _
                                    ByVal bWithEndChar As Long) As Long
                                    
Public Declare Function SsmChkWaitDtmf Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long
Public Declare Function SsmCancelWaitDtmf Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetWaitDtmfEx Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                            ByVal wTimeOut As Integer, _
                                                            ByVal wMaxLen As Integer, _
                                                            ByVal cEndChar As Byte, _
                                                            ByVal bWithEndChar As Long) As Long
''

Public Declare Function SsmSetWaitDtmfExA Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                            ByVal wTimeOut As Integer, _
                                                            ByVal wMaxLen As Integer, _
                                                            ByRef szEndChar As Byte, _
                                                            ByVal bWithEndChar As Long) As Long

'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@ TXDTMF OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmQueryTxDtmf Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long
Public Declare Function SsmQueryTxFlash Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long
Public Declare Function SsmSetTxDtmfPara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wOnTime As Integer, ByVal wOffTime As Integer) As Long
Public Declare Function SsmGetTxDtmfPara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwOnTime As Integer, ByRef pwOffTime As Integer) As Long
Public Declare Function SsmTxDtmf Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszDtmf As String) As Long
Public Declare Function SsmStopTxDtmf Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmChkTxDtmf Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmTxFlash Lib "SHP_A3.dll" (ByVal ch As Long, ByVal Time As Integer) As Long
Public Declare Function SsmChkTxFlash Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetTxFlashCharTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal Time As Integer) As Long
Public Declare Function SsmGetTxFlashCharTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long


'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@ INTER-CH OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmSetLocalFlashTime Lib "SHP_A3.dll" (ByVal nFlashTime As Long) As Long
Public Declare Function SsmSetASDT Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEnAutoSendDialTone As Long) As Long
Public Declare Function SsmGetASDT Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetFlashCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmClearFlashCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmGetHookState Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStartRing Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmStopRing Lib "SHP_A3.dll" (ByVal ch As Long) As Long

Public Declare Function SsmStartRingWithFskCID Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                                ByVal pBuf As String, _
                                                                ByVal dwMaxBit As Long, _
                                                                ByVal dw1stRingOffDelay As Long) As Long
                                                                
Public Declare Function SsmStartRingWithCIDStr Lib "SHP_A3.dll" (ByVal ch As Long, _
                                                                ByVal pBuf As String, _
                                                                ByVal dwLen As Long, _
                                                                ByVal dw1stRingOffDelay As Long) As Long
                                                                
Public Declare Function SsmCheckSendRing Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pnCnt As Long) As Long
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@ SEND TONE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@