rmstapiroutines.bas

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

    
    gsLastTAPIFunctionRan = "lineDrop"
    
    ' Init Parameters..
        
    l_Call = RMSTAPIRoutines.glhCall
    l_Size = 0
    
    ' Screen....
    frmStatus.lbStatus.AddItem " "
    frmStatus.lbStatus.AddItem "================================================================================================"
    frmStatus.lbStatus.AddItem "*** FUNCTION : lineDrop ***"
    frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
        
    frmMain.lbStatusBrief.AddItem "FUNCTION : lineDrop"
    frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
    DoEvents
        
    ' Run lineDrop..
    l_lineDrop_Result = RMSTAPIDeclarations.lineDrop _
        (l_Call, s_UserUserInfo, l_Size)
    
    ' Check if lineDrop ran ok..
    If l_lineDrop_Result = RESULT_SUCCESS Or l_lineDrop_Result > 0 Then
        ' Screen....
        frmStatus.lbStatus.AddItem "lineDrop ran. SUCCESS"
        frmStatus.lbStatus.AddItem "l_Call                      = " & l_Call & "."
        frmStatus.lbStatus.AddItem "s_UserUserInfo              = " & s_UserUserInfo & "."
        frmStatus.lbStatus.AddItem "l_Size                      = " & l_Size & "."
        If l_lineDrop_Result = RESULT_SUCCESS Then
            frmStatus.lbStatus.AddItem "lineDrop Request Identifier = NONE (0)."
        Else
            frmStatus.lbStatus.AddItem "lineDrop Request Identifier = " & l_lineDrop_Result & "."
        End If
    Else
        ' Screen....
        frmStatus.lbStatus.AddItem "lineDrop ran. ERRORS"
        frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineDrop_Result & " (" & Hex(l_lineDrop_Result) & " hex)."
        frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineDrop_Result) & "."
    End If
    
    DoEvents
    Call RMSGeneralRoutines.Avaya_Sleep(1000)
    DoEvents
    Call RMSGeneralRoutines.Avaya_Sleep(1000)
    DoEvents
    Call RMSTAPIRoutines.Run_lineDeallocateCall
    
    If RMSTAPIRoutines.glHeldCall > 0 Then
        RMSTAPIRoutines.glhCall = RMSTAPIRoutines.glHeldCall
        RMSTAPIRoutines.glHeldCall = 0
        frmMain.lblhCall.Caption = "Call Handle: " & glhCall
        frmMain.lblHeldCall.Caption = ""
    Else
        If RMSTAPIRoutines.glConfCall > 0 Then
            glCallInConf = 0
            RMSTAPIRoutines.glConfCall = 0
            RMSTAPIRoutines.glConsCall = 0
            RMSTAPIRoutines.glHeldCall = 0
            frmMain.lblConfCall.Caption = ""
            frmMain.lblConsCall.Caption = ""
            frmMain.lblHeldCall.Caption = ""
        End If
        frmMain.lblhCall.Caption = ""
        glhCall = 0
    End If
    
    ' Screen....
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1

End Sub

