rmstapideclarations.bas

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

    l_dwAppInfoOffset As Long
    mem As String * LINEDEVSTATUS_MEMSIZE
End Type
Global Const LINEDEVSTATUS_FIXEDSIZE = 88

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

' Old Declaration. Not to use anymore BEGIN
    'Declare Function lineGetLineDevStatus Lib "TAPI32.DLL" _
    '    (ByVal l_hLine As Long, ByRef struct_lpLineDevStatus As lineDevStatus) As Long
' Old Declaration. Not to use anymore END

Declare Function lineGetLineDevStatus Lib "TAPI32.DLL" _
    (ByVal l_hLine As Long, ptr_lpLineDevStatus As Any) As Long

' lineGetLineDevStatus Declarations END

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

' lineSetCallPrivilege Declarations BEGIN

Declare Function lineSetCallPrivilege Lib "TAPI32.DLL" _
    (ByVal l_hCall As Long, ByVal l_dwCallPrivilege As Long) As Long

' lineSetCallPrivilege Declarations END

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

' lineGetID Declarations BEGIN

' Old Declaration. Not to use anymore BEGIN
    '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
' Old Declaration. Not to use anymore END

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

' lineGetID Declarations END

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

' lineGetAddressCaps Declarations BEGIN

Global Const LINEADDRESSCAPS_MEMSIZE = DEFAULT_SIZE

Type lineAddressCaps
    l_dwTotalSize As Long
    l_dwNeededSize As Long
    l_dwUsedSize As Long

    l_dwLineDeviceID As Long

    l_dwAddressSize As Long
    l_dwAddressOffset As Long

    l_dwDevSpecificSize As Long
    l_dwDevSpecificOffset As Long

    l_dwAddressSharing As Long
    l_dwAddressStates As Long
    l_dwCallInfoStates As Long
    l_dwCallerIDFlags As Long
    l_dwCalledIDFlags As Long
    l_dwConnectedIDFlags As Long
    l_dwRedirectionIDFlags As Long
    l_dwRedirectingIDFlags As Long
    l_dwCallStates As Long
    l_dwDialToneModes As Long
    l_dwBusyModes As Long
    l_dwSpecialInfo As Long
    l_dwDisconnectModes As Long

    l_dwMaxNumActiveCalls As Long
    l_dwMaxNumOnHoldCalls As Long
    l_dwMaxNumOnHoldPendingCalls As Long
    l_dwMaxNumConference As Long
    l_dwMaxNumTransConf As Long

    l_dwAddrCapFlags As Long
    l_dwCallFeatures As Long
    l_dwRemoveFromConfCaps As Long
    l_dwRemoveFromConfState As Long
    l_dwTransferModes As Long
    l_dwParkModes As Long

    l_dwForwardModes As Long
    l_dwMaxForwardEntries As Long
    l_dwMaxSpecificEntries As Long
    l_dwMinFwdNumRings As Long
    l_dwMaxFwdNumRings As Long

    l_dwMaxCallCompletions As Long
    l_dwCallCompletionConds As Long
    l_dwCallCompletionModes As Long
    l_dwNumCompletionMessages As Long
    l_dwCompletionMsgTextEntrySize As Long
    l_dwCompletionMsgTextSize As Long
    l_dwCompletionMsgTextOffset As Long
    
    l_dwAddressFeatures As Long
    
    l_dwPredictiveAutoTransferStates As Long
    l_dwNumCallTreatments As Long
    l_dwCallTreatmentListSize As Long
    l_dwCallTreatmentListOffset As Long
    l_dwDeviceClassesSize As Long
    l_dwDeviceClassesOffset As Long
    l_dwMaxCallDataSize As Long
    l_dwCallFeatures2 As Long
    l_dwMaxNoAnswerTimeout As Long
    l_dwConnectedModes As Long
    l_dwOfferingModes As Long
    l_dwAvailableMediaModes As Long
    mem As String * LINEADDRESSCAPS_MEMSIZE
End Type
Global Const LINEADDRESSCAPS_FIXEDSIZE = 238

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

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

Declare Function lineGetAddressCaps Lib "TAPI32.DLL" _
    (ByVal l_hLineApp As Long, ByVal l_dwDeviceID As Long, _
     ByVal l_dwAddressID As Long, ByVal l_dwAPIVersion As Long, _
     ByVal l_dwExtVersion As Long, ptr_lpAddressCaps As Any) As Long

' lineGetAddressCaps Declarations END

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

' lineSetStatusMessages Declarations BEGIN

Declare Function lineSetStatusMessages Lib "TAPI32.DLL" _
    (ByVal l_hLine As Long, ByVal l_dwLineStates As Long, ByVal l_dwAddressStates As Long) As Long

Global Const ALL_LINE_STATES = &H1FFFFF
Global Const ALL_ADDR_STATES = &H1FF&

' lineSetStatusMessages Declarations END

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

' lineGetAddressStatus Declarations BEGIN

Global Const LINEADDRESSSTATUS_MEMSIZE = DEFAULT_SIZE

Type lineAddressStatus
    l_dwTotalSize As Long
    l_dwNeededSize As Long
    l_dwUsedSize As Long

    l_dwNumInUse As Long
    l_dwNumActiveCalls As Long
    l_dwNumOnHoldCalls As Long
    l_dwNumOnHoldPendCalls As Long
    
    l_dwAddressFeatures As Long
    l_dwNumRingsNoAnswer As Long
    
    l_dwForwardNumEntries As Long
    l_dwForwardSize As Long
    l_dwForwardOffset As Long

    l_dwTerminalModesSize As Long
    l_dwTerminalModesOffset As Long

    l_dwDevSpecificSize As Long
    l_dwDevSpecificOffset As Long
    
    mem As String * LINEADDRESSSTATUS_MEMSIZE
