shpa3api.bas

三汇CTI示例程序源码

                                            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 Integer) 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  @@@@@@@@@@@@@@@@@@@@@@@@@
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Sub SetVolume Lib "SHP_A3.dll" (ByVal dwBoardId As Long, ByVal dwVolume As Long)
Public Declare Function SsmQueryOpPowerAmp Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetPowerAmpVlm Lib "SHP_A3.dll" (ByVal ch As Long, ByVal nVolume As Long) As Long

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

'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ SS1 OPERATION  @@@@@@@@@@@@@@@@@@@@@@@@@@@@@
'//@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
Public Declare Function SsmQueryOpSS1 Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSendCAS Lib "SHP_A3.dll" (ByVal ch As Long, ByVal btCas As Byte) As Long
Public Declare Function SsmGetCAS Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSetRxR2Mode Lib "SHP_A3.dll" _
                                                        (ByVal ch As Long, _
                                                        ByVal nMode As Long, _
                                                        ByVal bEnable As Long) As Long
Public Declare Function SsmGetR2 Lib "SHP_A3.dll" (ByVal ch As Long) As Long
Public Declare Function SsmSe