unit MultiLevelDetailService_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:} MultiLevelDetailLibrary_Intf;

type
  { TMultiLevelDetailService }
  TMultiLevelDetailService = class(TDataAbstractService, IMultiLevelDetailService)
    DataStreamer: TDABinDataStreamer;
    Schema: TDASchema;
  private
  protected
    { IMultiLevelDetailService methods }
  end;

implementation

{$R *.dfm}
uses
  {Generated:} MultiLevelDetailLibrary_Invk, MultiLevelDetailServer_Data;

procedure Create_MultiLevelDetailService(out anInstance: IUnknown);
begin
  anInstance := TMultiLevelDetailService.Create(nil);
end;

initialization
  TROClassFactory.Create('MultiLevelDetailService', Create_MultiLevelDetailService, TMultiLevelDetailService_Invoker);
finalization
end.