End Type
Global Const LINEADDRESSSTATUS_FIXEDSIZE = 64

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

' Old Declaration. Not to use anymore BEGIN
    'Declare Function lineGetAddressStatus Lib "TAPI32.DLL" _
    '    (ByVal l_hLine As Long, ByVal l_dwAddressID As Long, ByRef struct_lpAddressStatus As lineAddressStatus) As Long
' Old Declaration. Not to use anymore END

Declare Function lineGetAddressStatus Lib "TAPI32.DLL" _
    (ByVal l_hLine As Long, ByVal l_dwAddressID As Long, ptr_lpAddressStatus As Any) As Long

' lineGetAddressStatus Declarations END

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

' lineMonitorTones Declarations BEGIN

Type lineMonitorTone
    l_dwAppSpecific As Long
    l_dwDuration As Long
    l_dwFrequency1 As Long
    l_dwFrequency2 As Long
    l_dwFrequency3 As Long
End Type
Global Const LINEMONITORTONE_FIXEDSIZE = 20

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

' Old Declaration. Not to use anymore BEGIN
    'Declare Function lineMonitorTones Lib "TAPI32.DLL" _
    '    (ByVal l_hCall As Long, ByRef struct_lpToneList As lineMonitorTone, ByVal l_dwNumEntries As Long) As Long
' Old Declaration. Not to use anymore END

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

' lineMonitorTones Declarations END

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

' lineGenerateDigits Declarations BEGIN

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

' lineGenerateDigits Declarations END

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

' lineGenerateTone Declarations BEGIN

Type lineGenerateTone_Type
    l_dwFrequency As Long
    l_dwCadenceOn As Long
    l_dwCadenceOff As Long
    l_dwVolume As Long
End Type
Global Const LINEGENERATETONE_FIXEDSIZE = 16

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

' Old Declaration. Not to use anymore BEGIN
    'Declare Function lineGenerateTone Lib "TAPI32.DLL" _
    '    (ByVal l_hCall As Long, ByVal l_dwToneMode As Long, ByVal l_dwDuration As Long, _
    '     ByVal l_dwNumTones As Long, ByRef struct_lpTones As lineGenerateTone_Type) As Long
' Old Declaration. Not to use anymore END

Declare Function lineGenerateTone Lib "TAPI32.DLL" _
    (ByVal l_hCall As Long, ByVal l_dwToneMode As Long, ByVal l_dwDuration As Long, _
     ByVal l_dwNumTones As Long, ptr_lpTones As Any) As Long

' lineGenerateTone Declarations END

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

' lineGetNumRings Declarations BEGIN

Declare Function lineGetNumRings Lib "TAPI32.DLL" _
    (ByVal l_hLine As Long, ByVal l_dwAddressID As Long, ByRef l_lpdwNumRings As Long) As Long

' lineGetNumRings Declarations END

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

' lineSetNumRings Declarations BEGIN

Declare Function lineSetNumRings Lib "TAPI32.DLL" _
    (ByVal l_hLine As Long, ByVal l_dwAddressID As Long, ByVal l_dwNumRings As Long) As Long

' lineSetNumRings Declarations END

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

' lineMonitorDigits Declarations BEGIN

Declare Function lineMonitorDigits Lib "TAPI32.DLL" (ByVal l_hCall As Long, ByVal l_dwDigitModes As Long) As Long

' lineMonitorDigits Declarations END

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

' lineNegotiateExtVersion Declarations BEGIN

Declare Function lineNegotiateExtVersion Lib "TAPI32.DLL" _
    (ByVal l_hLineApp As Long, ByVal l_dwDeviceID As Long, _
     ByVal l_dwAPIVersion As Long, ByVal l_dwExtLowVersion As Long, _
     ByVal l_dwExtHighVersion As Long, ByRef l_lpdwExtVersion As Long) As Long

' lineNegotiateExtVersion Declarations END

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

' lineSetCallData Declarations BEGIN

Declare Function lineSetCallData Lib "TAPI32.DLL" _
    (ByVal l_hCall As Long, ByRef l_lpCallData As Long, ByVal l_dwSize As Long) As Long

' lineSetCallData Declarations END

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

' lineGetAddressID Declarations BEGIN

' Old Declaration. Not to use anymore BEGIN
    'Declare Function lineGetAddressID Lib "TAPI32.DLL" _
    '    (ByVal l_hLine As Long, ByRef l_lpdwAddressID As Long, _
    '     ByVal l_dwAddressMode As Long, ByRef lpsAddress As Long, ByVal l_dwSize As Long) As Long
' Old Declaration. Not to use anymore END

Declare Function lineGetAddressID Lib "TAPI32.DLL" _
    (ByVal l_hLine As Long, ByRef l_lpdwAddressID As Long, _
     ByVal l_dwAddressMode As Long, lpsAddress As Any, ByVal l_dwSize As Long) As Long

' lineGetAddressID Declarations END

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

' lineGetAppPriority Declarations BEGIN

Declare Function lineGetAppPriority Lib "TAPI32.DLL" _
    (ByVal s_lpszAppFilename As String, ByVal l_dwMediaMode As Long, _
     ByRef struct_lpExtensionID As lineExtensionID, ByVal l_dwRequestMode As Long, _
     ByVal s_lpExtensionName As String, ByRef l_lpdwPriority As Long) As Long