delphi10.3 FireDac连接FireBird文件(Embedded嵌入式方式)

一、软件版本：

delphi 10.3.3 

FireDac

FireBird （32位）Firebird: Firebird 4.0.3

4.0.3

04 Aug 2023

二、具体步骤

1.新建delphi程序，添加TFDConnection、TFDPhysFBDriverLink控件

2.在FormShow事件里写入代码（直接设置控件更方便）

procedure TForm1.FormShow(Sender: TObject);
var
  sqlFile, dllFile: string;
begin
  //FireBirdS数据库文件
  sqlFile := ExtractFilePath(ParamStr(0)) + 'db/TestDB.FDB';
  //FireBird库，在FireBird安装根目录下复制过来
  dllFile := ExtractFilePath(ParamStr(0)) + 'db/fbclient.dll';

  FDPhysFBDriverLink1.Embedded := True;
  FDPhysFBDriverLink1.VendorLib := dllFile;

  FDConnection1.Params.AddPair('DriverID', 'FB');
  FDConnection1.Params.AddPair('User_Name', 'sysdba');
  FDConnection1.Params.AddPair('Database', sqlFile);
  FDConnection1.Params.AddPair('CharacterSet', 'utf8');
  FDConnection1.Connected := true;

end;

或者直接设置控件为：

三、环境

从FireBird安装的根目录复制相关文件（要跟上面控件指定的VendorLib同级目录）

fbclient.dll、firebird.msg、plugins\engine13.dll。

如果使用了utf8编码还需要复制icudt63.dll、icuin63.dll、icuuc63.dll、icudt63l.dat。

如图

运行即可。

参考链接：盒子论坛 v2.1

代码已打包并上传到https://download.csdn.net/download/MANYOUZSH/88275204