Componentes.Terceros.RemObjects/internal/6.0.43.801/1/RemObjects Samples/Data Abstract for Delphi/Server/DASampleLibrary_Invk.pas

unit DASampleLibrary_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,
  {Used RODL Intf's:} DataAbstract4_Intf,
  {Used RODL Invk's:} DataAbstract4_Invk,
  {Generated:} DASampleLibrary_Intf;

type
  TSeekOrigin = Classes.TSeekOrigin; // fake declaration
  TDASampleService_Invoker = class(TDataAbstractService_Invoker)
  private
  protected
  public
    constructor Create; override;
  published
    procedure Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_BlockRow(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_UnblockRow(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_BlockSetOfRows(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_Subscribe(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

implementation

uses
  {RemObjects:} uRORes, uROClient;

{ TDASampleService_Invoker }

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

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

    (__Instance as IDASampleService).Login(aPlatform, aName);

    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'LoginResponse');
    __Message.Finalize;
    __Message.UnsetAttributes(__Transport);

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

procedure TDASampleService_Invoker.Invoke_BlockRow(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure BlockRow(const pkField: AnsiString); }
var
  pkField: AnsiString;
begin
  try
    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);

    (__Instance as IDASampleService).BlockRow(pkField);

    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'BlockRowResponse');
    __Message.Finalize;
    __Message.UnsetAttributes(__Transport);

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

procedure TDASampleService_Invoker.Invoke_UnblockRow(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure UnblockRow(const pkField: AnsiString; const IsReadRow: Boolean); }
var
  pkField: AnsiString;
  IsReadRow: Boolean;
begin
  try
    __Message.Read('pkField', TypeInfo(AnsiString), pkField, []);
    __Message.Read('IsReadRow', TypeInfo(Boolean), IsReadRow, []);

    (__Instance as IDASampleService).UnblockRow(pkField, IsReadRow);

    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'UnblockRowResponse');
    __Message.Finalize;
    __Message.UnsetAttributes(__Transport);

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

procedure TDASampleService_Invoker.Invoke_BlockSetOfRows(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure BlockSetOfRows; }
begin
  try
    (__Instance as IDASampleService).BlockSetOfRows;

    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'BlockSetOfRowsResponse');
    __Message.Finalize;

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

procedure TDASampleService_Invoker.Invoke_Subscribe(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ procedure Subscribe(const aSubscribe: Boolean); }
var
  aSubscribe: Boolean;
begin
  try
    __Message.Read('aSubscribe', TypeInfo(Boolean), aSubscribe, []);

    (__Instance as IDASampleService).Subscribe(aSubscribe);

    __Message.InitializeResponseMessage(__Transport, 'DASampleLibrary', 'DASampleService', 'SubscribeResponse');
    __Message.Finalize;
    __Message.UnsetAttributes(__Transport);

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

initialization
end.