aditapi3.pas

测试用例

// *********************************************************************//
// Interface: ITCollection
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5EC5ACF2-9C02-11D0-8362-00AA003CCABD}
// *********************************************************************//
  ITCollection = interface(IDispatch)
    ['{5EC5ACF2-9C02-11D0-8362-00AA003CCABD}']
    function  Get_Count: Integer; safecall;
    function  Get_Item(Index: Integer): OleVariant; safecall;
    function  Get__NewEnum: IUnknown; safecall;
    property Count: Integer read Get_Count;
    property Item[Index: Integer]: OleVariant read Get_Item; default;
    property _NewEnum: IUnknown read Get__NewEnum;
  end;

// *********************************************************************//
// DispIntf:  ITCollectionDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {5EC5ACF2-9C02-11D0-8362-00AA003CCABD}
// *********************************************************************//
  ITCollectionDisp = dispinterface
    ['{5EC5ACF2-9C02-11D0-8362-00AA003CCABD}']
    property Count: Integer readonly dispid 1610743808;
    property Item[Index: Integer]: OleVariant readonly dispid 0; default;
    property _NewEnum: IUnknown readonly dispid -4;
  end;

// *********************************************************************//
// Interface: ITCallStateEvent
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {62F47097-95C9-11D0-835D-00AA003CCABD}
// *********************************************************************//
  ITCallStateEvent = interface(IDispatch)
    ['{62F47097-95C9-11D0-835D-00AA003CCABD}']
    function  Get_Call: ITCallInfo; safecall;
    function  Get_State: CALL_STATE; safecall;
    function  Get_Cause: CALL_STATE_EVENT_CAUSE; safecall;
    function  Get_CallbackInstance: Integer; safecall;
    property Call: ITCallInfo read Get_Call;
    property State: CALL_STATE read Get_State;
    property Cause: CALL_STATE_EVENT_CAUSE read Get_Cause;
    property CallbackInstance: Integer read Get_CallbackInstance;
  end;

// *********************************************************************//
// DispIntf:  ITCallStateEventDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {62F47097-95C9-11D0-835D-00AA003CCABD}
// *********************************************************************//
  ITCallStateEventDisp = dispinterface
    ['{62F47097-95C9-11D0-835D-00AA003CCABD}']
    property Call: ITCallInfo readonly dispid 1;
    property State: CALL_STATE readonly dispid 2;
    property Cause: CALL_STATE_EVENT_CAUSE readonly dispid 3;
    property CallbackInstance: Integer readonly dispid 4;
  end;

// *********************************************************************//
// Interface: ITCallInfo
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {350F85D1-1227-11D3-83D4-00C04FB6809F}
// *********************************************************************//
  ITCallInfo = interface(IDispatch)
    ['{350F85D1-1227-11D3-83D4-00C04FB6809F}']
    function  Get_Address: ITAddress; safecall;
    function  Get_CallState: CALL_STATE; safecall;
    function  Get_Privilege: CALL_PRIVILEGE; safecall;
    function  Get_CallHub: ITCallHub; safecall;
    function  Get_CallInfoLong(CallInfoLong: CALLINFO_LONG): Integer; safecall;
    procedure Set_CallInfoLong(CallInfoLong: CALLINFO_LONG; plCallInfoLongVal: Integer); safecall;
    function  Get_CallInfoString(CallInfoString: CALLINFO_STRING): WideString; safecall;
    procedure Set_CallInfoString(CallInfoString: CALLINFO_STRING; const ppCallInfoString: WideString); safecall;
    function  Get_CallInfoBuffer(CallInfoBuffer: CALLINFO_BUFFER): OleVariant; safecall;
    procedure Set_CallInfoBuffer(CallInfoBuffer: CALLINFO_BUFFER; ppCallInfoBuffer: OleVariant); safecall;
    procedure GetCallInfoBuffer(CallInfoBuffer: CALLINFO_BUFFER; out pdwSize: DWORD;
                                out ppCallInfoBuffer: PByte1); safecall;
    procedure SetCallInfoBuffer(CallInfoBuffer: CALLINFO_BUFFER; dwSize: DWORD;
                                var pCallInfoBuffer: Byte); safecall;
    procedure ReleaseUserUserInfo; safecall;
    property Address: ITAddress read Get_Address;
    property CallState: CALL_STATE read Get_CallState;
    property Privilege: CALL_PRIVILEGE read Get_Privilege;
    property CallHub: ITCallHub read Get_CallHub;
    property CallInfoLong[CallInfoLong: CALLINFO_LONG]: Integer read Get_CallInfoLong write Set_CallInfoLong;
    property CallInfoString[CallInfoString: CALLINFO_STRING]: WideString read Get_CallInfoString write Set_CallInfoString;
    property CallInfoBuffer[CallInfoBuffer: CALLINFO_BUFFER]: OleVariant read Get_CallInfoBuffer write Set_CallInfoBuffer;
  end;

