david
2824855ea7
- Recompilación en Delphi10 de todos los paquetes de RO para generar las DCU's en Lib\D10 - Recompilación en Delphi10 de todos los paquetes de DA para generar las DCU's en Lib\D10 git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@9 b6239004-a887-0f4b-9937-50029ccdca16
51 lines
1.6 KiB
ObjectPascal
51 lines
1.6 KiB
ObjectPascal
unit DataSnapServerData;
|
|
|
|
interface
|
|
|
|
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
|
{RemObjects:} uRODataSnapModule, Provider, ADODB;
|
|
|
|
type
|
|
TDataSnapServerDataForm = class(TRODataSnapModule)
|
|
con_SqlServer: TADOConnection;
|
|
qry_customers: TADOQuery;
|
|
prv_customers: TDataSetProvider;
|
|
qry_Products: TADOQuery;
|
|
prv_products: TDataSetProvider;
|
|
qry_customersCustomerID: TWideStringField;
|
|
qry_customersCompanyName: TWideStringField;
|
|
qry_customersContactName: TWideStringField;
|
|
qry_customersContactTitle: TWideStringField;
|
|
qry_customersAddress: TWideStringField;
|
|
qry_customersCity: TWideStringField;
|
|
qry_customersRegion: TWideStringField;
|
|
qry_customersPostalCode: TWideStringField;
|
|
qry_customersCountry: TWideStringField;
|
|
qry_customersPhone: TWideStringField;
|
|
qry_customersFax: TWideStringField;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DataSnapServerDataForm: TDataSnapServerDataForm;
|
|
|
|
implementation
|
|
|
|
uses {RemObjects:} uROServer, uRODataSnap_Invk, uROClassFactories;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure Create_DataSnapModule(out oInstance:IUnknown);
|
|
begin
|
|
oInstance := TDataSnapServerDataForm.Create(nil);
|
|
end;
|
|
|
|
initialization
|
|
TROClassFactory.Create('IAppServer', Create_DataSnapModule, TAppServer_Invoker);
|
|
//TROPooledClassFactory.Create('IAppServer', Create_DataSnapModule, TIAppServer_Invoker, 10, pbCreateAdditional);
|
|
//TROPerClientClassFactory.Create('IAppServer', Create_DataSnapModule, TIAppServer_Invoker, 10, pbCreateAdditional);
|
|
end.
|