myaddsubu.pas

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

unit MyAddSubu;
interface
uses  InvokeRegistry,MyAddSub;
type
TMyAddSub = class(TInvokableClass,IMyAddSub)
protected
  function MyAdd(Value1:Integer;Value2: Integer): Integer; stdcall;
  function MySub(Value1:Integer;Value2: Integer): Integer; stdcall;
end;
implementation
function TMyAddSub.MySub(Value1:Integer;Value2: Integer): Integer;
begin
   Result := Value1-Value2;
end;
function TMyAddSub.MyAdd(Value1:Integer;Value2: Integer): Integer;
begin
   Result := Value1+Value2;
end;
initialization
InvRegistry.RegisterInvokableClass(TMyAddSub);
end.