unit DataAbstract3_Async;

{----------------------------------------------------------------------------}
{ 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, TypInfo,
  {RemObjects:} uROXMLIntf, uROClasses, uROTypes, uROClientIntf, uROAsync,
  {Project:} DataAbstract3_Intf;

type
  { IDARemoteService_Async }
  IDARemoteService_Async = interface(IROAsyncInterface)
    ['{F8299772-C66E-4D77-A4F9-78400662810B}']
    procedure Invoke_GetDatasetSchema(const aDatasetName: AnsiString);
    procedure Invoke_GetDatasetScripts(const DatasetNames: AnsiString);
    procedure Invoke_GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
    procedure Invoke_GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
    procedure Invoke_UpdateData(const Delta: Binary);
    procedure Invoke_ExecuteSQLCommand(const SQL: AnsiString);
    procedure Invoke_GetSchemaAsXML;
    procedure Invoke_GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray);
    procedure Invoke_ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray);
    function Retrieve_GetDatasetSchema: Binary;
    function Retrieve_GetDatasetScripts: AnsiString;
    function Retrieve_GetDatasetData: Binary;
    function Retrieve_GetDatasetDataEx: Binary;
    function Retrieve_UpdateData: Binary;
    function Retrieve_ExecuteSQLCommand: Integer;
    function Retrieve_GetSchemaAsXML: AnsiString;
    function Retrieve_GetMultipleDatasets: Binary;
    function Retrieve_ExecuteSQLCommandEx: Integer;
  end;

  { IDALoginService_Async }
  IDALoginService_Async = interface(IDARemoteService_Async)
    ['{5A9C9231-1C8D-4436-88E1-07AD23D7BEF3}']
    procedure Invoke_Login(const UserID: AnsiString; const Password: AnsiString);
    procedure Invoke_Logout;
    function Retrieve_Login(out LoginInfo: TDALoginInfo): Boolean;
  end;

  { CoDARemoteService_Async }
  CoDARemoteService_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDARemoteService_Async;
  end;

  { CoDALoginService_Async }
  CoDALoginService_Async = class
    class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDALoginService_Async;
  end;

  { TDARemoteService_AsyncProxy }
  TDARemoteService_AsyncProxy = class(TROAsyncProxy, IDARemoteService_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_GetDatasetSchema(const aDatasetName: AnsiString);
    procedure Invoke_GetDatasetScripts(const DatasetNames: AnsiString);
    procedure Invoke_GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
    procedure Invoke_GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
    procedure Invoke_UpdateData(const Delta: Binary);
    procedure Invoke_ExecuteSQLCommand(const SQL: AnsiString);
    procedure Invoke_GetSchemaAsXML;
    procedure Invoke_GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray);
    procedure Invoke_ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray);
    function Retrieve_GetDatasetSchema: Binary;
    function Retrieve_GetDatasetScripts: AnsiString;
    function Retrieve_GetDatasetData: Binary;
    function Retrieve_GetDatasetDataEx: Binary;
    function Retrieve_UpdateData: Binary;
    function Retrieve_ExecuteSQLCommand: Integer;
    function Retrieve_GetSchemaAsXML: AnsiString;
    function Retrieve_GetMultipleDatasets: Binary;
    function Retrieve_ExecuteSQLCommandEx: Integer;
  end;

  { TDALoginService_AsyncProxy }
  TDALoginService_AsyncProxy = class(TDARemoteService_AsyncProxy, IDALoginService_Async)
  private
  protected
    function __GetInterfaceName:string; override;

    procedure Invoke_Login(const UserID: AnsiString; const Password: AnsiString);
    procedure Invoke_Logout;
    function Retrieve_Login(out LoginInfo: TDALoginInfo): Boolean;
  end;

implementation

uses
  {vcl:} SysUtils;

{ CoDARemoteService }

class function CoDARemoteService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDARemoteService_Async;
begin
  result := TDARemoteService_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TDARemoteService_AsyncProxy }

function TDARemoteService_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'DARemoteService';
end;

procedure TDARemoteService_AsyncProxy.Invoke_GetDatasetSchema(const aDatasetName: AnsiString);
begin
  __AssertProxyNotBusy('GetDatasetSchema');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetSchema');
  __Message.Write('aDatasetName', TypeInfo(AnsiString), aDatasetName, []);
  __DispatchAsyncRequest('GetDatasetSchema',__Message);
    __Message.UnsetAttributes(__TransportChannel);
end;

function TDARemoteService_AsyncProxy.Retrieve_GetDatasetSchema: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GetDatasetSchema');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TDARemoteService_AsyncProxy.Invoke_GetDatasetScripts(const DatasetNames: AnsiString);
begin
  __AssertProxyNotBusy('GetDatasetScripts');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetScripts');
  __Message.Write('DatasetNames', TypeInfo(AnsiString), DatasetNames, []);
  __DispatchAsyncRequest('GetDatasetScripts',__Message);
    __Message.UnsetAttributes(__TransportChannel);
end;

function TDARemoteService_AsyncProxy.Retrieve_GetDatasetScripts: AnsiString;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetDatasetScripts');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(AnsiString), Result, []);

  __response.Free();
end;

