Componentes.Terceros.RemObjects/internal/5.0.35.741/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.                 }
{----------------------------------------------------------------------------}

{$I Remobjects.inc}

interface

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

type
  TFirstSampleService_Invoker = class(TROInvoker)
  private
  protected
  public
    constructor Create; override;
  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 }

constructor TFirstSampleService_Invoker.Create;
begin
  inherited Create;
  FAbstract := False;
end;

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

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

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

  finally
  end;
end;

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

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

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

  finally
  end;
end;

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

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

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

  finally
  end;
end;

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

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

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

  finally
  end;
end;

initialization
end.