unit DataAbstract3_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 DataAbstract.inc}

interface

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

type
  TDARemoteService_Invoker = class(TROInvoker)
  private
  protected
  published
    procedure Invoke_GetDatasetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GetDatasetScripts(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GetDatasetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GetDatasetDataEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_UpdateData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_ExecuteSQLCommand(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GetSchemaAsXML(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_GetMultipleDatasets(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
    procedure Invoke_ExecuteSQLCommandEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
  end;

  TDALoginService_Invoker = class(TDARemoteService_Invoker)
  private
  protected
  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:} uROClient;

{ TDARemoteService_Invoker }

procedure TDARemoteService_Invoker.Invoke_GetDatasetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetDatasetSchema(const aDatasetName: String): Binary; }
var
  aDatasetName: String;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('aDatasetName', TypeInfo(String), aDatasetName, []);

    lResult := (__Instance as IDARemoteService).GetDatasetSchema(aDatasetName);

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DARemoteService', 'GetDatasetSchemaResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TDARemoteService_Invoker.Invoke_GetDatasetScripts(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetDatasetScripts(const DatasetNames: String): String; }
var
  DatasetNames: String;
  lResult: String;
begin
  try
    __Message.Read('DatasetNames', TypeInfo(String), DatasetNames, []);

    lResult := (__Instance as IDARemoteService).GetDatasetScripts(DatasetNames);

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DARemoteService', 'GetDatasetScriptsResponse');
    __Message.Write('Result', TypeInfo(String), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TDARemoteService_Invoker.Invoke_GetDatasetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetDatasetData(const DatasetName: String; const Params: String; const IncludeSchema: Boolean; const MaxRecords: Integer): Binary; }
var
  DatasetName: String;
  Params: String;
  IncludeSchema: Boolean;
  MaxRecords: Integer;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  lResult := nil;
  try
    __Message.Read('DatasetName', TypeInfo(String), DatasetName, []);
    __Message.Read('Params', TypeInfo(String), Params, []);
    __Message.Read('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
    __Message.Read('MaxRecords', TypeInfo(Integer), MaxRecords, []);

    lResult := (__Instance as IDARemoteService).GetDatasetData(DatasetName, Params, IncludeSchema, MaxRecords);

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DARemoteService', 'GetDatasetDataResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TDARemoteService_Invoker.Invoke_GetDatasetDataEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetDatasetDataEx(const DatasetName: String; const Params: TDADatasetParamArray; const UserFilter: String; const IncludeSchema: Boolean;
                              const MaxRecords: Integer): Binary; }
var
  DatasetName: String;
  Params: DataAbstract3_Intf.TDADatasetParamArray;
  UserFilter: String;
  IncludeSchema: Boolean;
  MaxRecords: Integer;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  Params := nil;
  lResult := nil;
  try
    __Message.Read('DatasetName', TypeInfo(String), DatasetName, []);
    __Message.Read('Params', TypeInfo(DataAbstract3_Intf.TDADatasetParamArray), Params, []);
    __Message.Read('UserFilter', TypeInfo(String), UserFilter, []);
    __Message.Read('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
    __Message.Read('MaxRecords', TypeInfo(Integer), MaxRecords, []);

    lResult := (__Instance as IDARemoteService).GetDatasetDataEx(DatasetName, Params, UserFilter, IncludeSchema, MaxRecords);

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DARemoteService', 'GetDatasetDataExResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(Params);
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TDARemoteService_Invoker.Invoke_UpdateData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function UpdateData(const Delta: Binary): Binary; }
var
  Delta: Binary;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  Delta := nil;
  lResult := nil;
  try
    __Message.Read('Delta', TypeInfo(Binary), Delta, []);

    lResult := (__Instance as IDARemoteService).UpdateData(Delta);

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DARemoteService', 'UpdateDataResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(Delta);
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TDARemoteService_Invoker.Invoke_ExecuteSQLCommand(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ExecuteSQLCommand(const SQL: String): Integer; }
var
  SQL: String;
  lResult: Integer;
begin
  try
    __Message.Read('SQL', TypeInfo(String), SQL, []);

    lResult := (__Instance as IDARemoteService).ExecuteSQLCommand(SQL);

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DARemoteService', 'ExecuteSQLCommandResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TDARemoteService_Invoker.Invoke_GetSchemaAsXML(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetSchemaAsXML: String; }
var
  lResult: String;
begin
  try
    lResult := (__Instance as IDARemoteService).GetSchemaAsXML;

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DARemoteService', 'GetSchemaAsXMLResponse');
    __Message.Write('Result', TypeInfo(String), lResult, []);
    __Message.Finalize;

  finally
  end;
end;

procedure TDARemoteService_Invoker.Invoke_GetMultipleDatasets(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray): Binary; }
var
  DatasetRequestInfoArray: DataAbstract3_Intf.TDADatasetRequestInfoArray;
  lResult: Binary;
  __lObjectDisposer: TROObjectDisposer;
begin
  DatasetRequestInfoArray := nil;
  lResult := nil;
  try
    __Message.Read('DatasetRequestInfoArray', TypeInfo(DataAbstract3_Intf.TDADatasetRequestInfoArray), DatasetRequestInfoArray, []);

    lResult := (__Instance as IDARemoteService).GetMultipleDatasets(DatasetRequestInfoArray);

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DARemoteService', 'GetMultipleDatasetsResponse');
    __Message.Write('Result', TypeInfo(Binary), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(DatasetRequestInfoArray);
      __lObjectDisposer.Add(lResult);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

procedure TDARemoteService_Invoker.Invoke_ExecuteSQLCommandEx(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function ExecuteSQLCommandEx(const CommandName: String; const Params: TDADatasetParamArray): Integer; }
var
  CommandName: String;
  Params: DataAbstract3_Intf.TDADatasetParamArray;
  lResult: Integer;
  __lObjectDisposer: TROObjectDisposer;
begin
  Params := nil;
  try
    __Message.Read('CommandName', TypeInfo(String), CommandName, []);
    __Message.Read('Params', TypeInfo(DataAbstract3_Intf.TDADatasetParamArray), Params, []);

    lResult := (__Instance as IDARemoteService).ExecuteSQLCommandEx(CommandName, Params);

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DARemoteService', 'ExecuteSQLCommandExResponse');
    __Message.Write('Result', TypeInfo(Integer), lResult, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(Params);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

{ TDALoginService_Invoker }

procedure TDALoginService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function Login(const UserID: String; const Password: String; out LoginInfo: TDALoginInfo): Boolean; }
var
  UserID: String;
  Password: String;
  LoginInfo: DataAbstract3_Intf.TDALoginInfo;
  lResult: Boolean;
  __lObjectDisposer: TROObjectDisposer;
begin
  LoginInfo := nil;
  try
    __Message.Read('UserID', TypeInfo(String), UserID, []);
    __Message.Read('Password', TypeInfo(String), Password, []);

    lResult := (__Instance as IDALoginService).Login(UserID, Password, LoginInfo);

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DALoginService', 'LoginResponse');
    __Message.Write('Result', TypeInfo(Boolean), lResult, []);
    __Message.Write('LoginInfo', TypeInfo(DataAbstract3_Intf.TDALoginInfo), LoginInfo, []);
    __Message.Finalize;

  finally
    __lObjectDisposer := TROObjectDisposer.Create(__Instance);
    try
      __lObjectDisposer.Add(LoginInfo);
    finally
      __lObjectDisposer.Free();
    end;
  end;
end;

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

    __Message.InitializeResponseMessage(__Transport, 'DataAbstract', 'DALoginService', 'LogoutResponse');
    __Message.Finalize;

    __oResponseOptions := [roNoResponse];

  finally
  end;
end;

end.