aditapi3.pas

测试用例

    ['{A3C1544E-5B92-11D1-8F4E-00C04FB6809F}']
    procedure Clear; dispid 1;
    function  EnumerateCalls: IEnumCall; dispid 2;
    property Calls: OleVariant readonly dispid 3;
    property NumCalls: Integer readonly dispid 4;
    property State: CALLHUB_STATE readonly dispid 5;
  end;

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

// *********************************************************************//
// Interface: IEnumUnknown
// Flags:     (0)
// GUID:      {00000100-0000-0000-C000-000000000046}
// *********************************************************************//
  IEnumUnknown = interface(IUnknown)
    ['{00000100-0000-0000-C000-000000000046}']
    function  RemoteNext(celt: DWORD; out rgelt: IUnknown; out pceltFetched: DWORD): HResult; stdcall;
    function  Skip(celt: DWORD): HResult; stdcall;
    function  Reset: HResult; stdcall;
    function  Clone(out ppEnum: IEnumUnknown): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ITBasicCallControl
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B1EFC389-9355-11D0-835C-00AA003CCABD}
// *********************************************************************//
  ITBasicCallControl = interface(IDispatch)
    ['{B1EFC389-9355-11D0-835C-00AA003CCABD}']
    procedure Connect(fSync: WordBool); safecall;
    procedure Answer; safecall;
    procedure Disconnect(code: DISCONNECT_CODE); safecall;
    procedure Hold(fHold: WordBool); safecall;
    procedure HandoffDirect(const pApplicationName: WideString); safecall;
    procedure HandoffIndirect(lMediaType: Integer); safecall;
    procedure Conference(const pCall: ITBasicCallControl; fSync: WordBool); safecall;
    procedure Transfer(const pCall: ITBasicCallControl; fSync: WordBool); safecall;
    procedure BlindTransfer(const pDestAddress: WideString); safecall;
    procedure SwapHold(const pCall: ITBasicCallControl); safecall;
    procedure ParkDirect(const pParkAddress: WideString); safecall;
    function  ParkIndirect: WideString; safecall;
    procedure Unpark; safecall;
    procedure SetQOS(lMediaType: Integer; ServiceLevel: QOS_SERVICE_LEVEL); safecall;
    procedure Pickup(const pGroupID: WideString); safecall;
    procedure Dial(const pDestAddress: WideString); safecall;
    procedure Finish(finishMode: FINISH_MODE); safecall;
    procedure RemoveFromConference; safecall;
  end;

// *********************************************************************//
// DispIntf:  ITBasicCallControlDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B1EFC389-9355-11D0-835C-00AA003CCABD}
// *********************************************************************//
  ITBasicCallControlDisp = dispinterface
    ['{B1EFC389-9355-11D0-835C-00AA003CCABD}']
    procedure Connect(fSync: WordBool); dispid 131075;
    procedure Answer; dispid 131076;
    procedure Disconnect(code: DISCONNECT_CODE); dispid 131077;
    procedure Hold(fHold: WordBool); dispid 131078;
    procedure HandoffDirect(const pApplicationName: WideString); dispid 131079;
    procedure HandoffIndirect(lMediaType: Integer); dispid 131080;
    procedure Conference(const pCall: ITBasicCallControl; fSync: WordBool); dispid 131081;
    procedure Transfer(const pCall: ITBasicCallControl; fSync: WordBool); dispid 131082;
    procedure BlindTransfer(const pDestAddress: WideString); dispid 131083;
    procedure SwapHold(const pCall: ITBasicCallControl); dispid 131084;
    procedure ParkDirect(const pParkAddress: WideString); dispid 131085;
    function  ParkIndirect: WideString; dispid 131086;
    procedure Unpark; dispid 131087;
    procedure SetQOS(lMediaType: Integer; ServiceLevel: QOS_SERVICE_LEVEL); dispid 131088;
    procedure Pickup(const pGroupID: WideString); dispid 131091;
    procedure Dial(const pDestAddress: WideString); dispid 131092;
    procedure Finish(finishMode: FINISH_MODE); dispid 131093;
    procedure RemoveFromConference; dispid 131094;
  end;

