david
e4d0fcb01d
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@46 b6239004-a887-0f4b-9937-50029ccdca16
366 lines
14 KiB
ObjectPascal
366 lines
14 KiB
ObjectPascal
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:} uROXMLIntf, uROServer, uROServerIntf, uROTypes, uROClientIntf,
|
|
{Generated:} DataAbstract3_Intf;
|
|
|
|
type
|
|
TDARemoteService_Invoker = class(TROInvoker)
|
|
private
|
|
protected
|
|
public
|
|
constructor Create; override;
|
|
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
|
|
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;
|
|
|
|
{ TDARemoteService_Invoker }
|
|
|
|
constructor TDARemoteService_Invoker.Create;
|
|
begin
|
|
inherited Create;
|
|
FAbstract := True;
|
|
end;
|
|
|
|
procedure TDARemoteService_Invoker.Invoke_GetDatasetSchema(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function GetDatasetSchema(const aDatasetName: AnsiString): Binary; }
|
|
var
|
|
aDatasetName: AnsiString;
|
|
lResult: Binary;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('aDatasetName', TypeInfo(AnsiString), aDatasetName, []);
|
|
|
|
lResult := (__Instance as IDARemoteService).GetDatasetSchema(aDatasetName);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'GetDatasetSchemaResponse');
|
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
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: AnsiString): AnsiString; }
|
|
var
|
|
DatasetNames: AnsiString;
|
|
lResult: AnsiString;
|
|
begin
|
|
try
|
|
__Message.Read('DatasetNames', TypeInfo(AnsiString), DatasetNames, []);
|
|
|
|
lResult := (__Instance as IDARemoteService).GetDatasetScripts(DatasetNames);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'GetDatasetScriptsResponse');
|
|
__Message.Write('Result', TypeInfo(AnsiString), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
end;
|
|
end;
|
|
|
|
procedure TDARemoteService_Invoker.Invoke_GetDatasetData(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function GetDatasetData(const DatasetName: AnsiString; const Params: AnsiString; const IncludeSchema: Boolean; const MaxRecords: Integer): Binary; }
|
|
var
|
|
DatasetName: AnsiString;
|
|
Params: AnsiString;
|
|
IncludeSchema: Boolean;
|
|
MaxRecords: Integer;
|
|
lResult: Binary;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('DatasetName', TypeInfo(AnsiString), DatasetName, []);
|
|
__Message.Read('Params', TypeInfo(AnsiString), 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, 'DataAbstract3', 'DARemoteService', 'GetDatasetDataResponse');
|
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
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: AnsiString; const Params: TDADatasetParamArray; const UserFilter: AnsiString; const IncludeSchema: Boolean;
|
|
const MaxRecords: Integer): Binary; }
|
|
var
|
|
DatasetName: AnsiString;
|
|
Params: DataAbstract3_Intf.TDADatasetParamArray;
|
|
UserFilter: AnsiString;
|
|
IncludeSchema: Boolean;
|
|
MaxRecords: Integer;
|
|
lResult: Binary;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
Params := nil;
|
|
lResult := nil;
|
|
try
|
|
__Message.Read('DatasetName', TypeInfo(AnsiString), DatasetName, []);
|
|
__Message.Read('Params', TypeInfo(DataAbstract3_Intf.TDADatasetParamArray), Params, []);
|
|
__Message.Read('UserFilter', TypeInfo(AnsiString), 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, 'DataAbstract3', 'DARemoteService', 'GetDatasetDataExResponse');
|
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
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, 'DataAbstract3', 'DARemoteService', 'UpdateDataResponse');
|
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
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: AnsiString): Integer; }
|
|
var
|
|
SQL: AnsiString;
|
|
lResult: Integer;
|
|
begin
|
|
try
|
|
__Message.Read('SQL', TypeInfo(AnsiString), SQL, []);
|
|
|
|
lResult := (__Instance as IDARemoteService).ExecuteSQLCommand(SQL);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'ExecuteSQLCommandResponse');
|
|
__Message.Write('Result', TypeInfo(Integer), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
end;
|
|
end;
|
|
|
|
procedure TDARemoteService_Invoker.Invoke_GetSchemaAsXML(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function GetSchemaAsXML: AnsiString; }
|
|
var
|
|
lResult: AnsiString;
|
|
begin
|
|
try
|
|
lResult := (__Instance as IDARemoteService).GetSchemaAsXML;
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'GetSchemaAsXMLResponse');
|
|
__Message.Write('Result', TypeInfo(AnsiString), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
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, 'DataAbstract3', 'DARemoteService', 'GetMultipleDatasetsResponse');
|
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
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: AnsiString; const Params: TDADatasetParamArray): Integer; }
|
|
var
|
|
CommandName: AnsiString;
|
|
Params: DataAbstract3_Intf.TDADatasetParamArray;
|
|
lResult: Integer;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
Params := nil;
|
|
try
|
|
__Message.Read('CommandName', TypeInfo(AnsiString), CommandName, []);
|
|
__Message.Read('Params', TypeInfo(DataAbstract3_Intf.TDADatasetParamArray), Params, []);
|
|
|
|
lResult := (__Instance as IDARemoteService).ExecuteSQLCommandEx(CommandName, Params);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DARemoteService', 'ExecuteSQLCommandExResponse');
|
|
__Message.Write('Result', TypeInfo(Integer), lResult, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
finally
|
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
|
try
|
|
__lObjectDisposer.Add(Params);
|
|
finally
|
|
__lObjectDisposer.Free();
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
{ TDALoginService_Invoker }
|
|
|
|
constructor TDALoginService_Invoker.Create;
|
|
begin
|
|
inherited Create;
|
|
FAbstract := True;
|
|
end;
|
|
|
|
procedure TDALoginService_Invoker.Invoke_Login(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
|
{ function Login(const UserID: AnsiString; const Password: AnsiString; out LoginInfo: TDALoginInfo): Boolean; }
|
|
var
|
|
UserID: AnsiString;
|
|
Password: AnsiString;
|
|
LoginInfo: DataAbstract3_Intf.TDALoginInfo;
|
|
lResult: Boolean;
|
|
__lObjectDisposer: TROObjectDisposer;
|
|
begin
|
|
LoginInfo := nil;
|
|
try
|
|
__Message.Read('UserID', TypeInfo(AnsiString), UserID, []);
|
|
__Message.Read('Password', TypeInfo(AnsiString), Password, []);
|
|
|
|
lResult := (__Instance as IDALoginService).Login(UserID, Password, LoginInfo);
|
|
|
|
__Message.InitializeResponseMessage(__Transport, 'DataAbstract3', 'DALoginService', 'LoginResponse');
|
|
__Message.Write('Result', TypeInfo(Boolean), lResult, []);
|
|
__Message.Write('LoginInfo', TypeInfo(DataAbstract3_Intf.TDALoginInfo), LoginInfo, []);
|
|
__Message.Finalize;
|
|
__Message.UnsetAttributes(__Transport);
|
|
|
|
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, 'DataAbstract3', 'DALoginService', 'LogoutResponse');
|
|
__Message.Finalize;
|
|
|
|
__oResponseOptions := [roNoResponse];
|
|
|
|
finally
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
end.
|