shpa3api.vb

三汇CTI示例程序源码

    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

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

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

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

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

    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 Int32) As Int32

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

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