rmstapideclarations.bas

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

Attribute VB_Name = "RMSTAPIDeclarations"
Option Explicit

' * Program written by R.Sterling for Avaya *
' * No queries should be directed to this individuals in connection with this program.
'   All queries should be directed to Avaya Technical Support (FSG) *
' * Copyright Avaya 2002 *

'=======================================================================================================================
' FUNCTION Declarations BEGIN
'=======================================================================================================================

'Global Const DEFAULT_SIZE = 3096
Global Const DEFAULT_SIZE = 4096

'-----------------------------------------------------------------------------------------------------------------------

' lineInitialize Declarations BEGIN

    ' Old Declaration. Not to use anymore BEGIN
        'Type lineCallbackFunc
        '    l_hDevice As Long
        '    l_dwMsg As Long
        '    l_dwCallbackInstance As Long
        '    l_dwParam1 As Long
        '    l_dwParam2 As Long
        '    l_dwParam3 As Long
        'End Type
    
        'Declare Function lineInitialize Lib "TAPI32.DLL" _
        '    (ByRef l_lphLineApp As Long, ByVal l_hInstance As Long, _
        '     ByRef struct_lpfnCallback As lineCallbackFunc, ByVal s_lpszAppName As String, _
        '     ByRef l_lpdwNumDevs As Long) As Long
    ' Old Declaration. Not to use anymore END

Declare Function lineInitialize Lib "TAPI32.DLL" _
    (l_lphLineApp As Long, ByVal l_hInstance As Long, _
     ByVal struct_lpfnCallback As Long, ByVal s_lpszAppName As String, _
     l_lpdwNumDevs As Long) As Long

' lineInitialize Declarations END

'-----------------------------------------------------------------------------------------------------------------------

' Structures used by...
'   lineOpen (in proc), lineMakeCall (in proc),
'   lineGetDevCaps (in proc + dec), lineGetCallInfo (in proc + dec)
' BEGIN

Type lineDialParams
    l_dwDialPause As Long
    l_dwDialSpeed As Long
    l_dwDigitDuration As Long
    l_dwWaitForDialtone As Long
End Type

Global Const LINECALLPARAMS_MEMSIZE = DEFAULT_SIZE          ' Default is DEFAULT_SIZE

Type lineCallParams
    l_dwTotalSize As Long
    l_dwMinRate As Long
    l_dwMaxRate As Long
    l_dwMediaMode As Long
    l_dwCallParamsFlags As Long
    l_dwAddressMode As Long
    l_dwAddressID As Long
    struct_DialParams As lineDialParams         ' see above for declaration...
    l_dwOrigAddressSize As Long
    l_dwOrigAddressOffset As Long
    l_dwDisplayableAddressSize As Long
    l_dwDisplayableAddressOffset As Long
    l_dwCalledPartySize As Long
    l_dwCalledPartyOffset As Long
    l_dwCommentSize As Long
    l_dwCommentOffset As Long
    l_dwUserUserInfoSize As Long
    l_dwUserUserInfoOffset As Long
    l_dwHighLevelCompSize As Long
    l_dwHighLevelCompOffset As Long
    l_dwLowLevelCompSize As Long
    l_dwLowLevelCompOffset As Long
    l_dwDevSpecificSize As Long
    l_dwDevSpecificOffset As Long
    ' >= TAPI 2.0...  BEGIN
    l_dwPredictiveAutoTransferStates As Long
    l_dwTargetAddressSize As Long
    l_dwTargetAddressOffset As Long
    l_dwSendingFlowspecSize As Long
    l_dwSendingFlowspecOffset As Long
    l_dwReceivingFlowspecSize As Long
    l_dwReceivingFlowspecOffset As Long
    l_dwDeviceClassSize As Long
    l_dwDeviceClassOffset As Long
    l_dwDeviceConfigSize As Long
    l_dwDeviceConfigOffset As Long
    l_dwCallDataSize As Long
    l_dwCallDataOffset As Long
    l_dwNoAnswerTimeout As Long
    l_dwCallingPartyIDSize As Long
    l_dwCallingPartyIDOffset As Long
    ' >= TAPI 2.0...  END
    ' Added to declaration BEGIN
    mem As String * LINECALLPARAMS_MEMSIZE          ' Default is DEFAULT_SIZE
    ' Added to declaration BEGIN
End Type

Global Const LINECALLPARAMS_FIXEDSIZE = 112         ' Default is 112

    ' Old Declaration. Not to use anymore BEGIN
        'Type LINECALLPARAMS_STR
        '    mem As String * LINECALLPARAMS_FIXEDSIZE
        'End Type
    ' Old Declaration. Not to use anymore END

