rmstapiroutines.bas

AVAYA IPO 430系列交换机 TAPI 2.0软件电话源代码

            struct_DeviceConfigOut.l_dwTotalSize & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigOut.l_dwUsedSize       = " & _
            struct_DeviceConfigOut.l_dwUsedSize & "."
    
        frmStatus.lbStatus.AddItem "struct_DeviceConfigIn.l_dwNeededSize      = " & _
            struct_DeviceConfigIn.l_dwNeededSize & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigIn.l_dwStringFormat    = " & _
            struct_DeviceConfigIn.l_dwStringFormat & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigIn.l_dwStringOffset    = " & _
            struct_DeviceConfigIn.l_dwStringOffset & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigIn.l_dwStringSize      = " & _
            struct_DeviceConfigIn.l_dwStringSize & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigIn.l_dwTotalSize       = " & _
            struct_DeviceConfigIn.l_dwTotalSize & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigIn.l_dwUsedSize        = " & _
            struct_DeviceConfigIn.l_dwUsedSize & "."
    Else
        ' Screen....
        frmStatus.lbStatus.AddItem "lineConfigDialogEdit ran. ERRORS"
        frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineConfigDialogEdit_Result & " (" & Hex(l_lineConfigDialogEdit_Result) & " hex)."
        frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineConfigDialogEdit_Result) & "."
    End If
    
    ' Screen....
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1

End Sub

Public Sub Run_lineGetDevConfig()

    'Declare Function lineGetDevConfig Lib "TAPI32.DLL" _
    '    (ByVal l_dwDeviceID As Long, ByRef struct_lpDeviceConfig As VarString, ByVal s_lpszDeviceClass As String) As Long

    'Declare Function lineGetDevConfig Lib "TAPI32.DLL" _
    '    (ByVal l_dwDeviceID As Long, ptr_lpDeviceConfig As Any, ByVal s_lpszDeviceClass As String) As Long
    
    Dim l_DeviceID As Long                           ' lineGetDevConfig .. Parameter 1 .. Value
    Dim struct_DeviceConfig As VarString             ' lineGetDevConfig .. Parameter 2 .. Reference
    Dim s_classname As String                        ' lineGetDevConfig .. Parameter 3 .. Value
    
    Dim l_lineGetDevConfig_Result As Long            ' lineGetDevConfig .. Function Passed?
    
    gsLastTAPIFunctionRan = "lineGetDevConfig"
    
    ' Init Parameters..
        
    l_DeviceID = CLng(frmMain.cbDevice.Text)
    s_classname = "tapi/line"
    
    ' Screen....
    frmStatus.lbStatus.AddItem " "
    frmStatus.lbStatus.AddItem "================================================================================================"
    frmStatus.lbStatus.AddItem "*** FUNCTION : lineGetDevConfig ***"
    frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
        
    frmMain.lbStatusBrief.AddItem "FUNCTION : lineGetDevConfig"
    frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
    DoEvents
        
    ' Set Memory needed...
    struct_DeviceConfig.l_dwTotalSize = VARSTRING_FIXEDSIZE
        
    ' Set String Format...
    struct_DeviceConfig.l_dwStringFormat = STRINGFORMAT_BINARY

    ' Run lineGetDevConfig..
    l_lineGetDevConfig_Result = RMSTAPIDeclarations.lineGetDevConfig(l_DeviceID, struct_DeviceConfig, s_classname)
    
    ' Check if lineGetDevConfig ran ok..
    If l_lineGetDevConfig_Result = RESULT_SUCCESS Then
        ' Screen....
        frmStatus.lbStatus.AddItem "lineGetDevConfig ran. SUCCESS"
        frmStatus.lbStatus.AddItem "l_DeviceID                             = " & l_DeviceID & "."
        frmStatus.lbStatus.AddItem "s_classname                            = " & s_classname & "."
        
        frmStatus.lbStatus.AddItem "struct_DeviceConfig.l_dwNeededSize     = " & _
            struct_DeviceConfig.l_dwNeededSize & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfig.l_dwStringFormat   = " & _
            struct_DeviceConfig.l_dwStringFormat & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfig.l_dwStringOffset   = " & _
            struct_DeviceConfig.l_dwStringOffset & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfig.l_dwStringSize     = " & _
            struct_DeviceConfig.l_dwStringSize & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfig.l_dwTotalSize      = " & _
            struct_DeviceConfig.l_dwTotalSize & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfig.l_dwUsedSize       = " & _
            struct_DeviceConfig.l_dwUsedSize & "."
            
        struct_DeviceConfig_Saved = struct_DeviceConfig
    Else
        ' Screen....
        frmStatus.lbStatus.AddItem "lineGetDevConfig ran. ERRORS"
        frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineGetDevConfig_Result & " (" & Hex(l_lineGetDevConfig_Result) & " hex)."
        frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineGetDevConfig_Result) & "."
    End If
    
    ' Screen....
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1

    gbDoneGevDevConfig = True
    
