rmstapiroutines.bas

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

        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwDevSpecificOffset             = " _
            & struct_MyAddressCaps.l_dwDevSpecificOffset & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwDevSpecificSize               = " _
            & struct_MyAddressCaps.l_dwDevSpecificSize & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwDialToneModes                 = " _
            & struct_MyAddressCaps.l_dwDialToneModes & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwDialToneModes                 = " _
            & RMSTAPIEvents.lineDialTones(struct_MyAddressCaps.l_dwDialToneModes) & ". (Decoded)"
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwDisconnectModes               = " _
            & struct_MyAddressCaps.l_dwDisconnectModes & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwDisconnectModes               = " _
            & RMSTAPIEvents.lineDisconnectionModes(struct_MyAddressCaps.l_dwDisconnectModes) & ". (Decoded)"
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwForwardModes                  = " _
            & struct_MyAddressCaps.l_dwForwardModes & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwForwardModes                  = " _
            & RMSTAPIEvents.lineFwdModes(struct_MyAddressCaps.l_dwForwardModes) & ". (Decoded)"
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwLineDeviceID                  = " _
            & struct_MyAddressCaps.l_dwLineDeviceID & "."
        
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxCallCompletions            = " _
            & struct_MyAddressCaps.l_dwMaxCallCompletions & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxCallDataSize               = " _
            & struct_MyAddressCaps.l_dwMaxCallDataSize & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxForwardEntries             = " _
            & struct_MyAddressCaps.l_dwMaxForwardEntries & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxFwdNumRings                = " _
            & struct_MyAddressCaps.l_dwMaxFwdNumRings & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxNoAnswerTimeout            = " _
            & struct_MyAddressCaps.l_dwMaxNoAnswerTimeout & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxNumActiveCalls             = " _
            & struct_MyAddressCaps.l_dwMaxNumActiveCalls & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxNumConference              = " _
            & struct_MyAddressCaps.l_dwMaxNumConference & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxNumOnHoldCalls             = " _
            & struct_MyAddressCaps.l_dwMaxNumOnHoldCalls & "."
        
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxNumOnHoldPendingCalls      = " _
            & struct_MyAddressCaps.l_dwMaxNumOnHoldPendingCalls & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxNumTransConf               = " _
            & struct_MyAddressCaps.l_dwMaxNumTransConf & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMaxSpecificEntries            = " _
            & struct_MyAddressCaps.l_dwMaxSpecificEntries & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwMinFwdNumRings                = " _
            & struct_MyAddressCaps.l_dwMinFwdNumRings & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwNeededSize                    = " _
            & struct_MyAddressCaps.l_dwNeededSize & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwNumCallTreatments             = " _
            & struct_MyAddressCaps.l_dwNumCallTreatments & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwNumCompletionMessages         = " _
            & struct_MyAddressCaps.l_dwNumCompletionMessages & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwOfferingModes                 = " _
            & struct_MyAddressCaps.l_dwOfferingModes & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwParkModes                     = " _
            & struct_MyAddressCaps.l_dwParkModes & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwParkModes                     = " _
            & RMSTAPIEvents.lineParkModes(struct_MyAddressCaps.l_dwParkModes) & ". (Decoded)"
        
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwPredictiveAutoTransferStates  = " _
            & struct_MyAddressCaps.l_dwPredictiveAutoTransferStates & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwPredictiveAutoTransferStates  = " _
            & RMSTAPIEvents.lineCallStateMsg(struct_MyAddressCaps.l_dwPredictiveAutoTransferStates) & ". (Decoded)"
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwRedirectingIDFlags            = " _
            & struct_MyAddressCaps.l_dwRedirectingIDFlags & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwRedirectingIDFlags            = " _
            & RMSTAPIEvents.lineCallPartyID(struct_MyAddressCaps.l_dwRedirectingIDFlags) & ". (Decoded)"
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwRedirectionIDFlags            = " _
            & struct_MyAddressCaps.l_dwRedirectionIDFlags & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwRedirectionIDFlags            = " _
            & RMSTAPIEvents.lineCallPartyID(struct_MyAddressCaps.l_dwRedirectionIDFlags) & ". (Decoded)"
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwRemoveFromConfCaps            = " _
            & struct_MyAddressCaps.l_dwRemoveFromConfCaps & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwRemoveFromConfCaps            = " _
            & RMSTAPIEvents.lineRemFromConfCap(struct_MyAddressCaps.l_dwRemoveFromConfCaps) & ". (Decoded)"
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwRemoveFromConfState           = " _
            & struct_MyAddressCaps.l_dwRemoveFromConfState & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwSpecialInfo                   = " _
            & struct_MyAddressCaps.l_dwSpecialInfo & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwSpecialInfo                   = " _
            & RMSTAPIEvents.lineSpecialInfo(struct_MyAddressCaps.l_dwSpecialInfo) & ". (Decoded)"
        
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwTotalSize                     = " _
            & struct_MyAddressCaps.l_dwTotalSize & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwTransferModes                 = " _
            & struct_MyAddressCaps.l_dwTransferModes & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwTransferModes                 = " _
            & RMSTAPIEvents.lineTransferModes(struct_MyAddressCaps.l_dwTransferModes) & ". (Decoded)"
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.l_dwUsedSize                      = " _
            & struct_MyAddressCaps.l_dwUsedSize & "."
        frmStatus.lbStatus.AddItem "struct_MyAddressCaps.mem                               = " _
            & struct_MyAddressCaps.mem & "."
    Else
        ' Screen....
        frmStatus.lbStatus.AddItem "lineGetAddressCaps ran. ERRORS"
        frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineGetAddressCaps_Result & " (" & Hex(l_lineGetAddressCaps_Result) & " hex)."
        frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineGetAddressCaps_Result) & "."
    End If
    
    ' Screen....
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1

