415 lines
15 KiB
ObjectPascal
415 lines
15 KiB
ObjectPascal
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:} uROTypes, uROClientIntf, uROAsync,
|
|
{Project:} DataAbstract3_Intf;
|
|
|
|
type
|
|
{ IDARemoteService_Async }
|
|
IDARemoteService_Async = interface(IROAsyncInterface)
|
|
['{F8299772-C66E-4D77-A4F9-78400662810B}']
|
|
procedure Invoke_GetDatasetSchema(const aDatasetName: String);
|
|
procedure Invoke_GetDatasetScripts(const DatasetNames: String);
|
|
procedure Invoke_GetDatasetData(const DatasetName: String; const Params: String; const IncludeSchema: Boolean; const MaxRecords: Integer);
|
|
procedure Invoke_GetDatasetDataEx(const DatasetName: String; const Params: TDADatasetParamArray; const UserFilter: String; const IncludeSchema: Boolean; const MaxRecords: Integer);
|
|
procedure Invoke_UpdateData(const Delta: Binary);
|
|
procedure Invoke_ExecuteSQLCommand(const SQL: String);
|
|
procedure Invoke_GetSchemaAsXML;
|
|
procedure Invoke_GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray);
|
|
procedure Invoke_ExecuteSQLCommandEx(const CommandName: String; const Params: TDADatasetParamArray);
|
|
function Retrieve_GetDatasetSchema: Binary;
|
|
function Retrieve_GetDatasetScripts: String;
|
|
function Retrieve_GetDatasetData: Binary;
|
|
function Retrieve_GetDatasetDataEx: Binary;
|
|
function Retrieve_UpdateData: Binary;
|
|
function Retrieve_ExecuteSQLCommand: Integer;
|
|
function Retrieve_GetSchemaAsXML: String;
|
|
function Retrieve_GetMultipleDatasets: Binary;
|
|
function Retrieve_ExecuteSQLCommandEx: Integer;
|
|
end;
|
|
|
|
{ CoDARemoteService_Async }
|
|
CoDARemoteService_Async = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDARemoteService_Async;
|
|
end;
|
|
|
|
{ TDARemoteService_AsyncProxy }
|
|
TDARemoteService_AsyncProxy = class(TROAsyncProxy, IDARemoteService_Async)
|
|
private
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
procedure Invoke_GetDatasetSchema(const aDatasetName: String);
|
|
procedure Invoke_GetDatasetScripts(const DatasetNames: String);
|
|
procedure Invoke_GetDatasetData(const DatasetName: String; const Params: String; const IncludeSchema: Boolean; const MaxRecords: Integer);
|
|
procedure Invoke_GetDatasetDataEx(const DatasetName: String; const Params: TDADatasetParamArray; const UserFilter: String; const IncludeSchema: Boolean; const MaxRecords: Integer);
|
|
procedure Invoke_UpdateData(const Delta: Binary);
|
|
procedure Invoke_ExecuteSQLCommand(const SQL: String);
|
|
procedure Invoke_GetSchemaAsXML;
|
|
procedure Invoke_GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray);
|
|
procedure Invoke_ExecuteSQLCommandEx(const CommandName: String; const Params: TDADatasetParamArray);
|
|
function Retrieve_GetDatasetSchema: Binary;
|
|
function Retrieve_GetDatasetScripts: String;
|
|
function Retrieve_GetDatasetData: Binary;
|
|
function Retrieve_GetDatasetDataEx: Binary;
|
|
function Retrieve_UpdateData: Binary;
|
|
function Retrieve_ExecuteSQLCommand: Integer;
|
|
function Retrieve_GetSchemaAsXML: String;
|
|
function Retrieve_GetMultipleDatasets: Binary;
|
|
function Retrieve_ExecuteSQLCommandEx: Integer;
|
|
end;
|
|
|
|
type
|
|
{ IDALoginService_Async }
|
|
IDALoginService_Async = interface(IDARemoteService_Async)
|
|
['{5A9C9231-1C8D-4436-88E1-07AD23D7BEF3}']
|
|
procedure Invoke_Login(const UserID: String; const Password: String);
|
|
procedure Invoke_Logout;
|
|
function Retrieve_Login(out LoginInfo: TDALoginInfo): Boolean;
|
|
end;
|
|
|
|
{ CoDALoginService_Async }
|
|
CoDALoginService_Async = class
|
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IDALoginService_Async;
|
|
end;
|
|
|
|
{ TDALoginService_AsyncProxy }
|
|
TDALoginService_AsyncProxy = class(TDARemoteService_AsyncProxy, IDALoginService_Async)
|
|
private
|
|
protected
|
|
function __GetInterfaceName:string; override;
|
|
|
|
procedure Invoke_Login(const UserID: String; const Password: String);
|
|
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: String);
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('GetDatasetSchema');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetSchema');
|
|
__Message.Write('aDatasetName', TypeInfo(String), aDatasetName, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('GetDatasetSchema',__request);
|
|
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: String);
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('GetDatasetScripts');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetScripts');
|
|
__Message.Write('DatasetNames', TypeInfo(String), DatasetNames, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('GetDatasetScripts',__request);
|
|
end;
|
|
|
|
function TDARemoteService_AsyncProxy.Retrieve_GetDatasetScripts: String;
|
|
var __response:TStream;
|
|
begin
|
|
__response := __RetrieveAsyncResponse('GetDatasetScripts');
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(String), Result, []);
|
|
|
|
__response.Free();
|
|
end;
|
|
|
|
procedure TDARemoteService_AsyncProxy.Invoke_GetDatasetData(const DatasetName: String; const Params: String; const IncludeSchema: Boolean; const MaxRecords: Integer);
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('GetDatasetData');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetData');
|
|
__Message.Write('DatasetName', TypeInfo(String), DatasetName, []);
|
|
__Message.Write('Params', TypeInfo(String), Params, []);
|
|
__Message.Write('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
|
|
__Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('GetDatasetData',__request);
|
|
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: String; const Params: TDADatasetParamArray; const UserFilter: String; const IncludeSchema: Boolean; const MaxRecords: Integer);
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('GetDatasetDataEx');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetDatasetDataEx');
|
|
__Message.Write('DatasetName', TypeInfo(String), DatasetName, []);
|
|
__Message.Write('Params', TypeInfo(TDADatasetParamArray), Params, []);
|
|
__Message.Write('UserFilter', TypeInfo(String), UserFilter, []);
|
|
__Message.Write('IncludeSchema', TypeInfo(Boolean), IncludeSchema, []);
|
|
__Message.Write('MaxRecords', TypeInfo(Integer), MaxRecords, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('GetDatasetDataEx',__request);
|
|
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);
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('UpdateData');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'UpdateData');
|
|
__Message.Write('Delta', TypeInfo(Binary), Delta, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('UpdateData',__request);
|
|
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: String);
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('ExecuteSQLCommand');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'ExecuteSQLCommand');
|
|
__Message.Write('SQL', TypeInfo(String), SQL, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('ExecuteSQLCommand',__request);
|
|
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;
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('GetSchemaAsXML');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetSchemaAsXML');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('GetSchemaAsXML',__request);
|
|
end;
|
|
|
|
function TDARemoteService_AsyncProxy.Retrieve_GetSchemaAsXML: String;
|
|
var __response:TStream;
|
|
begin
|
|
__response := __RetrieveAsyncResponse('GetSchemaAsXML');
|
|
__Message.ReadFromStream(__response);
|
|
|
|
__Message.Read('Result', TypeInfo(String), Result, []);
|
|
|
|
__response.Free();
|
|
end;
|
|
|
|
procedure TDARemoteService_AsyncProxy.Invoke_GetMultipleDatasets(const DatasetRequestInfoArray: TDADatasetRequestInfoArray);
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('GetMultipleDatasets');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'GetMultipleDatasets');
|
|
__Message.Write('DatasetRequestInfoArray', TypeInfo(TDADatasetRequestInfoArray), DatasetRequestInfoArray, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('GetMultipleDatasets',__request);
|
|
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: String; const Params: TDADatasetParamArray);
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('ExecuteSQLCommandEx');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'ExecuteSQLCommandEx');
|
|
__Message.Write('CommandName', TypeInfo(String), CommandName, []);
|
|
__Message.Write('Params', TypeInfo(TDADatasetParamArray), Params, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('ExecuteSQLCommandEx',__request);
|
|
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: String; const Password: String);
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('Login');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'Login');
|
|
__Message.Write('UserID', TypeInfo(String), UserID, []);
|
|
__Message.Write('Password', TypeInfo(String), Password, []);
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('Login',__request);
|
|
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;
|
|
var __request:TStream;
|
|
begin
|
|
__AssertProxyNotBusy('Logout');
|
|
__request := TMemoryStream.Create;
|
|
|
|
__Message.InitializeRequestMessage(__TransportChannel, 'DataAbstract3', __InterfaceName, 'Logout');
|
|
__Message.Finalize;
|
|
|
|
__Message.WriteToStream(__request);
|
|
__DispatchAsyncRequest('Logout',__request, false);
|
|
end;
|
|
|
|
|
|
initialization
|
|
end.
|