' Structures used by...
'   lineOpen (in proc), lineMakeCall (in proc),
'   lineGetDevCaps (in proc + dec), lineGetCallInfo (in proc + dec)
' END

'-----------------------------------------------------------------------------------------------------------------------

' lineOpen Declarations BEGIN

    ' Old Declaration. Not to use anymore BEGIN
        'Declare Function lineOpen Lib "TAPI32.DLL" _
        '    (ByVal l_hLineApp As Long, ByVal l_dwDeviceID As Long, _
        '     ByRef l_lphLine As Long, ByVal l_dwAPIVersion As Long, _
        '     ByVal l_dwExtVersion As Long, ByVal l_dwCallbackInstance As Long, _
        '     ByVal l_dwPrivileges As Long, ByVal l_dwMediaModes As Long, _
        '     ByRef struct_lpCallParams As lineCallParams) As Long
    ' Old Declaration. Not to use anymore END

Declare Function lineOpen Lib "TAPI32.DLL" _
    (ByVal l_hLineApp As Long, ByVal l_dwDeviceID As Long, _
     l_lphLine As Long, ByVal l_dwAPIVersion As Long, _
     ByVal l_dwExtVersion As Long, ByVal l_dwCallbackInstance As Long, _
     ByVal l_dwPrivileges As Long, ByVal l_dwMediaModes As Long, _
     struct_lpCallParams As Any) As Long

' lineOpen Declarations END

'-----------------------------------------------------------------------------------------------------------------------
     
' lineMakeCall Declarations BEGIN
     
    ' Old Declaration. Not to use anymore BEGIN
        'Declare Function lineMakeCall Lib "TAPI32.DLL" _
        '    (ByVal l_hLine As Long, ByRef l_lphCall As Long, _
        '     ByVal s_lpszDestAddress As String, ByVal l_dwCountryCode As Long, _
        '     ByRef struct_lpCallParams As lineCallParams) As Long
    ' Old Declaration. Not to use anymore END
     
Declare Function lineMakeCall Lib "TAPI32.DLL" _
    (ByVal l_hLine As Long, l_lphCall As Long, _
     ByVal s_lpszDestAddress As String, ByVal l_dwCountryCode As Long, _
     struct_lpCallParams As Any) As Long
     
' lineMakeCall Declarations END

'-----------------------------------------------------------------------------------------------------------------------

' lineGetDevCaps Declarations BEGIN

Global Const LINEDEVCAPS_MEMSIZE = DEFAULT_SIZE

Type lineDevCaps
    l_dwTotalSize As Long
    l_dwNeededSize As Long
    l_dwUsedSize As Long

    l_dwProviderInfoSize As Long
    l_dwProviderInfoOffset As Long

    l_dwSwitchInfoSize As Long
    l_dwSwitchInfoOffset As Long

    l_dwPermanentLineID As Long
    l_dwLineNameSize As Long
    l_dwLineNameOffset As Long
    l_dwStringFormat As Long

    l_dwAddressModes As Long
    l_dwNumAddresses As Long
    l_dwBearerModes As Long
    l_dwMaxRate As Long
    l_dwMediaModes As Long

    l_dwGenerateToneModes As Long
    l_dwGenerateToneMaxNumFreq As Long
    l_dwGenerateDigitModes As Long
    l_dwMonitorToneMaxNumFreq As Long
    l_dwMonitorToneMaxNumEntries As Long
    l_dwMonitorDigitModes As Long
    l_dwGatherDigitsMinTimeout As Long
    l_dwGatherDigitsMaxTimeout As Long

    l_dwMedCtlDigitMaxListSize As Long
    l_dwMedCtlMediaMaxListSize As Long
    l_dwMedCtlToneMaxListSize As Long
    l_dwMedCtlCallStateMaxListSize As Long

    l_dwDevCapFlags As Long
    l_dwMaxNumActiveCalls As Long
    l_dwAnswerMode As Long
    l_dwRingModes As Long
    l_dwLineStates As Long

    l_dwUUIAcceptSize As Long
    l_dwUUIAnswerSize As Long
    l_dwUUIMakeCallSize As Long
    l_dwUUIDropSize As Long
    l_dwUUISendUserUserInfoSize As Long
    l_dwUUICallInfoSize As Long

    struct_MinDialParams As lineDialParams
    struct_MaxDialParams As lineDialParams
    struct_DefaultDialParams As lineDialParams

    l_dwNumTerminals As Long
    l_dwTerminalCapsSize As Long
    l_dwTerminalCapsOffset As Long
    l_dwTerminalTextEntrySize As Long
    l_dwTerminalTextSize As Long
    l_dwTerminalTextOffset As Long

    l_dwDevSpecificSize As Long
    l_dwDevSpecificOffset As Long
    
    ' Extra params...
    l_dwLineFeatures As Long
    mem As String * LINEDEVCAPS_MEMSIZE
