shpa3api.bas

三汇CTI示例程序源码

    Public Declare Function SsmSetIsDialToneDtrTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIsDialToneDtrTime As Long) As Long

    Public Declare Function SsmSetBusyTonePeriod Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wBusyTonePeriod As Long) As Long

    Public Declare Function SsmSetIsBusyToneDtrCnt Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIsBusyToneDtrCnt As Long) As Long

    Public Declare Function SsmSetRingEchoTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wRingEchoOnTime As Long, ByVal wRingEchoOffTime As Long) As Long

    Public Declare Function SsmSetVoiceFxPara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wSelFx As Long, ByVal wFx As Long, ByVal wFxBW As Long, ByVal dwIsVocFxRatio As Long, ByVal wIsVocFxDtrTime As Long) As Long

    Public Declare Function SsmSetVoiceOnDetermineTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIsVocDtrTime As Long) As Long

    Public Declare Function SsmSetMinVocDtrEnergy Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwMinVocDtrEnergy As Long) As Long

    Public Declare Function SsmGetTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwToneFreq1 As Long, ByRef pwToneBW1 As Long, ByRef pwToneFreq2 As Long, ByRef pwToneBW2 As Long, ByRef pdwIsToneRatio As Long) As Long

    Public Declare Function SsmGetIsDialToneDtrTime Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwIsDialToneDtrTime As Long) As Long

    Public Declare Function SsmGetBusyTonePeriod Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwBusyTonePeriod As Long) As Long

    Public Declare Function SsmGetIsBusyToneDtrCnt Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwIsBusyToneDtrCnt As Long) As Long

    Public Declare Function SsmGetRingEchoTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwRingEchoOnTime As Long, ByRef pwRingEchoOffTime As Long) As Long

    Public Declare Function SsmGetIsNoVocDtrmTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pwIsNoVocDtrmTime As Long) As Long
    Public Declare Function SsmGetVoiceFxPara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wSelFx As Long, ByRef pwFx As Long, ByRef pwFxBW As Long, ByRef pdwIsVocFxRatio As Long, ByRef pwIsVocFxDtrTime As Long) As Long

    Public Declare Function SsmGetVoiceOnDetermineTime Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwIsVocDtrTime As Long) As Long
    Public Declare Function SsmGetMinVocDtrEnergy Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pdwMinVocDtrEnergy As Long) As Long


    Public Declare Function SsmQueryOpPeakFrqDetect Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetPeakFrqDetectBW Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nPeakBW As Long) As Long
    Public Declare Function SsmGetPeakFrqDetectBW Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetPeakFrqEnergy Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetPeakFrq Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetRecPlayEnergy Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwMask As Long) As Long

    Public Declare Function SsmStart2ndToneAnalyzer Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEn As Long) As Long
    Public Declare Function SsmGet2ndToneAnalyzerState Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSet2ndTonePara 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
    Public Declare Function SsmGet2ndTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwToneFreq1 As Long, ByRef pwToneBW1 As Long, ByRef pwToneFreq2 As Long, ByRef pwToneBW2 As Long, ByRef pdwIsToneRatio As Long) As Long
    Public Declare Function SsmGet2ndToneAnalyzeResult Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmClear2ndToneAnalyzeResult Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGet2ndBusyToneLen Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGet2ndBusyToneCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSet2ndBusyTonePeriod Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wBusyTonePeriod As Long) As Long
    Public Declare Function SsmGet2ndBusyTonePeriod Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwBusyTonePeriod As Long) As Long
    Public Declare Function SsmSet2ndIsBusyToneDtrCnt Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIsBusyToneDtrCnt As Long) As Long
    Public Declare Function SsmGet2ndIsBusyToneDtrCnt Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwIsBusyToneDtrCnt As Long) As Long
    Public Declare Function SsmSet2ndIsDialToneDtrTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIsDialToneDtrTime As Long) As Long
    Public Declare Function SsmGet2ndIsDialToneDtrTime Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwIsDialToneDtrTime As Long) As Long
    Public Declare Function SsmSet2ndRingEchoTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wRingEchoOnTime As Long, ByVal wRingEchoOffTime As Long) As Long
    Public Declare Function SsmGet2ndRingEchoTonePara Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pwRingEchoOnTime As Long, ByRef pwRingEchoOffTime As Long) As Long
    Public Declare Function SsmSetBusyTonePeriodEx Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nType As Long, ByVal wMax As Long, ByRef pwPeriod As Long) As Long
    Public Declare Function SsmGetBusyTonePeriodEx Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nType As Long, ByRef pwPeriod As Long) As Long
    Public Declare Function SsmGetToneValue Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetToneValue Lib "SHP_A3.dll" (ByVal ch As Long, ByVal value As Long) As Long
    Public Declare Function SsmGetOverallEnergyAllCh Lib "SHP_A3.dll" (ByVal nBeginCh As Long, ByVal nChNum As Long, ByRef pdwEnergyTable As Long) As Long

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@ BARGEIN OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmSetNoSoundDtrmTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal dwIsNoSoundDtrTime As Long) As Long

    Public Declare Function SsmSetIsBargeInDtrmTime Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wIsBargeInDtrmTime As Long) As Long

    Public Declare Function SsmSetBargeInSens Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nBargeInSens As Long) As Long

    Public Declare Function SsmGetNoSoundTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetNoSoundDtrmTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetIsBargeInDtrmTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetBargeInSens Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmDetectBargeIn Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmDetectNoSound Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetCalleeHookDetectP Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wMulti As Long, ByVal wValidTime As Long) As Long
    Public Declare Function SsmGetCalleeHookDetectP Lib "SHP_A3.dll" (ByVal ch As Long, ByRef wMulti As Long, ByRef wValidTime As Long) As Long
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@ RING DETECT OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmQueryOpRingDetect Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetRingFlag Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetRingCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmClearRingCount Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmChkOpCallerId Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetCallerId Lib "SHP_A3.dll" (ByVal ch As Long, ByVal szCallerId As String) As Long  'String) As long
    Public Declare Function SsmGetCallerIdEx Lib "SHP_A3.dll" (ByVal ch As Long, ByVal szCallerIdEx As String) As Long
    Public Declare Function SsmClearCallerId Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmClearCallerIdEx Lib "SHP_A3.dll" (ByVal ch As Long) As Long


    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@ CALL OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmPickup Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmCheckActualPickup Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetPickupNow Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bFlag As Long) As Long
    Public Declare Function SsmHangup Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmAutoDial Lib "SHP_A3.dll" (ByVal ch As Long, ByVal szPhoNum As String) As Long
    Public Declare Function SsmChkAutoDial Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetAutoDialFailureReason Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetBlockReason Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetChState Lib "SHP_A3.dll" (ByVal ch As Long) As Long

    Public Declare Function SsmSetPlayDest Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nSelDest As Long) As Long
    Public Declare Function SsmSetRecBack Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nRecBack As Long) As Long

    Public Declare Function SsmSearchIdleCallOutCh Lib "SHP_A3.dll" (ByVal wSearchMode As Long, ByVal dwPrecedence As Long) As Long
    Public Declare Function SsmSetAutoCallDirection Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEnAutoCall As Long, ByVal nDirection As Long) As Long
    Public Declare Function SsmGetAutoCallDirection Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pnDirection As Long) As Long
    Public Declare Function SsmAppendPhoNum Lib "SHP_A3.dll" (ByVal ch As Long, ByVal szPhoNum As String) As Long
    Public Declare Function SsmGetPendingReason Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetChStateKeepTime Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetPhoNumStr Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszPhoNum As String) As Long
    Public Declare Function SsmGetPhoNumLen Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGet1stPhoNumStr Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszPhoNum As String) As Long
    Public Declare Function SsmGet1stPhoNumLen Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmEnableAutoSendKB Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEnable As Long) As Long
    Public Declare Function SsmGetAutoSendKBFlag Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetKB Lib "SHP_A3.dll" (ByVal ch As Long, ByVal btSigKB As Byte) As Long
    Public Declare Function SsmSetKD Lib "SHP_A3.dll" (ByVal ch As Long, ByVal btSigKD As Byte) As Long
    Public Declare Function SsmSetKA Lib "SHP_A3.dll" (ByVal ch As Long, ByVal btSigKA As Byte) As Long
    Public Declare Function SsmSetTxCallerId Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszTxCallerId As String) As Long
    Public Declare Function SsmGetTxCallerId Lib "SHP_A3.dll" (ByVal ch As Long, ByVal pszTxCallerId As String) As Long
    Public Declare Function SsmGetKA Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetKB Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetKD Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmAutoDialEx Lib "SHP_A3.dll" (ByVal ch As Long, ByVal szPhoNum As String, ByVal wParam As Long) As Long

    '//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    '//  Following functions are newly appended by cxg for applications using SS7
    '//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    Public Declare Function SsmBlockLocalCh Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmUnblockLocalCh Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmQueryLocalChBlockState Lib "SHP_A3.dll" (ByVal ch As Long, ByRef pdwBlockState As Long) As Long
    Public Declare Function SsmBlockLocalPCM Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Long) As Long
    Public Declare Function SsmUnblockLocalPCM Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Long) As Long
    Public Declare Function SsmQueryLocalPCMBlockState Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Long, ByRef pdwBlockState As Long) As Long
    Public Declare Function SsmQueryOpBlockRemoteCh Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmBlockRemoteCh Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmUnblockRemoteCh Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetRemoteChBlockStatus Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmBlockRemotePCM Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Long, ByVal dwBlockMode As Long) As Long
    Public Declare Function SsmUnblockRemotePCM Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Long, ByVal dwUnblockMode As Long) As Long
    Public Declare Function SsmGetRemotePCMBlockStatus Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Long, ByVal dwBlockMode As Long) As Long
    Public Declare Function SsmGetWaitAutoDialAnswerTime Lib "SHP_A3.dll" (ByRef pwSeconds As Long) As Long
    Public Declare Function SsmSetWaitAutoDialAnswerTime Lib "SHP_A3.dll" (ByVal wSeconds As Long) As Long

    '//Ver3.5.26.
    '//+++BEGIN+++ Added by xxb for 模拟电话线相对能量算法检测被叫摘机不适用于调用SsmTxDtmf()外拨及二次拨号,2003.3.7
    Public Declare Function SsmStartPickupAnalyze Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetPickup Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    '//+++END+++ Added by xxb for 模拟电话线相对能量算法检测被叫摘机不适用于调用SsmTxDtmf()外拨及二次拨号,2003.3.7
    Public Declare Function SsmGetReleaseReason Lib "SHP_A3.dll" (ByVal ch As Long) As Long

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@ ADAPTIVE FILTER OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmQueryOpEchoCanceller Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetEchoCanceller Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bRun As Long) As Long
    Public Declare Function SsmGetEchoCancellerState Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetEchoCancellerStudy Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bRun As Long) As Long
    Public Declare Function SsmGetEchoCancellerStudyState Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetEchoCancellerRatio Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSaveEchoCancellerPara Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    '++
    Public Declare Function SsmSetEchoCancelDelaySize Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wSize As Long) As Long
    Public Declare Function SsmGetEchoCancelDelaySize Lib "SHP_A3.dll" (ByVal ch As Long) As Long

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@ CT-BUS OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmListenTo Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long) As Long
    Public Declare Function SsmListenToEx Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal nVolume1 As Long, ByVal ch2 As Long) As Long
    Public Declare Function SsmStopListenTo Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long) As Long
    Public Declare Function SsmTalkWith Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long) As Long
    Public Declare Function SsmTalkWithEx Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal nVlm1 As Long, ByVal ch2 As Long, ByVal nVlm2 As Long) As Long
    Public Declare Function SsmStopTalkWith Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long) As Long
    Public Declare Sub PlayListen Lib "SHP_A3.dll" (ByVal dwBId As Long, ByVal ch As Long)