End Sub

Public Sub Run_lineGenerateDigits()

    'Declare Function lineGenerateDigits Lib "TAPI32.DLL" _
    '    (ByVal l_hCall As Long, ByVal l_dwDigitMode As Long, _
    '     ByVal l_lpszDigits As String, ByVal l_dwDuration As Long) As Long

    Dim l_Call As Long                             ' lineGenerateDigits .. Parameter 1 .. Value
    Dim l_DigitMode As Long                        ' lineGenerateDigits .. Parameter 2 .. Value
    Dim s_Digits As String                         ' lineGenerateDigits .. Parameter 3 .. Value
    Dim l_Duration As Long                         ' lineGenerateDigits .. Parameter 4 .. Value
    
    Dim l_lineGenerateDigits_Result As Long        ' lineGenerateDigits .. Function Passed?
        
    gsLastTAPIFunctionRan = "lineGenerateDigits"
    
    ' Init Parameters..
        
    l_Call = RMSTAPIRoutines.glhCall
    l_DigitMode = LINEDIGITMODE_DTMF
    s_Digits = "1234567890ABCD"
    l_Duration = &H1000&
    
    ' Screen....
    frmStatus.lbStatus.AddItem " "
    frmStatus.lbStatus.AddItem "================================================================================================"
    frmStatus.lbStatus.AddItem "*** FUNCTION : lineGenerateDigits ***"
    frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
        
    frmMain.lbStatusBrief.AddItem "FUNCTION : lineGenerateDigits"
    frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
    DoEvents
        
    ' Run lineGenerateDigits..
    l_lineGenerateDigits_Result = RMSTAPIDeclarations.lineGenerateDigits( _
        l_Call, l_DigitMode, s_Digits, l_Duration)
    
    ' Check if lineGenerateDigits ran ok..
    If l_lineGenerateDigits_Result = RESULT_SUCCESS Then
        ' Screen....
        frmStatus.lbStatus.AddItem "lineGenerateDigits ran. SUCCESS"
        frmStatus.lbStatus.AddItem "l_Call      = " & l_Call & "."
        frmStatus.lbStatus.AddItem "l_DigitMode = " & l_DigitMode & "."
        frmStatus.lbStatus.AddItem "l_DigitMode = " _
            & RMSTAPIEvents.LineDigitModeMsg(l_DigitMode) & ". (Decoded)"
        frmStatus.lbStatus.AddItem "s_Digits    = " & s_Digits & "."
        frmStatus.lbStatus.AddItem "l_Duration  = " & l_Duration & " (" & Hex(l_Duration) & " Hex)."
    Else
        ' Screen....
        frmStatus.lbStatus.AddItem "lineGenerateDigits ran. ERRORS"
        frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineGenerateDigits_Result & " (" & Hex(l_lineGenerateDigits_Result) & " hex)."
        frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineGenerateDigits_Result) & "."
    End If
    
    ' Screen....
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1

End Sub

