shpa3api.vb

三汇CTI示例程序源码

    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 Function SsmGetMicGain Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

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

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@ POWER-AMPLIFIER OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Sub SetVolume Lib "SHP_A3.dll" (ByVal dwBoardId As Int32, ByVal dwVolume As Int32)
    Public Declare Function SsmQueryOpPowerAmp Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmSetPowerAmpVlm Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal nVolume As Int32) As Int32

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@ POLAR REVERSE OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function GetFZCount Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmQueryOpPolarRvrs Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmGetPolarRvrsCount Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmGetPolarState Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmSetPolarState Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal nPolar As Int32) As Int32
    Public Declare Function SsmSetUnimoduleState Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal nLink As Int32) As Int32

    '//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SS1 OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmQueryOpSS1 Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmSendCAS Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal btCas As Byte) As Int32
    Public Declare Function SsmGetCAS Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmSetRxR2Mode Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal nMode As Int32, ByVal bEnable As Int32) As Int32
    Public Declare Function SsmGetR2 Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmSendR2 Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal nMode As Int32, ByVal btR2 As Byte) As Int32
    Public Declare Function SsmStopSendR2 Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmGetSendingCAS Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmGetSendingR2 Lib "SHP_A3.dll" (ByVal ch As Int32, ByRef pnMode As Int32, ByRef pbtR2 As Byte) As Int32

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ PCM LINK OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmGetMaxPcm Lib "SHP_A3.dll" () As Int32
    Public Declare Function SsmGetPcmInfo Lib "SHP_A3.dll" (ByVal nPcmNo As Int32, ByRef pnSSxMode As Int32, ByRef pnBoardId As Int32, ByRef pnBoardPcmNo As Int32, ByRef pnUsePcmTS16 As Int32, ByRef pdwRcvrMode As Int32, ByRef pdwEnableAutoCall As Int32, ByRef pdwAutoCallDirection As Byte) As Int32
    Public Declare Function SsmSetPcmClockMode Lib "SHP_A3.dll" (ByVal nPcmNo As Int32, ByVal nClockMode As Int32) As Int32
    Public Declare Function SsmGetPcmLinkStatus Lib "SHP_A3.dll" (ByVal nPcmNo As Int32, ByRef pwPcmLinkStatus As Int32) As Int32
    Public Declare Function SsmPcmTsToCh Lib "SHP_A3.dll" (ByVal nLocalPcmNo As Int32, ByVal nTs As Int32) As Int32
    Public Declare Function SsmChToPcmTs Lib "SHP_A3.dll" (ByVal ch As Int32, ByRef pnLocalPcmNo As Int32, ByRef pnTs As Int32) As Int32

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SEND FSK OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmSetFskPara Lib "SHP_A3.dll" (ByVal nFreqBit0 As Int32, ByVal nFreqBit1 As Int32, ByVal nBaudrate As Int32, ByVal nMdlAmp As Int32) As Int32
    Public Declare Function SsmGetFskPara Lib "SHP_A3.dll" (ByRef nFreqBit0 As Int32, ByRef nFreqBit1 As Int32, ByRef nBaudrate As Int32, ByRef nMdlAmp As Int32) As Int32
    Public Declare Function SsmTransFskData Lib "SHP_A3.dll" (ByRef pS As Byte, ByVal nSrcLen As Int32, ByVal nSyncLen As Int32, ByRef pD As Byte) As Int32

    Public Declare Function SsmStartSendFSK Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal pBuf As String, ByVal dwMaxBit As Int32) As Int32
    Public Declare Function SsmCheckSendFsk Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmStopSendFsk Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ RECEIVE FSK OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmStartRcvFSK_II Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal wTimeOut As Int32, ByVal wMaxLen As Int32, ByRef pucMarkCodeBuf As Byte, ByVal ucMarkCodeCount As Byte) As Int32
    Public Declare Function SsmStartRcvFSK Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal wTimeOut As Int32, ByVal wMaxLen As Int32, ByVal ucEndCode As Byte, ByVal wEndCodeCount As Int32) As Int32
    Public Declare Function SsmClearRcvFSKBuf Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmCheckRcvFSK Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmGetRcvFSK Lib "SHP_A3.dll" (ByVal ch As Int32, ByRef pucBuf As Byte) As Int32
    Public Declare Function SsmStopRcvFSK Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32

    '//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SS7 OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmSendSs7Msu Lib "SHP_A3.dll" (ByVal wMsuLength As Int32, ByRef pucMsuBuf As Byte) As Int32
    Public Declare Function SsmGetSs7Msu Lib "SHP_A3.dll" (ByRef pucMsuBuf As Byte) As Int32

    Public Declare Function SsmGetSs7Mtp2Msu Lib "SHP_A3.dll" (ByVal pucPara As Byte, ByRef ppucMsuBuf As Byte) As Int32

    Public Declare Function SsmGetMtp3State Lib "SHP_A3.dll" () As Int32
    Public Declare Function SsmGetMtp3StateEx Lib "SHP_A3.dll" (ByVal nDpcNo As Int32) As Int32
    Public Declare Function SsmGetMtp2Status Lib "SHP_A3.dll" (ByVal nLinkNum As Int32) As Int32

    '//added by mengjin for 动态设置主叫用户类别，2004.11.22
    Public Declare Function SsmSetISUPCAT Lib "SHP_A3.dll" (ByVal nCh As Int32, ByVal ucCallerCAT As Byte) As Int32

    '//---Start--- added by cxq for ISUP用户部分参数设置,05.06.09
    Public Declare Function SsmGetIsupUPPara Lib "SHP_A3.dll" (ByVal nBCh As Int32, ByVal wEventType As Int32, ByRef pwLength As Int32, ByRef pucContent As Byte) As Int32
    Public Declare Function SsmSetIsupUPPara Lib "SHP_A3.dll" (ByVal nBCh As Int32, ByVal wEventType As Int32, ByRef pwLength As Int32, ByRef pucContent As Byte) As Int32
    '//---End--- added by cxq for ISUP用户部分参数设置,05.06.09
    Public Declare Function SsmSendIsupMsg Lib "SHP_A3.dll" (ByVal nBCh As Int32, ByVal wEventType As Int32) As Int32
    '//---Start--- added by cxq for 呼入通道所对应的link组,05.10.25

    Public Declare Function SsmGetInboundLinkSet Lib "SHP_A3.dll" (ByVal nBCh As Int32, ByRef pwLinkSetNo As Int32, ByRef pszOpc As String, ByRef pszDpc As String) As Int32
    '//---Start--- added by cxq for 呼入通道所对应的link组,05.10.25

    '//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '//@@@@@@@@@@@@@@@@@@@ FAX OPERATION API @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    '//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
    Public Declare Function SsmFaxGetChStateMsg Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal buf As String) As Int32
    Public Declare Function SsmFaxGetPages Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmFaxStartReceive Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal filename As String) As Int32
    Public Declare Function SsmFaxStartSend Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal filename As String) As Int32
    Public Declare Function SsmFaxStop Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Sub SsmFaxSetMaxSpeed Lib "SHP_A3.dll" (ByVal speed As Int32)
    Public Declare Function SsmFaxCheckEnd Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Declare Function SsmFaxSetID Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal myid As String) As Int32
    Public Declare Function SsmFaxGetID Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal myid As String) As Int32
    Public Declare Function SsmFaxSetSendMode Lib "SHP_A3.dll" (ByVal ch As Int32, ByVal mode As Int32) As Int32
    Public Declare Function SsmFaxGetRcvBytes Lib "SHP_A3.dll" (ByVal ch As Int32) As Int32
    Public Decl