33 lines
659 B
ObjectPascal
33 lines
659 B
ObjectPascal
|
unit FetchClientData;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
{vcl:} SysUtils, Classes, DB, DBClient,
|
||
|
|
{RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel,
|
||
|
|
{Data Abstract:} uDABin2DataStreamer, uDADataStreamer;
|
||
|
|
|
||
|
|
type
|
||
|
|
TFetchClientDataModule = class(TDataModule)
|
||
|
|
Message: TROBinMessage;
|
||
|
|
Channel: TROWinInetHTTPChannel;
|
||
|
|
RemoteService: TRORemoteService;
|
||
|
|
DataStreamer: TDABin2DataStreamer;
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
FetchClientDataModule: TFetchClientDataModule;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
uses
|
||
|
|
FetchClientMain;
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
end.
|