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.