unit fClientDataModule;

interface

uses 
  {vcl:} SysUtils, Classes, DB, DBClient, 
  {RemObjects:} uROClient, uROClientIntf, uRORemoteService, uROBinMessage, uROWinInetHTTPChannel, 
  {Data Abstract:} uDADataTable, uDABin2DataStreamer, uDAInterfaces, uDARemoteDataAdapter,
  uDADataStreamer, uDAScriptingProvider, uDAMemDataTable, uRODynamicRequest;

type
  TClientDataModule = class(TDataModule)
    Message: TROBinMessage;
    Channel: TROWinInetHTTPChannel;
    RemoteService: TRORemoteService;
    DataStreamer: TDABin2DataStreamer;
    RemoteDataAdapter: TDARemoteDataAdapter;
    drLoginRequest: TRODynamicRequest;
    tbl_Workers: TDAMemDataTable;
    ds_Workers: TDADataSource;
    tbl_Dynamic: TDAMemDataTable;
    ds_Dynamic: TDADataSource;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure Login;
  end;

var
  ClientDataModule: TClientDataModule;

implementation

{$R *.dfm}

uses DASampleLibrary_Intf;

{ TClientDataModule }

procedure TClientDataModule.Login;
begin
  with drLoginRequest do begin
    {$IFNDEF FPC}
    Params[0].Value := PlatformEnum_peWindowsDelphi;
    {$ELSE}
      {$IFDEF WINDOWS}
      Params[0].Value := PlatformEnum_peWindowsFPC;
      {$ELSE}
        {$IFDEF LINUX}
        Params[0].Value := PlatformEnum_peLinuxFPC;
        {$ELSE}
        Params[0].Value := PlatformEnum_peUnknown;
        {$ENDIF}
      {$ENDIF}
    {$ENDIF}
    Params[1].Value := 'DASQL Client';
    Execute(Params);
  end;
end;

end.