userserviceintf.pas

来自「Delphi面向对象编程思想附书源码 好用哦！」· PAS 代码 · 共 26 行

{ Invokable interface IUserService }

unit UserServiceIntf;

interface

uses InvokeRegistry, Types, XSBuiltIns;

type

  { Invokable interfaces must derive from IInvokable }
  IUserService = interface(IInvokable)
  ['{1FAB59BF-83FD-4855-835C-AB392086FB83}']
    function GetDepList(out iCount:integer):TStringDynArray;stdcall;
    function GetUserList(strName:String): String; stdcall;
    function UpdateUserData(UserData:String):integer; stdcall;
  end;

implementation

initialization
  { Invokable interfaces must be registered }
  InvRegistry.RegisterInterface(TypeInfo(IUserService));

end.