End Type
Global Const LINEDEVCAPS_FIXEDSIZE = 240

    ' Old Declaration. Not to use anymore BEGIN
        'Type LINEDEVCAPS_STR
        '    mem As String * LINEDEVCAPS_FIXEDSIZE
        'End Type
    ' Old Declaration. Not to use anymore END

    ' Old Declaration. Not to use anymore BEGIN
        'Declare Function lineGetDevCaps Lib "TAPI32.DLL" _
        '    (ByVal l_hLineApp As Long, ByVal l_dwDeviceID As Long, _
        '     ByVal l_dwAPIVersion As Long, ByVal l_dwExtVersion As Long, _
        '     ByRef struct_lpLineDevCaps As lineDevCaps) As Long
    ' Old Declaration. Not to use anymore END

Declare Function lineGetDevCaps Lib "TAPI32.DLL" _
    (ByVal l_hLineApp As Long, ByVal l_dwDeviceID As Long, _
     ByVal l_dwAPIVersion As Long, ByVal l_dwExtVersion As Long, _
     struct_lpLineDevCaps As lineDevCaps) As Long

' lineGetDevCaps Declarations END

'-----------------------------------------------------------------------------------------------------------------------

' Structures used by...
'   lineNegotiateAPIVersion (in proc + dec), lineGetAppPriority (in proc + dec),
' BEGIN

Type lineExtensionID
    l_dwExtensionID0 As Long
    l_dwExtensionID1 As Long
    l_dwExtensionID2 As Long
    l_dwExtensionID3 As Long
End Type
Global Const LINEEXTENSIONID_FIXEDSIZE = 16

' Structures used by...
'   lineNegotiateAPIVersion (in proc + dec), lineGetAppPriority (in proc + dec),
' END

'-----------------------------------------------------------------------------------------------------------------------

' lineNegotiateAPIVersion Declarations BEGIN

    ' Old Declaration. Not to use anymore BEGIN
        'Type LINEEXTENSIONID_STR
        '    mem As String * LINEEXTENSIONID_FIXEDSIZE
        'End Type
    ' Old Declaration. Not to use anymore END

    ' Old Declaration. Not to use anymore BEGIN
        'Declare Function lineNegotiateAPIVersion Lib "TAPI32.DLL" _
        '    (ByVal l_hLineApp As Long, ByVal l_dwDeviceID As Long, _
        '     ByVal l_dwAPILowVersion As Long, ByVal l_dwAPIHighVersion As Long, _
        '     ByRef l_lpdwAPIVersion As Long, ByRef struct_lpExtensionID As LINEEXTENSIONID) As Long
    ' Old Declaration. Not to use anymore END

Declare Function lineNegotiateAPIVersion Lib "TAPI32.DLL" _
    (ByVal l_hLineApp As Long, ByVal l_dwDeviceID As Long, _
     ByVal l_dwAPILowVersion As Long, ByVal l_dwAPIHighVersion As Long, _
     l_lpdwAPIVersion As Long, struct_lpExtensionID As lineExtensionID) As Long

' lineNegotiateAPIVersion Declarations END

'-----------------------------------------------------------------------------------------------------------------------

' lineClose Declarations BEGIN

Declare Function lineClose Lib "TAPI32.DLL" (ByVal l_hLine As Long) As Long

' lineClose Declarations BEGIN

'-----------------------------------------------------------------------------------------------------------------------

' lineShutdown Declarations BEGIN

Declare Function lineShutdown Lib "TAPI32.DLL" (ByVal l_hLineApp As Long) As Long

' lineShutdown Declarations END

'-----------------------------------------------------------------------------------------------------------------------

' lineDrop Declarations BEGIN

    ' Old Declaration. Not to use anymore BEGIN
        'Declare Function lineDrop Lib "TAPI32.DLL" _
        '    (ByVal l_hCall As Long, ByRef s_lpsUserUserInfo As Any, ByVal l_dwSize As Long) As Long
    ' Old Declaration. Not to use anymore END

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

' lineDrop Declarations END

'-----------------------------------------------------------------------------------------------------------------------

' lineAnswer Declarations BEGIN

    ' Old Declaration. Not to use anymore BEGIN
        'Declare Function lineAnswer Lib "TAPI32.DLL" _
        '    (ByVal l_hCall As Long, ByRef s_lpsUserUserInfo As Any, ByVal l_dwSize As Long) As Long
    ' Old Declaration. Not to use anymore END

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

' lineAnswer Declarations END

'-----------------------------------------------------------------------------------------------------------------------

' lineDeallocate Declarations BEGIN

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