shpa3api.bas

三汇CTI示例程序源码

    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
    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 Long, ByRef pwIdxList As Long) 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 Long, ByVal wMemListLen As Long) 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 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 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 Long, 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 Long, 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 Long, ByVal wMaxLen As Long, 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 Long, ByVal wMaxLen As Long, 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 Long, ByVal wMaxLen As Long, 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 Long, ByVal wOffTime As Long) As Long
    Public Declare Function SsmGetTxDtmfPara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwOnTime As Long, ByRef pwOffTime As Long) 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 Long) 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 Long) 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  @@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmQueryOpSendTone Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSendTone Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nToneType As Long) As Long
    Public Declare Function SsmStopSendTone Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSendToneEx Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwOnTime As Long, ByVal dwOffTime As Long) As Long

    Public Declare Function SsmSetTxTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nReq1 As Long, ByVal nVolume1 As Long, ByVal nFreq2 As Long, ByVal nVolume2 As Long) As Long

    Public Declare Function SsmGetTxTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef nReq1 As Long, ByRef nVolume1 As Long, ByRef nFreq2 As Long, ByRef nVolume2 As Long) As Long

    Public Declare Function SsmChkSendTone Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pnToneType As Long) As Long
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@ TONE ANALYZE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

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

    Public Declare Function SsmStartToneAnalyze Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmCloseToneAnalyze Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetOverallEnergy Lib "SHP_A3.dll" (ByVal ch As Long) As Long

    Public Declare Function SsmGetVocFxFlag Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nSelFx As Long, ByVal bClear As Long) As Long

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

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

    Public Declare Function SsmGetRingEchoToneTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetBusyToneEx Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wToneFreq1 As Long, ByVal wToneBW1 As Long, ByVal wToneFreq2 As Long, ByVal wToneBW2 As Long, ByVal dwIsToneRatio As Long) As Long