// *********************************************************************//
// DispIntf:  ITCallInfoDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {350F85D1-1227-11D3-83D4-00C04FB6809F}
// *********************************************************************//
  ITCallInfoDisp = dispinterface
    ['{350F85D1-1227-11D3-83D4-00C04FB6809F}']
    property Address: ITAddress readonly dispid 65537;
    property CallState: CALL_STATE readonly dispid 65538;
    property Privilege: CALL_PRIVILEGE readonly dispid 65539;
    property CallHub: ITCallHub readonly dispid 65540;
    property CallInfoLong[CallInfoLong: CALLINFO_LONG]: Integer dispid 65541;
    property CallInfoString[CallInfoString: CALLINFO_STRING]: WideString dispid 65542;
    property CallInfoBuffer[CallInfoBuffer: CALLINFO_BUFFER]: OleVariant dispid 65543;
    procedure GetCallInfoBuffer(CallInfoBuffer: CALLINFO_BUFFER; out pdwSize: DWORD;
                                out ppCallInfoBuffer: {??PByte1}OleVariant); dispid 65544;
    procedure SetCallInfoBuffer(CallInfoBuffer: CALLINFO_BUFFER; dwSize: DWORD;
                                var pCallInfoBuffer: Byte); dispid 65545;
    procedure ReleaseUserUserInfo; dispid 65546;
  end;

// *********************************************************************//
// Interface: ITAddress
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B1EFC386-9355-11D0-835C-00AA003CCABD}
// *********************************************************************//
  ITAddress = interface(IDispatch)
    ['{B1EFC386-9355-11D0-835C-00AA003CCABD}']
    function  Get_State: ADDRESS_STATE; safecall;
    function  Get_AddressName: WideString; safecall;
    function  Get_ServiceProviderName: WideString; safecall;
    function  Get_TAPIObject: ITTAPI; safecall;
    function  CreateCall(const pDestAddress: WideString; lAddressType: Integer; lMediaTypes: Integer): ITBasicCallControl; safecall;
    function  Get_Calls: OleVariant; safecall;
    function  EnumerateCalls: IEnumCall; safecall;
    function  Get_DialableAddress: WideString; safecall;
    function  CreateForwardInfoObject: ITForwardInformation; safecall;
    procedure Forward(const pForwardInfo: ITForwardInformation; const pCall: ITBasicCallControl); safecall;
    function  Get_CurrentForwardInfo: ITForwardInformation; safecall;
    procedure Set_MessageWaiting(pfMessageWaiting: WordBool); safecall;
    function  Get_MessageWaiting: WordBool; safecall;
    procedure Set_DoNotDisturb(pfDoNotDisturb: WordBool); safecall;
    function  Get_DoNotDisturb: WordBool; safecall;
    property State: ADDRESS_STATE read Get_State;
    property AddressName: WideString read Get_AddressName;
    property ServiceProviderName: WideString read Get_ServiceProviderName;
    property TAPIObject: ITTAPI read Get_TAPIObject;
    property Calls: OleVariant read Get_Calls;
    property DialableAddress: WideString read Get_DialableAddress;
    property CurrentForwardInfo: ITForwardInformation read Get_CurrentForwardInfo;
    property MessageWaiting: WordBool read Get_MessageWaiting write Set_MessageWaiting;
    property DoNotDisturb: WordBool read Get_DoNotDisturb write Set_DoNotDisturb;
  end;

// *********************************************************************//
// DispIntf:  ITAddressDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B1EFC386-9355-11D0-835C-00AA003CCABD}
// *********************************************************************//
  ITAddressDisp = dispinterface
    ['{B1EFC386-9355-11D0-835C-00AA003CCABD}']
    property State: ADDRESS_STATE readonly dispid 65537;
    property AddressName: WideString readonly dispid 65538;
    property ServiceProviderName: WideString readonly dispid 65539;
    property TAPIObject: ITTAPI readonly dispid 65540;
    function  CreateCall(const pDestAddress: WideString; lAddressType: Integer; lMediaTypes: Integer): ITBasicCallControl; dispid 65541;
    property Calls: OleVariant readonly dispid 65542;
    function  EnumerateCalls: IEnumCall; dispid 65543;
    property DialableAddress: WideString readonly dispid 65544;
    function  CreateForwardInfoObject: ITForwardInformation; dispid 65546;
    procedure Forward(const pForwardInfo: ITForwardInformation; const pCall: ITBasicCallControl); dispid 65547;
    property CurrentForwardInfo: ITForwardInformation readonly dispid 65548;
    property MessageWaiting: WordBool dispid 65550;
    property DoNotDisturb: WordBool dispid 65551;
  end;

