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.