Componentes.Terceros.RemObjects/internal/5.0.35.741/1/RemObjects SDK for Delphi/Samples/Super TCP Channel Chat/SuperTCPChannelChatLibrary_Invk.pas

unit SuperTCPChannelChatLibrary_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:} SuperTCPChannelChatLibrary_Intf;

type
  TChatServerService_Invoker = class(TROInvoker)
  private
  protected
  public
    constructor Create; override;
  published
    procedure Invoke_TalkPrivate(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_Talk(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TLoginService_Invoker = class(TROInvoker)
  private
  protected
  public
    constructor Create; override;
  published
    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

implementation

uses
  {RemObjects:} uRORes, uROClient;

{ TChatServerService_Invoker }

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

procedure TChatServerService_Invoker.Invoke_TalkPrivate(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure TalkPrivate(const TargetNickname: Widestring; const Message: Widestring); }
var
  TargetNickname: Widestring;
  Message: Widestring;
begin
  try
    __Message.Read('TargetNickname', TypeInfo(Widestring), TargetNickname, []);
    __Message.Read('Message', TypeInfo(Widestring), Message, []);

    (__Instance as IChatServerService).TalkPrivate(TargetNickname, Message);

    __Message.InitializeResponseMessage(__Transport, 'SuperTCPChannelChatLibrary', 'ChatServerService', 'TalkPrivateResponse');
    __Message.Finalize;
    __Message.UnsetAttributes(__Transport);

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

procedure TChatServerService_Invoker.Invoke_Talk(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure Talk(const Message: Widestring); }
var
  Message: Widestring;
begin
  try
    __Message.Read('Message', TypeInfo(Widestring), Message, []);

    (__Instance as IChatServerService).Talk(Message);

    __Message.InitializeResponseMessage(__Transport, 'SuperTCPChannelChatLibrary', 'ChatServerService', 'TalkResponse');
    __Message.Finalize;
    __Message.UnsetAttributes(__Transport);

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

{ TLoginService_Invoker }

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

procedure TLoginService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure Login(const Nickname: Widestring); }
var
  Nickname: Widestring;
begin
  try
    __Message.Read('Nickname', TypeInfo(Widestring), Nickname, []);

    (__Instance as ILoginService).Login(Nickname);

    __Message.InitializeResponseMessage(__Transport, 'SuperTCPChannelChatLibrary', 'LoginService', 'LoginResponse');
    __Message.Finalize;
    __Message.UnsetAttributes(__Transport);

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

procedure TLoginService_Invoker.Invoke_Logout(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure Logout; }
begin
  try
    (__Instance as ILoginService).Logout;

    __Message.InitializeResponseMessage(__Transport, 'SuperTCPChannelChatLibrary', 'LoginService', 'LogoutResponse');
    __Message.Finalize;

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

initialization
end.