FYI: Our service code (pretty empty)
unit GFDService_Impl;
// ----------------------------------------------------------------------
// This file was automatically generated by Remoting SDK from a
// RODL file downloaded from a server or associated with this project.
//
// Do not modify this file manually, or your changes will be lost when
// it is regenerated the next time you update your RODL.
// ----------------------------------------------------------------------
{$I RemObjects.inc}
interface
uses
{$IFDEF DELPHIXE2UP}System.SysUtils{$ELSE}SysUtils{$ENDIF},
{$IFDEF DELPHIXE2UP}System.Classes{$ELSE}Classes{$ENDIF},
{$IFDEF DELPHIXE2UP}System.TypInfo{$ELSE}TypInfo{$ENDIF},
uROEncoding,
uROXMLIntf,
uROClientIntf,
uROClasses,
uROTypes,
uROServer,
uROServerIntf,
uROSessions,
uRORemoteDataModule,
uDAInterfaces,
uDAServerInterfaces,
uDADelta,
uDABusinessProcessor,
uDASchema,
DataAbstractService_Impl,
DataAbstract3_Intf,
DataAbstract4_Intf,
OffServerLibrary_Intf, uDAFields, uDACore, uDASchemaClasses,
uDAScriptingProvider, uDADataStreamer, uDABin2DataStreamer, uROComponent,
uDAStreamableComponent, uDAClientSchema;
type
{ Forward declarations }
TGFDService = class;
{ TGFDService }
TGFDService = class(TDataAbstractService, IGFDService)
Bin2DataStreamer: TDABin2DataStreamer;
BPQueGFDSession: TDABusinessProcessor;
BPGFDItems: TDABusinessProcessor;
BPQueGFDItems: TDABusinessProcessor;
BPGFDItemsToRevoke: TDABusinessProcessor;
DAGFDSchema: TDASchema;
procedure DataAbstractServiceCreate(Sender: TObject);
private
protected
{ IGFDService methods }
end;
implementation
{$IFDEF DELPHIXE2UP}
{%CLASSGROUP ‘System.Classes.TPersistent’}
{$ENDIF}
{$IFNDEF FPC}
{$R *.dfm}
{$ENDIF}
{$IFDEF FPC}
{$R *.lfm}
{$ENDIF}
uses
u_HelperRoutines,
uROClassFactories,
DataAbstract3_Invk, DataAbstract4_Invk, OffServerLibrary_Invk,
RODACheckServerBusinessProcessor;
var fClassFactory_GFDService: IROClassFactory;
procedure Create_GFDService(out anInstance: IInterface);
begin
anInstance := TGFDService.Create(nil);
end;
procedure TGFDService.DataAbstractServiceCreate(Sender: TObject);
begin
OffDACopyStatementNameInStatementConnectionType( Self );
TRODACheckTDARemoteService.RODACheckRemoteService(Self);
end;
initialization
// fClassFactory := TROClassFactory.Create(‘GFDService’, Create_GFDService, TGFDService_Invoker);
//** MA (12/11/2013) : pool maar niet preinit : voor hen die geen gfd hebben heeft het weinig zin… **//
// fClassFactory := TROPooledClassFactory.Create(‘GFDService’, Create_GFDService, TGFDService_Invoker,1,pbCreateAdditional,False);
fClassFactory_GFDService := TROPooledClassFactory.Create(‘GFDService’, {$IFDEF FPC}@{$ENDIF}Create_GFDService, TGFDService_Invoker,1,pbCreateAdditional,False);
// RegisterForZeroConf(fClassFactory_GFDService, ‘_GFDService_rosdk._tcp.’);
finalization
UnRegisterClassFactory(fClassFactory_GFDService);
fClassFactory_GFDService := nil;
end.