shpa3api.vb

三汇CTI示例程序源码

    Public Declare Function SsmBlockLocalPCM Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Int32) As Int32
    Public Declare Function SsmUnblockLocalPCM Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Int32) As Int32
    Public Declare Function SsmQueryLocalPCMBlockState Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Int32, ByRef pdwBlockState As Int32) As Int32
    Public Declare Function SsmQueryOpBlockRemoteCh Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmBlockRemoteCh Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmUnblockRemoteCh Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmGetRemoteChBlockStatus Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmBlockRemotePCM Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Int32, ByVal dwBlockMode As Int32) As Int32
    Public Declare Function SsmUnblockRemotePCM Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Int32, ByVal dwUnblockMode As Int32) As Int32
    Public Declare Function SsmGetRemotePCMBlockStatus Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Int32, ByVal dwBlockMode As Int32) As Int32
    Public Declare Function SsmGetWaitAutoDialAnswerTime Lib "SHP_A3.dll" (ByRef pwSeconds As Int32) As Int32
    Public Declare Function SsmSetWaitAutoDialAnswerTime Lib "SHP_A3.dll" (ByVal wSeconds As Int32) As Int32

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

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

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@ CT-BUS OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmListenTo Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Function SsmListenToEx Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal nVolume1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Function SsmStopListenTo Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Function SsmTalkWith Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Function SsmTalkWithEx Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal nVlm1 As Int32, ByVal ch2 As Int32, ByVal nVlm2 As Int32) As Int32
    Public Declare Function SsmStopTalkWith Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Sub PlayListen Lib "SHP_A3.dll" (ByVal dwBId As Int32, ByVal ch As Int32)
    Public Declare Sub PlayListenNew Lib "SHP_A3.dll" (ByVal dwSpeakerCh As Int32, ByVal dwMonitorCh As Int32)
    Public Declare Sub StopListen Lib "SHP_A3.dll" (ByVal dwBId As Int32)
    Public Declare Sub StopListenNew Lib "SHP_A3.dll" (ByVal dwSpeakerCh As Int32)
    Public Declare Function SsmLinkFrom Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Function SsmStopLinkFrom Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Function SsmLinkFromEx Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal nVolume1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Function SsmLinkFromAllCh Lib "SHP_A3.dll" (ByVal ch As Int32, ByRef nListenerTable As Int32, ByVal nListenerNum As Int32) As Int32
    Public Declare Function SsmUnLinkFromAllCh Lib "SHP_A3.dll" (ByVal ch As Int32, ByRef nListenerTable As Int32, ByVal nListenerNum As Int32) As Int32
    Public Declare Function SsmLinkToBus Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal ts As Int32) As Int32
    Public Declare Function SsmUnLinkToBus Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal ts As Int32) As Int32
    Public Declare Function SsmLinkFromBus Lib "SHP_A3.dll" (ByVal ts As Int32, ByVal ch As Int32) As Int32
    Public Declare Function SsmLinkFromBusEx Lib "SHP_A3.dll" (ByVal ts As Int32, ByVal ch As Int32, ByVal vlm As Int32) As Int32
    Public Declare Function SsmUnLinkFromBus Lib "SHP_A3.dll" (ByVal ts As Int32, ByVal ch As Int32) As Int32
    Public Declare Function SsmListenToPlay Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal vlm1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Function SsmUnListenToPlay Lib "SHP_A3.dll" (ByVal ch1 As Int32, ByVal ch2 As Int32) As Int32
    Public Declare Function SsmClearChBusLink Lib "SHP_A3.dll" (ByVal nCh As Int32) As Int32

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@ CONFERENCE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmCreateConfGroup Lib "SHP_A3.dll" (ByVal nMaxMember As Int32, ByVal nMaxSpeaker As Int32, ByVal nMaxSpeaking As Int32, ByVal nMaxSilenceTime As Int32) As Int32

    Public Declare Function SsmFreeConfGroup Lib "SHP_A3.dll" (ByVal nGrpId As Int32) As Int32

    Public Declare Function SsmJoinConfGroup Lib "SHP_A3.dll" (ByVal nGrpId As Int32, ByVal ch As Int32, ByVal wJoinMode As Int32, ByVal nMixerVolume As Int32, ByVal bCreateAlways As Int32, ByVal bExitGrpAlways As Int32) As Int32

    Public Declare Function SsmExitConfGroup Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal bFreeGrpAlways As Int32) As Int32

    Public Declare Function SsmGetConfCfgInfo Lib "SHP_A3.dll" (ByRef pwMaxMember As Int32, ByRef pwMaxSpeaker As Int32, ByRef pwMaxSpeaking As Int32, ByRef pwMaxSilenceTime As Int32) As Int32

    Public Declare Function SsmGetTotalConfGroup Lib "SHP_A3.dll" () As Int32

    Public Declare Function SsmGetConfGrpId Lib "SHP_A3.dll" (ByRef pnGrpId As Int32) As Int32

    Public Declare Function SsmGetConfGrpCfgInfo Lib "SHP_A3.dll" (ByVal nGrpId As Int32, ByRef pwMaxMember As Int32, ByRef pwMaxSpeaker As Int32, ByRef pwMaxSpeaking As Int32, ByRef pwMaxSilenceTime As Int32) As Int32

    Public Declare Function SsmGetConfGrpInfo Lib "SHP_A3.dll" (ByVal nGrpId As Int32, ByRef pwTotalMember As Int32, ByRef pwTotalSpeaker As Int32, ByRef pwTotalSpeaking As Int32) As Int32

    Public Declare Function SsmGetConfGrpMmbrId Lib "SHP_A3.dll" (ByVal nGrpId As Int32, ByRef pnMmbrId As Int32) As Int32

    Public Declare Function SsmGetConfGrpMmbrInfo Lib "SHP_A3.dll" (ByVal nGrpId As Int32, ByVal nMmbrId As Int32, ByRef pnAppCh As Int32, ByRef pwJoinMode As Int32, ByRef pwIsSpeaking As Int32, ByRef pdwSilenceTime As Int32) As Int32

    Public Declare Function SsmGetConfChInfo Lib "SHP_A3.dll" (ByVal ch As Int32, ByRef pnGrpId As Int32, ByRef pnMmbrId As Int32, ByRef pwJoinMode As Int32, ByRef pwIsSpeaking As Int32, ByRef pdwSilenceTime As Int32) As Int32
    Public Declare Function SsmValidateGrpId Lib "SHP_A3.dll" (ByVal nGrpId As Int32) As Int32

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@    DRIVER  Ver. 1.x COMPATIBLE FUNCTIONS     @@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function InitCard Lib "SHP_A3.dll" (ByVal add1 As Int32, ByVal add2 As Int32, ByVal add3 As Int32, ByVal add4 As Int32, ByVal add5 As Int32, ByVal add6 As Int32, ByVal add7 As Int32, ByVal add8 As Int32, ByVal intno As Int32) As Int32

    Public Declare Sub ShutCard Lib "SHP_A3.dll" ()

    Public Declare Function StartRecordFile Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal fliename As String) As Int32

    Public Declare Sub StopRecordFile Lib "SHP_A3.dll" (ByVal ch As Int32)
    Public Declare Sub PauseRecord Lib "SHP_A3.dll" (ByVal ch As Int32)
    Public Declare Sub RestartRecord Lib "SHP_A3.dll" (ByVal ch As Int32)

    Public Declare Function GetRecordTime Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    Public Declare Function StartPlayFile Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal fliename As String) As Int32

    Public Declare Sub StopPlayFile Lib "SHP_A3.dll" (ByVal ch As Int32)

    Public Declare Function CheckPlayingEnd Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    Public Declare Sub PausePlay Lib "SHP_A3.dll" (ByVal ch As Int32)
    Public Declare Sub RestartPlay Lib "SHP_A3.dll" (ByVal ch As Int32)
    Public Declare Sub FastPlay Lib "SHP_A3.dll" (ByVal ch As Int32)
    Public Declare Sub BackPlay Lib "SHP_A3.dll" (ByVal ch As Int32)

    Public Declare Function GetPlayTime Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function GetPlayPercent Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    Public Declare Sub SetPlayTime Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal Time As Int32)
    Public Declare Sub SetPlayPercent Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal percent As Int32)

    Public Declare Function LoadIndexFile Lib "SHP_A3.dll" (ByVal segNo As Int32, ByVal filename As String, ByVal StartAdr As Int32, ByVal Length As Int32) As Int32

    Public Declare Sub FreeIndexMem Lib "SHP_A3.dll" (ByVal segNo As Int32)
    Public Declare Sub PlayIndex Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal segstring As String)
    Public Declare Sub StopIndex Lib "SHP_A3.dll" (ByVal ch As Int32)

    Public Declare Sub DTMFStop Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal if_stop As Int32)

    Public Declare Function GetDTMF Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Sub ClearDTMFBuf Lib "SHP_A3.dll" (ByVal ch As Int32)

    Public Declare Function DetectRing Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    Public Declare Sub ClearRing Lib "SHP_A3.dll" (ByVal ch As Int32)
    Public Declare Sub HangUp Lib "SHP_A3.dll" (ByVal ch As Int32)
    Public Declare Sub PickUp Lib "SHP_A3.dll" (ByVal ch As Int32)

    Public Declare Function DetectInter Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function GetFlash Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    Public Declare Sub SetFlashTime Lib "SHP_A3.dll" (ByVal Time As Int32)

    Public Declare Function ToneCheck Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function GetBusyLen Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    Public Declare Sub DTMFDial Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal dialstring As String)
    Public Declare Function DTMFDialEnd Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    Public Declare Sub Flash Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal Time As Int32)
    Public Declare Sub SetPlayVolume Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal volume As Int32)
    Public Declare Sub SetRecVolume Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal volume As Int32)

    Public Declare Function GetCallerId Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal buf As String) As Int32



    Public Declare Sub SetPickSens Lib "SHP_A3.dll" (ByVal piont As Int32)
    Public Declare Function GetPickUp Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    Public Declare Function GetNum Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal buf As String, ByVal Time As Int32, ByVal dtmflen As Int32, ByVal end_char As Int32) As Int32