Componentes.Terceros.RemObjects/official/5.0.23.613/RemObjects SDK for Delphi/Samples/Class Factories/SingleCallService_Impl.pas

unit SingleCallService_Impl;

interface

uses Classes, uROClientIntf, uROServer, uROServerIntf, ClassFactoryLibrary_Intf;

type
   TSingleCallService = class(TRORemotable, ISingleCallService)
   private
     fValue : integer;

   protected
      function GetValue: Integer;
      procedure SetValue(const aValue: Integer);

   public
     constructor Create; override;

   end;

implementation

uses ClassFactoryLibrary_Invk;

procedure Create_SingleCallService(out anInstance : IUnknown);
begin
  anInstance := TSingleCallService.Create;
end;

constructor TSingleCallService.Create;
begin
  inherited;
  fValue := 0;
end;

function TSingleCallService.GetValue: Integer;
begin
  result := fValue;
end;

procedure TSingleCallService.SetValue(const aValue: Integer);
begin
  fValue := aValue;
end;

initialization
  TROClassFactory.Create('SingleCallService', Create_SingleCallService, TSingleCallService_Invoker);

finalization

end.