// *********************************************************************//
// Interface: ITForwardInformation
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {449F659E-88A3-11D1-BB5D-00C04FB6809F}
// *********************************************************************//
  ITForwardInformation = interface(IDispatch)
    ['{449F659E-88A3-11D1-BB5D-00C04FB6809F}']
    procedure Set_NumRingsNoAnswer(plNumRings: Integer); safecall;
    function  Get_NumRingsNoAnswer: Integer; safecall;
    procedure SetForwardType(ForwardType: Integer; const pDestAddress: WideString;
                             const pCallerAddress: WideString); safecall;
    function  Get_ForwardTypeDestination(ForwardType: Integer): WideString; safecall;
    function  Get_ForwardTypeCaller(ForwardType: Integer): WideString; safecall;
    procedure GetForwardType(ForwardType: Integer; out ppDestinationAddress: WideString;
                             out ppCallerAddress: WideString); safecall;
    procedure Clear; safecall;
    property NumRingsNoAnswer: Integer read Get_NumRingsNoAnswer write Set_NumRingsNoAnswer;
    property ForwardTypeDestination[ForwardType: Integer]: WideString read Get_ForwardTypeDestination;
    property ForwardTypeCaller[ForwardType: Integer]: WideString read Get_ForwardTypeCaller;
  end;

// *********************************************************************//
// DispIntf:  ITForwardInformationDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {449F659E-88A3-11D1-BB5D-00C04FB6809F}
// *********************************************************************//
  ITForwardInformationDisp = dispinterface
    ['{449F659E-88A3-11D1-BB5D-00C04FB6809F}']
    property NumRingsNoAnswer: Integer dispid 1;
    procedure SetForwardType(ForwardType: Integer; const pDestAddress: WideString;
                             const pCallerAddress: WideString); dispid 2;
    property ForwardTypeDestination[ForwardType: Integer]: WideString readonly dispid 3;
    property ForwardTypeCaller[ForwardType: Integer]: WideString readonly dispid 4;
    procedure GetForwardType(ForwardType: Integer; out ppDestinationAddress: WideString;
                             out ppCallerAddress: WideString); dispid 5;
    procedure Clear; dispid 6;
  end;

// *********************************************************************//
// Interface: ITCallNotificationEvent
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {895801DF-3DD6-11D1-8F30-00C04FB6809F}
// *********************************************************************//
  ITCallNotificationEvent = interface(IDispatch)
    ['{895801DF-3DD6-11D1-8F30-00C04FB6809F}']
    function  Get_Call: ITCallInfo; safecall;
    function  Get_Event: CALL_NOTIFICATION_EVENT; safecall;
    function  Get_CallbackInstance: Integer; safecall;
    property Call: ITCallInfo read Get_Call;
    property Event: CALL_NOTIFICATION_EVENT read Get_Event;
    property CallbackInstance: Integer read Get_CallbackInstance;
  end;

// *********************************************************************//
// DispIntf:  ITCallNotificationEventDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {895801DF-3DD6-11D1-8F30-00C04FB6809F}
// *********************************************************************//
  ITCallNotificationEventDisp = dispinterface
    ['{895801DF-3DD6-11D1-8F30-00C04FB6809F}']
    property Call: ITCallInfo readonly dispid 1;
    property Event: CALL_NOTIFICATION_EVENT readonly dispid 2;
    property CallbackInstance: Integer readonly dispid 3;
  end;

// *********************************************************************//
// Interface: ITTAPIEventNotification
// Flags:     (256) OleAutomation
// GUID:      {EDDB9426-3B91-11D1-8F30-00C04FB6809F}
// *********************************************************************//
  ITTAPIEventNotification = interface(IUnknown)
    ['{EDDB9426-3B91-11D1-8F30-00C04FB6809F}']
    function  Event(TapiEvent: TAPI_EVENT; const pEvent: IDispatch): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ITBasicAudioTerminal
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B1EFC38D-9355-11D0-835C-00AA003CCABD}
// *********************************************************************//
  ITBasicAudioTerminal = interface(IDispatch)
    ['{B1EFC38D-9355-11D0-835C-00AA003CCABD}']
    procedure Set_Volume(plVolume: Integer); safecall;
    function  Get_Volume: Integer; safecall;
    procedure Set_Balance(plBalance: Integer); safecall;
    function  Get_Balance: Integer; safecall;
    property Volume: Integer read Get_Volume write Set_Volume;
    property Balance: Integer read Get_Balance write Set_Balance;
  end;

// *********************************************************************//
// DispIntf:  ITBasicAudioTerminalDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {B1EFC38D-9355-11D0-835C-00AA003CCABD}
// *********************************************************************//
  ITBasicAudioTerminalDisp = dispinterface
    ['{B1EFC38D-9355-11D0-835C-00AA003CCABD}']
    property Volume: Integer dispid 1;
    property Balance: Integer dispid 2;
  end;

