shpa3api.bas

三汇CTI示例程序源码

    Public Declare Sub PlayListenNew Lib "SHP_A3.dll" (ByVal dwSpeakerCh As Long, ByVal dwMonitorCh As Long)
    Public Declare Sub StopListen Lib "SHP_A3.dll" (ByVal dwBId As Long)
    Public Declare Sub StopListenNew Lib "SHP_A3.dll" (ByVal dwSpeakerCh As Long)
    Public Declare Function SsmLinkFrom Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long) As Long
    Public Declare Function SsmStopLinkFrom Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long) As Long
    Public Declare Function SsmLinkFromEx Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal nVolume1 As Long, ByVal ch2 As Long) As Long
    Public Declare Function SsmLinkFromAllCh Lib "SHP_A3.dll" (ByVal ch As Long, ByRef nListenerTable As Long, ByVal nListenerNum As Long) As Long
    Public Declare Function SsmUnLinkFromAllCh Lib "SHP_A3.dll" (ByVal ch As Long, ByRef nListenerTable As Long, ByVal nListenerNum As Long) As Long
    Public Declare Function SsmLinkToBus Lib "SHP_A3.dll" (ByVal ch As Long, ByVal ts As Long) As Long
    Public Declare Function SsmUnLinkToBus Lib "SHP_A3.dll" (ByVal ch As Long, ByVal ts As Long) As Long
    Public Declare Function SsmLinkFromBus Lib "SHP_A3.dll" (ByVal ts As Long, ByVal ch As Long) As Long
    Public Declare Function SsmLinkFromBusEx Lib "SHP_A3.dll" (ByVal ts As Long, ByVal ch As Long, ByVal vlm As Long) As Long
    Public Declare Function SsmUnLinkFromBus Lib "SHP_A3.dll" (ByVal ts As Long, ByVal ch As Long) As Long
    Public Declare Function SsmListenToPlay Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal vlm1 As Long, ByVal ch2 As Long) As Long
    Public Declare Function SsmUnListenToPlay Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long) As Long
    Public Declare Function SsmClearChBusLink Lib "SHP_A3.dll" (ByVal nCh As Long) As Long

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



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

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

    Public Declare Sub SetWorkMode Lib "SHP_A3.dll" (ByVal mode As Long)
    Public Declare Sub SetUserCard Lib "SHP_A3.dll" (ByVal addr1 As Long, ByVal addr2 As Long, ByVal addr3 As Long, ByVal addr4 As Long, ByVal addr5 As Long, ByVal addr6 As Long, ByVal addr7 As Long, ByVal addr8 As Long)

    Public Declare Sub SendBusyTone Lib "SHP_A3.dll" (ByVal ch As Long)
    Public Declare Sub SendRingEchoTone Lib "SHP_A3.dll" (ByVal ch As Long)
    Public Declare Sub SendDialTone Lib "SHP_A3.dll" (ByVal ch As Long)
    Public Declare Sub StopSendTone Lib "SHP_A3.dll" (ByVal ch As Long)
    Public Declare Sub StartSendRing Lib "SHP_A3.dll" (ByVal ch As Long)
    Public Declare Sub StopSendRing Lib "SHP_A3.dll" (ByVal ch As Long)
    Public Declare Function Link2Ch Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long) As Long
    Public Declare Sub UnLink2Ch Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long)
    Public Declare Function Link3Ch Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long, ByVal Ch3 As Long) As Long

    Public Declare Sub UnLink3Ch Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long, ByVal Ch3 As Long)
    Public Declare Function ListenFromCh Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long) As Long
    Public Declare Sub StopListenFromCh Lib "SHP_A3.dll" (ByVal ch1 As Long, ByVal ch2 As Long)
    Public Declare Sub SetDelay Lib "SHP_A3.dll" (ByVal ch As Long, ByVal delay As Long)
    Public Declare Sub SetLevel Lib "SHP_A3.dll" (ByVal ch As Long, ByVal level As Long)
    Public Declare Function DetectSound Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function GetFax11 Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function GetFax21 Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function GetRing Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Sub SetDialSpeed Lib "SHP_A3.dll" (ByVal Point As Long)
    Public Declare Sub GetErrorMsg Lib "SHP_A3.dll" (ByRef buf As Byte)
    Public Declare Function SetMaxSeg Lib "SHP_A3.dll" (ByVal inmaxsegment As Long) As Long

    Public Declare Function ApplyTimeSlot Lib "SHP_A3.dll" () As Long
    Public Declare Function LinkFromBus Lib "SHP_A3.dll" (ByVal tsHandle As Long, ByVal ch As Long) As Long
    Public Declare Function StopLinkFromBus Lib "SHP_A3.dll" (ByVal tsHandle As Long, ByVal ch As Long) As Long
    Public Declare Function LinkToBus Lib "SHP_A3.dll" (ByVal ch As Long, ByVal tsHandle As Long) As Long
    Public Declare Function StopLinkToBus Lib "SHP_A3.dll" (ByVal ch As Long, ByVal tsHandle As Long) As Long
    Public Declare Sub FreeTimeSlot Lib "SHP_A3.dll" (ByVal tsHandle As Long)

    Public Declare Sub PauseCard Lib "SHP_A3.dll" ()
    Public Declare Sub RestartCard Lib "SHP_A3.dll" ()

    Public Declare Function SetIRQPriority Lib "SHP_A3.dll" (ByVal nPriorityClass As Long) As Long

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RECORD MODULE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function GetLevel Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Sub SetJudge Lib "SHP_A3.dll" (ByVal ch As Long, ByVal Judge As Long)
    Public Declare Function SsmQueryOpADC Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmGetLineVoltage Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetDtrmLineVoltage Lib "SHP_A3.dll" (ByVal ch As Long, ByVal wDtrmValtage As Long) As Long
    Public Declare Function SsmGetDtrmLineVoltage Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function DetectPickUp Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function DetectEmpty Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Sub SetSoundJudgeLevel Lib "SHP_A3.dll" (ByVal ch As Long, ByVal level As Long)
    Public Declare Function GetSoundJudgeLevel Lib "SHP_A3.dll" (ByVal ch As Long) As Long

    Public Declare Function SsmQueryOpMicGain Lib "SHP_A3.dll" (ByVal ch As Long) As Long
    Public Declare Function SsmSetMicGain Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nGain As Long) As Long
    Public Declare Function SsmGetMicGain Lib "SHP_A3.dll" (ByVal ch As Long) As Long

    Public Declare Function SsmSetIgnoreLineVoltage Lib "SHP_A3.dll" (ByVal ch As Long, ByVal bEnable As Long) As Long
    Public Declare Function SsmGetIgnoreLineVoltage Lib "SHP_A3.dll" (ByVal ch As Long) As Long

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@ POWER-AMPLIFIER OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@