1:
2:
3:
4:
5:
6:
7:
8:
9:

 
if ReleaseCreatorIIDataModule.FDPhysFBDriverLink = nil then
 ReleaseCreatorIIDataModule.FDPhysFBDriverLink := TFDPhysFBDriverLink.Create(self);
with ReleaseCreatorIIDataModule.FDPhysFBDriverLink do
begin
 Embedded := true;
 VendorHome := '';
 VendorLib := TPath.Combine(ExtractFileDir(Application.ExeName),'dbms\fbclient.dll');
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

with ReleaseCreatorIIDataModule.FDReleaseDBConnection do
begin
 DriverName := 'FB';
 ConnectionName := 'Release DB Access';
 Params.UserName := '';
 Params.Password := '';
 Params.Pooled := false;
 Params.Database := edReleaseDBFilename.Text;
 Params.Add('OSAuthent=No');
 Params.Add('CharacterSet=UTF8');
 Params.Add('OpenMode=OpenOrCreate');
 Params.Add('PageSize=16384');
 Params.Add('DropDatabase=No');
 Params.Add('Protocol=Local');
 Params.Add('CreateDatabase=Yes');
 Params.Add('Server=');
 Connected := true;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option,
  FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
  FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.VCLUI.Wait,
  FireDAC.Phys.FBDef, FireDAC.Phys.IBBase, FireDAC.Phys.FB, Data.DB,
  FireDAC.Comp.Client, IOUtils;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    FDConnection: TFDConnection;
    FDPhysFBDriverLink: TFDPhysFBDriverLink;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 // ############################################################################
 // firedac physical driver link - TFDPhysFBDriverLink
 // ############################################################################
 if FDPhysFBDriverLink = nil then
  FDPhysFBDriverLink := TFDPhysFBDriverLink.Create(self);
 with FDPhysFBDriverLink do
 begin
  Embedded := true;
  VendorHome := '';
  VendorLib := TPath.Combine(ExtractFileDir(Application.ExeName),'dbms\fbclient.dll');
 end;
 // ############################################################################
 // firedac database connections - TFDConnection
 // ############################################################################
 if FDConnection = nil then
  FDConnection := TFDConnection.Create(self);
 with FDConnection do
 begin
  DriverName := 'FB';
  ConnectionName := 'Release DB Access';
  Params.UserName := 'SYSDBA';
  Params.Password := 'masterkey';
  Params.Pooled := false;
  Params.Database := 'localhost:' + TPath.Combine(ExtractFileDir(Application.ExeName),'database\testdb.db');
  //Params.Add('OSAuthent=No');
  Params.Add('CharacterSet=UTF8');
  Params.Add('OpenMode=OpenOrCreate');
  Params.Add('PageSize=16384');
  Params.Add('DropDatabase=No');
  Params.Add('Protocol=Local');
  Params.Add('CreateDatabase=Yes');
  Params.Add('client library=' + TPath.Combine(ExtractFileDir(Application.ExeName),'dbms\fbclient.dll'));
  Params.Add('server type=Embedded');
  Connected := true;
 end;


end;

end.					

1:

Params.Add('Protocol=Local');