// *********************************************************************//
// Interface: ITCallHubEvent
// Flags:     (4352) OleAutomation Dispatchable
// GUID:      {A3C15451-5B92-11D1-8F4E-00C04FB6809F}
// *********************************************************************//
  ITCallHubEvent = interface(IDispatch)
    ['{A3C15451-5B92-11D1-8F4E-00C04FB6809F}']
    function  Get_Event(out pEvent: CALLHUB_EVENT): HResult; stdcall;
    function  Get_CallHub(out ppCallHub: ITCallHub): HResult; stdcall;
    function  Get_Call(out ppCall: ITCallInfo): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ITAddressCapabilities
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {8DF232F5-821B-11D1-BB5C-00C04FB6809F}
// *********************************************************************//
  ITAddressCapabilities = interface(IDispatch)
    ['{8DF232F5-821B-11D1-BB5C-00C04FB6809F}']
    function  Get_AddressCapability(AddressCap: ADDRESS_CAPABILITY): Integer; safecall;
    function  Get_AddressCapabilityString(AddressCapString: ADDRESS_CAPABILITY_STRING): WideString; safecall;
    function  Get_CallTreatments: OleVariant; safecall;
    function  EnumerateCallTreatments: IEnumBstr; safecall;
    function  Get_CompletionMessages: OleVariant; safecall;
    function  EnumerateCompletionMessages: IEnumBstr; safecall;
    function  Get_DeviceClasses: OleVariant; safecall;
    function  EnumerateDeviceClasses: IEnumBstr; safecall;
    property AddressCapability[AddressCap: ADDRESS_CAPABILITY]: Integer read Get_AddressCapability;
    property AddressCapabilityString[AddressCapString: ADDRESS_CAPABILITY_STRING]: WideString read Get_AddressCapabilityString;
    property CallTreatments: OleVariant read Get_CallTreatments;
    property CompletionMessages: OleVariant read Get_CompletionMessages;
    property DeviceClasses: OleVariant read Get_DeviceClasses;
  end;

// *********************************************************************//
// DispIntf:  ITAddressCapabilitiesDisp
// Flags:     (4416) Dual OleAutomation Dispatchable
// GUID:      {8DF232F5-821B-11D1-BB5C-00C04FB6809F}
// *********************************************************************//
  ITAddressCapabilitiesDisp = dispinterface
    ['{8DF232F5-821B-11D1-BB5C-00C04FB6809F}']
    property AddressCapability[AddressCap: ADDRESS_CAPABILITY]: Integer readonly dispid 131073;
    property AddressCapabilityString[AddressCapString: ADDRESS_CAPABILITY_STRING]: WideString readonly dispid 131074;
    property CallTreatments: OleVariant readonly dispid 131075;
    function  EnumerateCallTreatments: IEnumBstr; dispid 131076;
    property CompletionMessages: OleVariant readonly dispid 131077;
    function  EnumerateCompletionMessages: IEnumBstr; dispid 131078;
    property DeviceClasses: OleVariant readonly dispid 131079;
    function  EnumerateDeviceClasses: IEnumBstr; dispid 131080;
  end;

// *********************************************************************//
// Interface: IEnumBstr
// Flags:     (16) Hidden
// GUID:      {35372049-0BC6-11D2-A033-00C04FB6809F}
// *********************************************************************//
  IEnumBstr = interface(IUnknown)
    ['{35372049-0BC6-11D2-A033-00C04FB6809F}']
    function  Next(celt: DWORD; out ppStrings: WideString; var pceltFetched: DWORD): HResult; stdcall;
    function  Reset: HResult; stdcall;
    function  Skip(celt: DWORD): HResult; stdcall;
    function  Clone(out ppEnum: IEnumBstr): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ITQOSEvent
// Flags:     (4352) OleAutomation Dispatchable
// GUID:      {CFA3357C-AD77-11D1-BB68-00C04FB6809F}
// *********************************************************************//
  ITQOSEvent = interface(IDispatch)
    ['{CFA3357C-AD77-11D1-BB68-00C04FB6809F}']
    function  Get_Call(out ppCall: ITCallInfo): HResult; stdcall;
    function  Get_Event(out pQosEvent: QOS_EVENT): HResult; stdcall;
    function  Get_MediaType(out plMediaType: Integer): HResult; stdcall;
  end;

// *********************************************************************//
// Interface: ITAddressEvent
// Flags:     (4352) OleAutomation Dispatchable
// GUID:      {831CE2D1-83B5-11D1-BB5C-00C04FB6809F}
// *********************************************************************//
  ITAddressEvent = interface(IDispatch)
    ['{831CE2D1-83B5-11D1-BB5C-00C04FB6809F}']
    function  Get_Address(out ppAddress: ITAddress): HResult; stdcall;
    function  Get_Event(out pEven