umyessaysinf.pas

来自「Delphi开发webservice的一套例子」· PAS 代码 · 共 24 行

unit uMyEssaysInf;

interface

uses
  Types, XSBuiltIns, uEssaysInfo;

type
  IMyEssays = interface(IInvokable)
    ['{1C8ABA87-455B-4430-9881-239F5FFE7F49}']
    function GetEssayTitles : TEssaysInfos ; stdcall;
    function GetEssayContent(const iID : Integer) : String; stdcall;
  end;

implementation

uses
  InvokeRegistry;

initialization
  InvRegistry.RegisterInterface(TypeInfo(IMyEssays));
end.