Public Sub Run_lineUnHold()

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

    Dim l_Call As Long                       ' lineUnHold .. Parameter 1 .. Value
    
    Dim l_lineUnHold_Result As Long          ' lineUnHold .. Function Passed?
    
    gsLastTAPIFunctionRan = "lineUnHold"
    
    ' Init Parameters..
        
    l_Call = RMSTAPIRoutines.glhCall
    
    ' Screen....
    frmStatus.lbStatus.AddItem " "
    frmStatus.lbStatus.AddItem "================================================================================================"
    frmStatus.lbStatus.AddItem "*** FUNCTION : lineUnHold ***"
    frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
        
    frmMain.lbStatusBrief.AddItem "FUNCTION : lineUnHold"
    frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
    DoEvents
        
    ' Run lineUnHold..
    l_lineUnHold_Result = RMSTAPIDeclarations.lineUnhold(l_Call)
    
    ' Check if lineUnHold ran ok..
    If l_lineUnHold_Result = RESULT_SUCCESS Or l_lineUnHold_Result > 0 Then
        ' Screen....
        frmStatus.lbStatus.AddItem "lineUnHold ran. SUCCESS"
        frmStatus.lbStatus.AddItem "l_Call                        = " & l_Call & "."
        If l_lineUnHold_Result = RESULT_SUCCESS Then
            frmStatus.lbStatus.AddItem "lineUnHold Request Identifier = NONE (0)."
        Else
            frmStatus.lbStatus.AddItem "lineUnHold Request Identifier = " & l_lineUnHold_Result & "."
        End If
        glHeldCall = 0
        frmMain.lblHeldCall.Caption = ""
    Else
        ' Screen....
        frmStatus.lbStatus.AddItem "lineUnHold ran. ERRORS"
        frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineUnHold_Result & " (" & Hex(l_lineUnHold_Result) & " hex)."
        frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineUnHold_Result) & "."
    End If
    
    ' Screen....
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1

End Sub

Public Sub Run_lineConfigDialog()

    'Declare Function lineConfigDialog Lib "TAPI32.DLL" _
    '    (ByVal l_dwDeviceID As Long, ByVal l_hwndOwner As Long, ByVal s_lpszDeviceClass As String) As Long

    Dim l_DeviceID As Long                      ' lineConfigDialog .. Parameter 1 .. Value
    Dim l_hwnd As Long                          ' lineConfigDialog .. Parameter 2 .. Value
    Dim s_classname As String                   ' lineConfigDialog .. Parameter 3 .. Value
    
    Dim l_lineConfigDialog_Result As Long       ' lineConfigDialog .. Function Passed?
    
    gsLastTAPIFunctionRan = "lineConfigDialog"
    
    ' Init Parameters..
        
    l_DeviceID = CLng(frmMain.cbDevice.Text)
    l_hwnd = frmMain.hWnd
    s_classname = "tapi/line"
    
    ' Screen....
    frmStatus.lbStatus.AddItem " "
    frmStatus.lbStatus.AddItem "================================================================================================"
    frmStatus.lbStatus.AddItem "*** FUNCTION : lineConfigDialog ***"
    frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
        
    frmMain.lbStatusBrief.AddItem "FUNCTION : lineConfigDialog"
    frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
    DoEvents
        
    ' Run lineConfigDialog..
    l_lineConfigDialog_Result = RMSTAPIDeclarations.lineConfigDialog(l_DeviceID, l_hwnd, s_classname)
    
    ' Check if lineConfigDialog ran ok..
    If l_lineConfigDialog_Result = RESULT_SUCCESS Then
        ' Screen....
        frmStatus.lbStatus.AddItem "lineConfigDialog ran. SUCCESS"
        frmStatus.lbStatus.AddItem "l_DeviceID   = " & l_DeviceID & "."
        frmStatus.lbStatus.AddItem "l_hwnd       = " & l_hwnd & "."
        frmStatus.lbStatus.AddItem "s_classname  = " & s_classname & "."
    Else
        ' Screen....
        frmStatus.lbStatus.AddItem "lineConfigDialog ran. ERRORS"
        frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineConfigDialog_Result & " (" & Hex(l_lineConfigDialog_Result) & " hex)."
        frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineConfigDialog_Result) & "."
    End If
    
    ' Screen....
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1

End Sub

