33 lines
730 B
ObjectPascal
33 lines
730 B
ObjectPascal
|
unit fClientDataModule;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
{vcl:} SysUtils, Classes, DB, DBClient,
|
||
|
|
{RemObjects:} uROClient, uROClientIntf, uRORemoteService, $MESSAGEUNIT, uROLocalChannel,
|
||
|
|
{Data Abstract:} uDADataTable, uDABINAdapter, uDAInterfaces, uDABin2DataStreamer, uDARemoteDataAdapter;
|
||
|
|
|
||
|
|
type
|
||
|
|
TClientDataModule = class(TDataModule)
|
||
|
|
ROMessage: TRO$MSGCLSNAME;
|
||
|
|
ROChannel: TROLocalChannel;
|
||
|
|
RemoteService: TRORemoteService;
|
||
|
|
DataStreamer: TDABin2DataStreamer;
|
||
|
|
RemoteDataAdapter: TDARemoteDataAdapter;
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
ClientDataModule: TClientDataModule;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses fServerDataModule;
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
end.
|