myaddsub.pas

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

unit MyAddSub;
interface
type
IMyAddSub = interface(IInvokable)
  ['{C527B88F-3F8E-1134-80e0-01A04F57B270}']
    function MyAdd(Value1,Value2: Integer): Integer; stdcall;
    function MySub(Value1,Value2: Integer): Integer; stdcall;
end;
implementation
uses  InvokeRegistry;
initialization
  InvRegistry.RegisterInterface(TypeInfo(IMyAddSub));
end.