david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
38 lines
1.0 KiB
ObjectPascal
38 lines
1.0 KiB
ObjectPascal
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.
|