End Sub

Public Sub Run_lineGetID()

    'Declare Function lineGetID Lib "TAPI32.DLL" _
    '    (ByVal l_hLine As Long, ByVal l_dwAddressID As Long, _
    '     ByVal l_hCall As Long, ByVal l_dwSelect As Long, _
    '     ByRef struct_lpDeviceID As VarString, ByVal s_lpszDeviceClass As String) As Long

    'Declare Function lineGetID Lib "TAPI32.DLL" _
    '    (ByVal l_hLine As Long, ByVal l_dwAddressID As Long, _
    '     ByVal l_hCall As Long, ByVal l_dwSelect As Long, _
    '     ptr_lpDeviceID As Any, ByVal s_lpszDeviceClass As String) As Long

    Dim l_Line As Long                  ' lineGetID .. Parameter 1 .. Value
    Dim l_AddrID As Long                ' lineGetID .. Parameter 2 .. Value
    Dim l_Call As Long                  ' lineGetID .. Parameter 3 .. Value
    Dim l_SelectModes As Long           ' lineGetID .. Parameter 5 .. Value
    Dim struct_Device As VarString      ' lineGetID .. Parameter 4 .. Reference
    Dim s_DeviceClass As String         ' lineGetID .. Parameter 6 .. Value
    
    Dim l_lineGetID_Result As Long      ' lineGetID .. Function Passed?
    
    gsLastTAPIFunctionRan = "lineGetID"
    
    ' Init Parameters..
        
    l_Line = RMSTAPIRoutines.glhLine
    If RMSTAPIRoutines.glhCall > 0 Then
        l_Call = RMSTAPIRoutines.glhCall
    End If
    l_SelectModes = LINECALLSELECT_LINE
    s_DeviceClass = "tapi/line"
    
    ' Screen....
    frmStatus.lbStatus.AddItem " "
    frmStatus.lbStatus.AddItem "================================================================================================"
    frmStatus.lbStatus.AddItem "*** FUNCTION : lineGetID ***"
    frmStatus.lbStatus.AddItem "------------------------------------------------------------------------------------------------"
        
    frmMain.lbStatusBrief.AddItem "FUNCTION : lineGetID"
    frmMain.lbStatusBrief.ListIndex = frmMain.lbStatusBrief.ListCount - 1
    DoEvents
        
    ' Set Memory needed...
    struct_Device.l_dwTotalSize = VARSTRING_FIXEDSIZE
        
    ' Run lineGetID..
    l_lineGetID_Result = RMSTAPIDeclarations.lineGetID( _
        l_Line, l_AddrID, l_Call, l_SelectModes, struct_Device, s_DeviceClass)
    
    ' Check if lineGetID ran ok..
    If l_lineGetID_Result = RESULT_SUCCESS Then
        ' Screen....
        frmStatus.lbStatus.AddItem "lineGetID ran. SUCCESS"
        frmStatus.lbStatus.AddItem "l_Line                           = " & l_Line & "."
        frmStatus.lbStatus.AddItem "l_AddrID                         = " & l_AddrID & "."
        frmStatus.lbStatus.AddItem "l_Call                           = " & l_Call & "."
        frmStatus.lbStatus.AddItem "l_SelectModes                    = " & l_SelectModes & "."
        frmStatus.lbStatus.AddItem "s_DeviceClass                    = " & s_DeviceClass & "."
        
        frmStatus.lbStatus.AddItem "struct_Device.l_dwNeededSize     = " & _
            struct_Device.l_dwNeededSize & "."
        frmStatus.lbStatus.AddItem "struct_Device.l_dwStringFormat   = " & _
            struct_Device.l_dwStringFormat & "."
        frmStatus.lbStatus.AddItem "struct_Device.l_dwStringOffset   = " & _
            struct_Device.l_dwStringOffset & "."
        frmStatus.lbStatus.AddItem "struct_Device.l_dwStringSize     = " & _
            struct_Device.l_dwStringSize & "."
        frmStatus.lbStatus.AddItem "struct_Device.l_dwTotalSize      = " & _
            struct_Device.l_dwTotalSize & "."
        frmStatus.lbStatus.AddItem "struct_Device.l_dwUsedSize       = " & _
            struct_Device.l_dwUsedSize & "."
    Else
        ' Screen....
        frmStatus.lbStatus.AddItem "lineGetID ran. ERRORS"
        frmStatus.lbStatus.AddItem "** >> Error returned : " & l_lineGetID_Result & " (" & Hex(l_lineGetID_Result) & " hex)."
        frmStatus.lbStatus.AddItem "** >> Error text : " & RMSTAPIErrorHandler.Tapi_Error_Text(l_lineGetID_Result) & "."
    End If
    
    ' Screen....
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1

End Sub

Public Sub Run_lineDeallocateCall()

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

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

End Sub

Public Sub Run_lineDrop()

    'Declare Function lineDrop Lib "TAPI32.DLL" _
    '    (ByVal l_hCall As Long, ByRef s_lpsUserUserInfo As Any, ByVal l_dwSize As Long) As Long

    'Declare Function lineDrop Lib "TAPI32.DLL" _
    '    (ByVal l_hCall As Long, s_lpsUserUserInfo As Any, ByVal l_dwSize As Long) As Long

    Dim l_Call As Long                     ' lineDrop .. Parameter 1 .. Value
    Dim s_UserUserInfo As String           ' lineDrop .. Parameter 2 .. Reference
    Dim l_Size As Long                     ' lineDrop .. Parameter 3 .. Value
    
    Dim l_lineDrop_Result As Long          ' lineDrop .. Function Passed?