clientu2.pas

来自「基于Delphi6的WebServices及其实现」· PAS 代码 · 共 15 行

Unit clientu2;
interface
uses Types, XSBuiltIns;
type
  IMyAddSub = interface(IInvokable)
    ['{AAA5857C-7432-4FAB-AADF-E3530DE15AD3}']
    function MyAdd(const Value1: Integer; const Value2: Integer): Integer;  stdcall;
    function MySub(const Value1: Integer; const Value2: Integer): Integer;  stdcall;
  end;
implementation
uses InvokeRegistry;
initialization
  InvRegistry.RegisterInterface(TypeInfo(IMyAddSub), 'urn:MyAddSub-IMyAddSub', '');
end.