// *********************************************************************//
// Interface: ITTAPI
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B1EFC382-9355-11D0-835C-00AA003CCABD}
// *********************************************************************//
  ITTAPI = interface(IDispatch)
    ['{B1EFC382-9355-11D0-835C-00AA003CCABD}']
    procedure Initialize; safecall;
    procedure Shutdown; safecall;
    function  Get_Addresses: OleVariant; safecall;
    function  EnumerateAddresses: IEnumAddress; safecall;
    function  RegisterCallNotifications(const pAddress: ITAddress; fMonitor: WordBool;
                                        fOwner: WordBool; lMediaTypes: Integer;
                                        lCallbackInstance: Integer): Integer; safecall;
    procedure UnregisterNotifications(lRegister: Integer); safecall;
    function  Get_CallHubs: OleVariant; safecall;
    function  EnumerateCallHubs: IEnumCallHub; safecall;
    procedure SetCallHubTracking(pAddresses: OleVariant; bTracking: WordBool); safecall;
    procedure EnumeratePrivateTAPIObjects(out ppEnumUnknown: IEnumUnknown); safecall;
    function  Get_PrivateTAPIObjects: OleVariant; safecall;
    procedure RegisterRequestRecipient(lRegistrationInstance: Integer; lRequestMode: Integer;
                                       fEnable: WordBool); safecall;
    procedure SetAssistedTelephonyPriority(const pAppFilename: WideString; fPriority: WordBool); safecall;
    procedure SetApplicationPriority(const pAppFilename: WideString; lMediaType: Integer;
                                     fPriority: WordBool); safecall;
    procedure Set_EventFilter(plFilterMask: Integer); safecall;
    function  Get_EventFilter: Integer; safecall;
    property Addresses: OleVariant read Get_Addresses;
    property CallHubs: OleVariant read Get_CallHubs;
    property PrivateTAPIObjects: OleVariant read Get_PrivateTAPIObjects;
    property EventFilter: Integer read Get_EventFilter write Set_EventFilter;
  end;

// *********************************************************************//
// DispIntf:  ITTAPIDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B1EFC382-9355-11D0-835C-00AA003CCABD}
// *********************************************************************//
  ITTAPIDisp = dispinterface
    ['{B1EFC382-9355-11D0-835C-00AA003CCABD}']
    procedure Initialize; dispid 65549;
    procedure Shutdown; dispid 65550;
    property Addresses: OleVariant readonly dispid 65537;
    function  EnumerateAddresses: IEnumAddress; dispid 65538;
    function  RegisterCallNotifications(const pAddress: ITAddress; fMonitor: WordBool;
                                        fOwner: WordBool; lMediaTypes: Integer;
                                        lCallbackInstance: Integer): Integer; dispid 65539;
    procedure UnregisterNotifications(lRegister: Integer); dispid 65540;
    property CallHubs: OleVariant readonly dispid 65541;
    function  EnumerateCallHubs: IEnumCallHub; dispid 65542;
    procedure SetCallHubTracking(pAddresses: OleVariant; bTracking: WordBool); dispid 65543;
    procedure EnumeratePrivateTAPIObjects(out ppEnumUnknown: IEnumUnknown); dispid 65544;
    property PrivateTAPIObjects: OleVariant readonly dispid 65545;
    procedure RegisterRequestRecipient(lRegistrationInstance: Integer; lRequestMode: Integer;
                                       fEnable: WordBool); dispid 65546;
    procedure SetAssistedTelephonyPriority(const pAppFilename: WideString; fPriority: WordBool); dispid 65547;
    procedure SetApplicationPriority(const pAppFilename: WideString; lMediaType: Integer;
                                     fPriority: WordBool); dispid 65548;
    property EventFilter: Integer dispid 65551;
  end;

// *********************************************************************//
// Interface: IEnumAddress
// Flags:     (16) Hidden
// GUID:      {1666FCA1-9363-11D0-835C-00AA003CCABD}
// *********************************************************************//
  IEnumAddress = interface(IUnknown)
    ['{1666FCA1-9363-11D0-835C-00AA003CCABD}']
    function  Next(celt: DWORD; out ppElements: ITAddress; var pceltFetched: DWORD): HResult; stdcall;
    function  Reset: HResult; stdcall;
    function  Skip(celt: DWORD): HResult; stdcall;
    function  Clone(out ppEnum: IEnumAddress): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: IEnumCallHub
// Flags:     (16) Hidden
// GUID:      {A3C15450-5B92-11D1-8F4E-00C04FB6809F}
// *********************************************************************//
  IEnumCallHub = interface(IUnknown)
    ['{A3C15450-5B92-11D1-8F4E-00C04FB6809F}']
    function  Next(celt: DWORD; out ppElements: ITCallHub; var pceltFetched: DWORD): HResult; stdcall;
    function  Reset: HResult; stdcall;
    function  Skip(celt: DWORD): HResult; stdcall;
    function  Clone(out ppEnum: IEnumCallHub): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ITCallHub
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A3C1544E-5B92-11D1-8F4E-00C04FB6809F}
// *********************************************************************//
  ITCallHub = interface(IDispatch)
    ['{A3C1544E-5B92-11D1-8F4E-00C04FB6809F}']
    procedure Clear; safecall;
    function  EnumerateCalls: IEnumCall; safecall;
    function  Get_Calls: OleVariant; safecall;
    function  Get_NumCalls: Integer; safecall;
    function  Get_State: CALLHUB_STATE; safecall;
    property Calls: OleVariant read Get_Calls;
    property NumCalls: Integer read Get_NumCalls;
    property State: CALLHUB_STATE read Get_State;
  end;

// *********************************************************************//
// DispIntf:  ITCallHubDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {A3C1544E-5B92-11D1-8F4E-00C04FB6809F}
// *********************************************************************//
  ITCallHubDisp = dispinterface