procedure TDARemoteService_AsyncProxy.Invoke_GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
begin
  __AssertProxyNotBusy('GetDatasetData');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetData');
  __Message.Write('DatasetName', TypeInfo(AnsiString), DatasetName, []);
  __Message.Write('Params', TypeInfo(AnsiString), Params, []);
  __Message.Write('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
  __Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
  __DispatchAsyncRequest('GetDatasetData',__Message);
    __Message.UnsetAttributes(__TransportChannel);
end;

function TDARemoteService_AsyncProxy.Retrieve_GetDatasetData: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GetDatasetData');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TDARemoteService_AsyncProxy.Invoke_GetDatasetDataEx(const DatasetName: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer);
begin
  __AssertProxyNotBusy('GetDatasetDataEx');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetDataEx');
  __Message.Write('DatasetName', TypeInfo(AnsiString), DatasetName, []);
  __Message.Write('Params', TypeInfo(TDADatasetParamArray), Params, []);
  __Message.Write('UserFilter', TypeInfo(AnsiString), UserFilter, []);
  __Message.Write('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
  __Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
  __DispatchAsyncRequest('GetDatasetDataEx',__Message);
    __Message.UnsetAttributes(__TransportChannel);
end;

function TDARemoteService_AsyncProxy.Retrieve_GetDatasetDataEx: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GetDatasetDataEx');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TDARemoteService_AsyncProxy.Invoke_UpdateData(const Delta: Binary);
begin
  __AssertProxyNotBusy('UpdateData');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'UpdateData');
  __Message.Write('Delta', TypeInfo(Binary), Delta, []);
  __DispatchAsyncRequest('UpdateData',__Message);
    __Message.UnsetAttributes(__TransportChannel);
end;

function TDARemoteService_AsyncProxy.Retrieve_UpdateData: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('UpdateData');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TDARemoteService_AsyncProxy.Invoke_ExecuteSQLCommand(const SQL: AnsiString);
begin
  __AssertProxyNotBusy('ExecuteSQLCommand');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'ExecuteSQLCommand');
  __Message.Write('SQL', TypeInfo(AnsiString), SQL, []);
  __DispatchAsyncRequest('ExecuteSQLCommand',__Message);
    __Message.UnsetAttributes(__TransportChannel);
end;

function TDARemoteService_AsyncProxy.Retrieve_ExecuteSQLCommand: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('ExecuteSQLCommand');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;

procedure TDARemoteService_AsyncProxy.Invoke_GetSchemaAsXML;
begin
  __AssertProxyNotBusy('GetSchemaAsXML');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetSchemaAsXML');
  __DispatchAsyncRequest('GetSchemaAsXML',__Message);
end;

function TDARemoteService_AsyncProxy.Retrieve_GetSchemaAsXML: AnsiString;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('GetSchemaAsXML');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(AnsiString), Result, []);

  __response.Free();
end;

procedure TDARemoteService_AsyncProxy.Invoke_GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray);
begin
  __AssertProxyNotBusy('GetMultipleDatasets');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetMultipleDatasets');
  __Message.Write('DatasetRequestInfoArray', TypeInfo(TDADatasetRequestInfoArray), DatasetRequestInfoArray, []);
  __DispatchAsyncRequest('GetMultipleDatasets',__Message);
    __Message.UnsetAttributes(__TransportChannel);
end;

function TDARemoteService_AsyncProxy.Retrieve_GetMultipleDatasets: Binary;
var __response:TStream;
begin
  result := nil;
  __response := __RetrieveAsyncResponse('GetMultipleDatasets');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Binary), Result, []);

  __response.Free();
end;

procedure TDARemoteService_AsyncProxy.Invoke_ExecuteSQLCommandEx(const CommandName: AnsiString; const Params: TDADatasetParamArray);
begin
  __AssertProxyNotBusy('ExecuteSQLCommandEx');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'ExecuteSQLCommandEx');
  __Message.Write('CommandName', TypeInfo(AnsiString), CommandName, []);
  __Message.Write('Params', TypeInfo(TDADatasetParamArray), Params, []);
  __DispatchAsyncRequest('ExecuteSQLCommandEx',__Message);
    __Message.UnsetAttributes(__TransportChannel);
end;

function TDARemoteService_AsyncProxy.Retrieve_ExecuteSQLCommandEx: Integer;
var __response:TStream;
begin
  __response := __RetrieveAsyncResponse('ExecuteSQLCommandEx');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Integer), Result, []);

  __response.Free();
end;


{ CoDALoginService }

class function CoDALoginService_Async.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDALoginService_Async;
begin
  result := TDALoginService_AsyncProxy.Create(aMessage, aTransportChannel);
end;

{ TDALoginService_AsyncProxy }

function TDALoginService_AsyncProxy.__GetInterfaceName:string;
begin
  result := 'DALoginService';
end;

procedure TDALoginService_AsyncProxy.Invoke_Login(const UserID: AnsiString; const Password: AnsiString);
begin
  __AssertProxyNotBusy('Login');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'Login');
  __Message.Write('UserID', TypeInfo(AnsiString), UserID, []);
  __Message.Write('Password', TypeInfo(AnsiString), Password, []);
  __DispatchAsyncRequest('Login',__Message);
    __Message.UnsetAttributes(__TransportChannel);
end;

function TDALoginService_AsyncProxy.Retrieve_Login(out LoginInfo: TDALoginInfo): Boolean;
var __response:TStream;
begin
  LoginInfo := nil;
  __response := __RetrieveAsyncResponse('Login');
  __Message.ReadFromStream(__response);

  __Message.Read('Result', TypeInfo(Boolean), Result, []);
  __Message.Read('LoginInfo', TypeInfo(TDALoginInfo), LoginInfo, []);

  __response.Free();
end;

procedure TDALoginService_AsyncProxy.Invoke_Logout;
begin
  __AssertProxyNotBusy('Logout');

  __Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'Logout');
  __DispatchAsyncRequest('Logout',__Message, false);
end;


initialization
end.