david
ffa5669738
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@58 b6239004-a887-0f4b-9937-50029ccdca16
42 lines
1.1 KiB
ObjectPascal
42 lines
1.1 KiB
ObjectPascal
unit $SERVICENAME_Impl;
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} Classes, SysUtils,
|
|
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions, uRORemoteDataModule,
|
|
{Data Abstract:} uDAClasses, uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDABusinessProcessor,
|
|
{Ancestor Implementation:} DataAbstractService_Impl,
|
|
{Used RODLs:} DataAbstract4_Intf,
|
|
{Generated:} $LIBRARYNAME_Intf;
|
|
|
|
type
|
|
{ T$SERVICENAME }
|
|
T$SERVICENAME = class(TDataAbstractService, I$SERVICENAME)
|
|
DataStreamer: TDABin2DataStreamer;
|
|
Schema: TDASchema;
|
|
private
|
|
protected
|
|
{ I$SERVICENAME methods }
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
uses
|
|
{Generated:} $LIBRARYNAME_Invk, fServerDataModule;
|
|
|
|
procedure Create_$SERVICENAME(out anInstance: IUnknown);
|
|
begin
|
|
anInstance := T$SERVICENAME.Create(nil);
|
|
end;
|
|
|
|
var
|
|
fClassFactory: IROClassFactory;
|
|
initialization
|
|
fClassFactory := TROClassFactory.Create('$SERVICENAME', Create_$SERVICENAME, T$SERVICENAME_Invoker);
|
|
// RegisterForZeroConf(fClassFactory,'_$SERVICENAME_rosdk._tcp.');
|
|
finalization
|
|
UnRegisterClassFactory(fClassFactory);
|
|
fClassFactory := nil;
|
|
end. |