david
472097efe5
- Recompilación de todos los paquetes de RO para poner RemObjects_Core_D10 como paquete de runtime/designtime. git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@5 b6239004-a887-0f4b-9937-50029ccdca16
38 lines
1005 B
ObjectPascal
38 lines
1005 B
ObjectPascal
unit FirstSampleService_Impl;
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} Classes, SysUtils,
|
|
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
|
{Data Abstract:} uDAClasses, uDADataTable, uDABinAdapter, uDAInterfaces, uDADataStreamer,
|
|
{Ancestor Implementation:} DataAbstractService_Impl,
|
|
{Used RODLs:} DataAbstract4_Intf,
|
|
{Generated:} FirstSampleLibrary_Intf;
|
|
|
|
type
|
|
{ TFirstSampleService }
|
|
TFirstSampleService = class(TDataAbstractService, IFirstSampleService)
|
|
DataStreamer: TDABinDataStreamer;
|
|
Schema: TDASchema;
|
|
private
|
|
protected
|
|
{ IFirstSampleService methods }
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
uses
|
|
{Generated:} FirstSampleLibrary_Invk, FirstSampleServerData;
|
|
|
|
procedure Create_FirstSampleService(out anInstance: IUnknown);
|
|
begin
|
|
anInstance := TFirstSampleService.Create(nil);
|
|
end;
|
|
|
|
initialization
|
|
TROClassFactory.Create('FirstSampleService', Create_FirstSampleService, TFirstSampleService_Invoker);
|
|
finalization
|
|
end.
|