david
0cbd2a5477
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@49 b6239004-a887-0f4b-9937-50029ccdca16
48 lines
1.3 KiB
ObjectPascal
48 lines
1.3 KiB
ObjectPascal
unit DataSnapServerData2;
|
|
|
|
interface
|
|
|
|
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
|
{RemObjects:} uRODataSnapModule, Provider, ADODB, DataSnapServerInterfaces;
|
|
|
|
type
|
|
TTDataSnapServerDataForm2 = class(TRODataSnapModule,IAppServer2)
|
|
qry_categories: TADOQuery;
|
|
con_SqlServer: TADOConnection;
|
|
prv_categories: TDataSetProvider;
|
|
qry_categoriesCategoryID: TAutoIncField;
|
|
qry_categoriesCategoryName: TWideStringField;
|
|
qry_categoriesDescription: TMemoField;
|
|
qry_categoriesPicture: TBlobField;
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
TDataSnapServerDataForm2: TTDataSnapServerDataForm2;
|
|
|
|
implementation
|
|
|
|
uses {RemObjects:} uROServer, uRODataSnap_Invk;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure Create_DataSnapModule(out oInstance:IUnknown);
|
|
begin
|
|
oInstance := TTDataSnapServerDataForm2.Create(nil);
|
|
end;
|
|
|
|
initialization
|
|
{ To adjust scalability of the DataSnapModule and avoid recreation of
|
|
instances for each roundtrip, you might want to choose a different
|
|
ClassFactory type.
|
|
|
|
Make sure to check the following url for more information:
|
|
http://www.remobjects.com?ro16 }
|
|
|
|
//TROPooledClassFactory.Create('IAppServer', Create_DataSnapModule, TAppServer_Invoker, 25);
|
|
TROClassFactory.Create('IAppServer2', Create_DataSnapModule, TAppServer_Invoker);
|
|
end.
|