IDATAObject = interface(IUnknown)
    ['{1DDD22BD-8CB0-4613-B5E6-0BFD43DBC6A7}']
    { Property modifiers }
    function GetObj: TObject;
    function GetXML: DOMString;
    function GetXMLStrings: TStrings;
    { Properties }
    property XML: DOMString read GetXML;
    property XMLStrings: TStrings read GetXMLStrings;
  end;

{ IDataObject interface }

  IDataObject = interface(IUnknown)
    ['{0000010E-0000-0000-C000-000000000046}']
    function GetData(const formatetcIn: TFormatEtc; out medium: TStgMedium):
      HResult; stdcall;
    function GetDataHere(const formatetc: TFormatEtc; out medium: TStgMedium):
      HResult; stdcall;
    function QueryGetData(const formatetc: TFormatEtc): HResult;
      stdcall;
    function GetCanonicalFormatEtc(const formatetc: TFormatEtc;
      out formatetcOut: TFormatEtc): HResult; stdcall;
    function SetData(const formatetc: TFormatEtc; var medium: TStgMedium;
      fRelease: BOOL): HResult; stdcall;
    function EnumFormatEtc(dwDirection: Longint; out enumFormatEtc:
      IEnumFormatEtc): HResult; stdcall;
    function DAdvise(const formatetc: TFormatEtc; advf: Longint;
      const advSink: IAdviseSink; out dwConnection: Longint): HResult; stdcall;
    function DUnadvise(dwConnection: Longint): HResult; stdcall;
    function EnumDAdvise(out enumAdvise: IEnumStatData): HResult;
      stdcall;
  end;
  {$EXTERNALSYM IDataObject}
  {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDataObject)'}

{ IDataAdviseHolder interface }