Server Module

It contains a component TFDManager which becomes active during the server module creation. This is the correct place to read the global connection string giving access to the shared database server and assign it to a read-only property.

Example server module initializes FireDAC manager and sets the connection string (currently hard-coded in this example).

Server Module

Limitations of this code:

• The connection string is hard-coded and it should come from some external source (like an INI or XML file).

• In addition to file system security or any other access control over the external source, no critical information should be in the open. Use encryption for stronger protection.

ServerModule.pas

unit ServerModule;

interface

uses
  Classes, SysUtils, uniGUIServer, uniGUIMainModule, uniGUIApplication,
  uIdCustomHTTPServer, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error,
  FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Phys,
  FireDAC.Comp.Client;

type
  TUniServerModule = class(TUniGUIServerModule)
    FDManager1: TFDManager;
    procedure UniGUIServerModuleCreate(Sender: TObject);
  private
    FConnString : string;
  protected
    procedure FirstInit; override;
  public
    property ConnString : string read FConnString;
  end;

function UniServerModule: TUniServerModule;

implementation

{$R *.dfm}

uses
  UniGUIVars;

function UniServerModule: TUniServerModule;
begin
  Result:=TUniServerModule(UniGUIServerInstance);
end;

procedure TUniServerModule.FirstInit;
begin
  InitServerModule(Self);
end;

procedure TUniServerModule.UniGUIServerModuleCreate(Sender: TObject);
begin
  FDManager1.Active := True;
  FConnString :=
    'DriverID=SQLite;Database=' +
    FilesFolderPath +
    'SQLite\_Sales.db';
end;

initialization
  RegisterServerModuleClass(TUniServerModule);

end.