40 lines
1016 B
ObjectPascal
40 lines
1016 B
ObjectPascal
unit DynWhere_ClientData;
|
|
|
|
interface
|
|
|
|
uses
|
|
{vcl:} SysUtils, Classes, DB, DBClient,
|
|
{RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
|
|
{Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
|
|
uDADataStreamer, uDAScriptingProvider, uDAMemDataTable;
|
|
|
|
type
|
|
TDynWhere_ClientDataForm = class(TDataModule)
|
|
Message: TROBinMessage;
|
|
Channel: TROWinInetHTTPChannel;
|
|
RemoteService: TRORemoteService;
|
|
DataStreamer: TDABin2DataStreamer;
|
|
RemoteDataAdapter: TDARemoteDataAdapter;
|
|
tbl_Data: TDAMemDataTable;
|
|
ds_Data: TDADataSource;
|
|
procedure DataModuleCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DynWhere_ClientDataForm: TDynWhere_ClientDataForm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TDynWhere_ClientDataForm.DataModuleCreate(Sender: TObject);
|
|
begin
|
|
RemoteDataAdapter.SetupDefaultRequest;
|
|
end;
|
|
|
|
end.
|