Componentes.Terceros.RemObjects/internal/5.0.23.613/1/RemObjects SDK for Delphi/Samples/Variants/VariantsService_Impl.pas

unit VariantsService_Impl;

{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading  }
{ the RODL file associated with this project .                               }
{                                                                            }
{ This is where you are supposed to code the implementation of your objects. }
{----------------------------------------------------------------------------}

interface

uses
  {vcl:} Classes, SysUtils,
  {RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
  {Generated:} VariantsLibrary_Intf;

type
  { TVariantsService }
  TVariantsService = class(TRORemotable, IVariantsService)
  private
  protected
    { IVariantsService methods }
    procedure EchoVariant(const InputVariant: Variant; out OutputVariant: Variant);
    procedure EchoComplexObject(const InComplexObject: TComplexObject; out OutComplexObject: TComplexObject);
    procedure EchoVariantArray(const InArray: TVariantArray; out OutArray: TVariantArray);
  end;

implementation

uses
  {Generated:} VariantsLibrary_Invk;

procedure Create_VariantsService(out anInstance: IUnknown);
begin
  anInstance := TVariantsService.Create;
end;

{ VariantsService }

procedure TVariantsService.EchoVariant(const InputVariant: Variant; out OutputVariant: Variant);
begin
  OutputVariant := InputVariant;
end;

procedure TVariantsService.EchoComplexObject(const InComplexObject: TComplexObject; out OutComplexObject: TComplexObject);
begin
  OutComplexObject := InComplexObject;
end;

procedure TVariantsService.EchoVariantArray(const InArray: TVariantArray; out OutArray: TVariantArray);
begin
  OutArray := InArray;
end;

initialization
  TROClassFactory.Create('VariantsService', Create_VariantsService, TVariantsService_Invoker);

finalization

end.