Server Module

Ele contém um componente TFDManager que se torna ativo durante a criação do módulo de servidor. Este é o lugar correto para ler a string de conexão global que dá acesso ao servidor de banco de dados compartilhado e atribuí-la a uma propriedade somente leitura.

O módulo de servidor de exemplo inicializa o gerenciador FireDAC e define a string de conexão (atualmente codificada diretamente neste exemplo).

Server Module

Limitações deste código:

• A string de conexão está codificada diretamente e deveria vir de alguma fonte externa (como um arquivo INI ou XML).

• Além da segurança do sistema de arquivos ou qualquer outro controle de acesso sobre a fonte externa, nenhuma informação crítica deve ficar exposta. Use criptografia para proteção mais forte.

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.