Public Sub Run_lineConfigDialogEdit()

    'Declare Function lineConfigDialogEdit Lib "TAPI32.DLL" _
    '    (ByVal l_dwDeviceID As Long, ByVal l_hwndOwner As Long, ByVal s_lpszDeviceClass As String, _
    '     ByRef ptr_lpDeviceConfigIn As VarString, ByVal l_dwSize As Long, ByRef struct_lpDeviceConfigOut As VarString) As Long

    'Declare Function lineConfigDialogEdit Lib "TAPI32.DLL" _
    '    (ByVal l_dwDeviceID As Long, ByVal l_hwndOwner As Long, ByVal s_lpszDeviceClass As String, _
    '     ptr_lpDeviceConfigIn As Any, ByVal l_dwSize As Long, ptr_lpDeviceConfigOut As Any) As Long

    Dim l_DeviceID As Long                      ' lineConfigDialogEdit .. Parameter 1 .. Value
    Dim l_hwnd As Long                          ' lineConfigDialogEdit .. Parameter 2 .. Value
    Dim s_classname As String                   ' lineConfigDialogEdit .. Parameter 3 .. Value
    Dim struct_DeviceConfigIn As VarString      ' lineConfigDialogEdit .. Parameter 4 .. Value
    Dim l_Size As Long                          ' lineConfigDialogEdit .. Parameter 5 .. Value
    Dim struct_DeviceConfigOut As VarString     ' lineConfigDialogEdit .. Parameter 6 .. Reference
    
    Dim l_lineConfigDialogEdit_Result As Long   ' lineConfigDialogEdit .. Function Passed?
    
    gsLastTAPIFunctionRan = "lineConfigDialogEdit"
    
    ' Init Parameters..
        
    l_DeviceID = CLng(frmMain.cbDevice.Text)
    l_hwnd = frmMain.hWnd
    s_classname = "tapi/line"
    
    gbDoneGevDevConfig = False
    
    Call RMSTAPIRoutines.Run_lineGetDevConfig
    
    While Not gbDoneGevDevConfig
        DoEvents
        DoEvents
    Wend
    
    ' Screen....
    frmStatus.lbStatus.AddItem " "
    frmStatus.lbStatus.AddItem "================================================================================================"
    frmStatus.lbStatus.AddItem "*** FUNCTION : lineConfigDialogEdit ***"
    frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
        
    frmMain.lbStatusBrief.AddItem "FUNCTION : lineConfigDialogEdit"
    frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
    DoEvents
        
    ' Set Memory needed...
    struct_DeviceConfigOut.l_dwTotalSize = VARSTRING_FIXEDSIZE
    struct_DeviceConfigIn = struct_DeviceConfig_Saved
        
    ' Run lineConfigDialogEdit..
    l_lineConfigDialogEdit_Result = RMSTAPIDeclarations.lineConfigDialogEdit( _
        l_DeviceID, l_hwnd, s_classname, struct_DeviceConfigIn, l_Size, struct_DeviceConfigOut)
    
    ' Check if lineConfigDialogEdit ran ok..
    If l_lineConfigDialogEdit_Result = RESULT_SUCCESS Then
        ' Screen....
        frmStatus.lbStatus.AddItem "lineConfigDialogEdit ran. SUCCESS"
        frmStatus.lbStatus.AddItem "l_DeviceID                                = " & l_DeviceID & "."
        frmStatus.lbStatus.AddItem "l_hwnd                                    = " & l_hwnd & "."
        frmStatus.lbStatus.AddItem "s_classname                               = " & s_classname & "."
        frmStatus.lbStatus.AddItem "l_Size                                    = " & l_Size & "."
        
        frmStatus.lbStatus.AddItem "struct_DeviceConfigOut.l_dwNeededSize     = " & _
            struct_DeviceConfigOut.l_dwNeededSize & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigOut.l_dwStringFormat   = " & _
            struct_DeviceConfigOut.l_dwStringFormat & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigOut.l_dwStringOffset   = " & _
            struct_DeviceConfigOut.l_dwStringOffset & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigOut.l_dwStringSize     = " & _
            struct_DeviceConfigOut.l_dwStringSize & "."
        frmStatus.lbStatus.AddItem "struct_DeviceConfigOut.l_dwTotalSize      = " & _