testinterfaces.out

格式化源码的最新板

unit testinterfaces;

interface

uses Classes;

type
  imyiterator = interface(IUnknown)
    procedure First; safecall;
    procedure Next; safecall;
  end;

  ientryjournallookupdisp = dispinterface
    ['{D34D4103-FBC4-11D2-94F3-00A0CC39B56F}']
    property startdate: tdatetime dispid 1;
    property enddate: tdatetime dispid 2;
    property maxrows: integer dispid 2000;
    property iterator: imyiterator ReadOnly dispid 2001;
    function Execute: imyiterator; dispid 2002;
    function getnewojectkey: IUnknown; dispid 2003;
    property soy: integer writeonly;
  end;

  ientryjournaliterator = interface(imyiterator)
    ['{D34D4105-FBC4-11D2-94F3-00A0CC39B56F}']
    function get_note: WideString; safecall;
    function get_status: WideString; safecall;
    function get_createddate: tdatetime; safecall;
    function get_loginname: WideString; safecall;
    function get_id: integer; safecall;
    procedure set_id(id: integer); safecall;
    property note: WideString Read get_note;
    property status: WideString Read get_status;
    property createddate: tdatetime Read get_createddate;
    property loginname: WideString Read get_loginname;
    property id: integer Read get_id Write set_id;
  end;

  imyotheriterator = interface(IUnknown)
    procedure First; safecall;
    procedure Next; safecall;
  end;

const
  foo_disp_id = 12;
  bar_disp_id = 1002;

type
  ifoodisp = dispinterface
    ['{3050F1FF-98B5-11CF-BB82-00AA00CACE0B}']
    procedure setattribute(const strattributename: WideString; attributevalue: olevariant;
      lflags: integer); dispid -2147417611;
    function getattribute(const strattributename: WideString;
      lflags: integer): olevariant; dispid
      foo_disp_id;
    function removeattribute(const strattributename: WideString; lflags: integer): wordbool;
      dispid -2147417609;
    property ClassName: WideString dispid bar_disp_id + foo_disp_id;
    property id: WideString dispid(-1 * foo_disp_id);
    property onfilterchange: olevariant dispid -2147412069;
    property children: IDispatch ReadOnly dispid -2147417075;
    property all: IDispatch ReadOnly dispid -2147417074;
    property foo[const bar: integer]: IDispatch ReadOnly dispid -2147417073;
    property foo2[var bar: integer]: IDispatch ReadOnly dispid -2147417072;
    property foo3[out bar: integer]: IDispatch ReadOnly dispid -2147417071;
  end;

implementation

end.