david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
38 lines
936 B
ObjectPascal
38 lines
936 B
ObjectPascal
unit $SERVICENAME_Impl;
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} Classes, SysUtils,
|
|
{RemObjects:} uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
|
{Data Abstract:} uDAClasses, uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDADataStreamer,
|
|
{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;
|
|
|
|
initialization
|
|
TROClassFactory.Create('$SERVICENAME', Create_$SERVICENAME, T$SERVICENAME_Invoker);
|
|
finalization
|
|
end.
|