Public Sub Run_lineMonitorTones()

    'Declare Function lineMonitorTones Lib "TAPI32.DLL" _
    '    (ByVal l_hCall As Long, ByRef struct_lpToneList As lineMonitorTone, ByVal l_dwNumEntries As Long) As Long
    
    'Declare Function lineMonitorTones Lib "TAPI32.DLL" _
    '    (ByVal l_hCall As Long, ptr_lpToneList As Any, ByVal l_dwNumEntries As Long) As Long

    Dim l_Call As Long                             ' lineMonitorTones .. Parameter 1 .. Value
    Dim struct_MyMonitorTone As lineMonitorTone    ' lineMonitorTones .. Parameter 2 .. Reference
    Dim l_NoEntries As Long                        ' lineMonitorTones .. Parameter 3 .. Value
    
    Dim l_lineMonitorTones_Result As Long          ' lineMonitorTones .. Function Passed?
        
    gsLastTAPIFunctionRan = "lineMonitorTones"
    
    ' Init Parameters..
        
    l_Call = RMSTAPIRoutines.glhCall
    l_NoEntries = 1
    'struct_MyMonitorTone.l_dwAppSpecific = "0000000088130000000000000000000000000000"
        
    ' Screen....
    frmStatus.lbStatus.AddItem " "
    frmStatus.lbStatus.AddItem "================================================================================================"
    frmStatus.lbStatus.AddItem "*** FUNCTION : lineMonitorTones ***"
    frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
        
    frmMain.lbStatusBrief.AddItem "FUNCTION : lineMonitorTones"
    frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
    DoEvents
        
    ' Run lineMonitorTones..
    l_lineMonitorTones_Result = RMSTAPIDeclarations.lineMonitorTones( _
        l_Call, struct_MyMonitorTone, l_NoEntries)
    
    ' Check if lineMonitorTones ran ok..
    If l_lineMonitorTones_Result = RESULT_SUCCESS Then
        ' Screen....
        frmStatus.lbStatus.AddItem "lineMonitorTones ran. SUCCESS"
        frmStatus.lbStatus.AddItem "l_Call                                = " & l_Call & "."
        frmStatus.lbStatus.AddItem "l_NoEntries                           = " & l_NoEntries & "."
    
        frmStatus.lbStatus.AddItem "struct_MyMonitorTone.l_dwAppSpecific  = " & _
            struct_MyMonitorTone.l_dwAppSpecific & "."
        frmStatus.lbStatus.AddItem "struct_MyMonitorTone.l_dwDuration     = " & _
            struct_MyMonitorTone.l_dwDuration & "."
        frmStatus.lbStatus.AddItem "struct_MyMonitorTone.l_dwFrequency1   = " & _
            struct_MyMonitorTone.l_dwFrequency1 & "."
        frmStatus.lbStatus.AddItem "struct_MyMonitorTone.l_dwFrequency2   = " & _
            struct_MyMonitorTone.l_dwFrequency2 & "."
        frmStatus.lbStatus.AddItem "struct_MyMonitorTone.l_dwFrequency3   = " & _
            struct_MyMonitorTone.l_dwFrequency3 & "."
    Else
        ' Screen....
        frmStatus.lbStatus.AddItem "lineMonitorTones ran. ERRORS"
        frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineMonitorTones_Result & " (" & Hex(l_lineMonitorTones_Result) & " hex)."
        frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineMonitorTones_Result) & "."
    End If
    
    ' Screen....
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1

End Sub

Public Sub Run_lineHold()

    'Declare Function lineHold Lib "TAPI32.DLL" (ByVal l_hCall As Long) As Long

    Dim l_Call As Long                     ' lineHold .. Parameter 1 .. Value
    
    Dim l_lineHold_Result As Long          ' lineHold .. Function Passed?
    
    gsLastTAPIFunctionRan = "lineHold"
    
    ' Init Parameters..
        
    l_Call = RMSTAPIRoutines.glhCall
    
    ' Screen....
    frmStatus.lbStatus.AddItem " "
    frmStatus.lbStatus.AddItem "================================================================================================"
    frmStatus.lbStatus.AddItem "*** FUNCTION : lineHold ***"
    frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"