Componentes.Terceros.RemObjects/internal/5.0.23.613/1/RemObjects SDK for Delphi/Samples/First Sample/FirstSample_Invk.pas

unit FirstSample_Invk;

{----------------------------------------------------------------------------}
{ This unit was automatically generated by the RemObjects SDK after reading  }
{ the RODL file associated with this project .                               }
{                                                                            }
{ Do not modify this unit manually, or your changes will be lost when this   }
{ unit is regenerated the next time you compile the project.                 }
{----------------------------------------------------------------------------}

interface

uses
  {vcl:} Classes,
  {RemObjects:} uROServer, uROServerIntf, uROTypes, uROClientIntf,
  {Generated:} FirstSample_Intf;

type
  TFirstSampleService_Invoker = class(TROInvoker)
  private
  protected
  published
    procedure Invoke_Nicknames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_FullNames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_VerifyName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_CheckName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

implementation

uses
  {RemObjects:} uRORes, uROClient;

{ TFirstSampleService_Invoker }

procedure TFirstSampleService_Invoker.Invoke_Nicknames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function Nicknames(const FullName: String): String; }
var
  FullName: String;
  lResult: String;
begin
  try
    __Message.Read('FullName', TypeInfo(String), FullName, []);

    lResult := (__Instance as IFirstSampleService).Nicknames(FullName);

    __Message.InitializeResponseMessage(__Transport, 'FirstSample', 'FirstSampleService', 'NicknamesResponse');
    __Message.Write('Result', TypeInfo(String), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TFirstSampleService_Invoker.Invoke_FullNames(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function FullNames(const Nickname: String): String; }
var
  Nickname: String;
  lResult: String;
begin
  try
    __Message.Read('Nickname', TypeInfo(String), Nickname, []);

    lResult := (__Instance as IFirstSampleService).FullNames(Nickname);

    __Message.InitializeResponseMessage(__Transport, 'FirstSample', 'FirstSampleService', 'FullNamesResponse');
    __Message.Write('Result', TypeInfo(String), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TFirstSampleService_Invoker.Invoke_VerifyName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function VerifyName(const NickName: String; const FullName: String): Boolean; }
var
  NickName: String;
  FullName: String;
  lResult: Boolean;
begin
  try
    __Message.Read('NickName', TypeInfo(String), NickName, []);
    __Message.Read('FullName', TypeInfo(String), FullName, []);

    lResult := (__Instance as IFirstSampleService).VerifyName(NickName, FullName);

    __Message.InitializeResponseMessage(__Transport, 'FirstSample', 'FirstSampleService', 'VerifyNameResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TFirstSampleService_Invoker.Invoke_CheckName(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function CheckName(const NickName: String): Boolean; }
var
  NickName: String;
  lResult: Boolean;
begin
  try
    __Message.Read('NickName', TypeInfo(String), NickName, []);

    lResult := (__Instance as IFirstSampleService).CheckName(NickName);

    __Message.InitializeResponseMessage(__Transport, 'FirstSample', 'FirstSampleService', 'CheckNameResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

end.