连接到 D2010 上嵌入的 Firebird

Question

我从http://sites.google.com/site/dbxfirebird/下载了 Firebird DBX 驱动程序，并且我已经能够编译“测试连接”项目并使其运行。我将它指向我的测试数据库，如下所示：

procedure TMainForm.Button1Click(Sender: TObject);
var C: TSQLConnection;
begin
  C := TSQLConnection.Create(Self);
  try
    C.DriverName := 'FirebirdConnection';
    C.Params.Add('User_Name=SYSDBA');
    C.Params.Add('Password=masterkey');
    C.Params.Add('Database=C:\fbtest\test.fdb');
    C.Open;
    if C.Connected then
      ShowMessage('Connection is active')
  finally
    C.Free;
  end;
end;

当我运行它时，它工作正常。但是当我将完全相同的代码放入不同的项目中时，它不起作用。我已将 fbclient.dll（Firebird 嵌入式驱动程序 DLL，重命名为 fbclient）、其所有依赖项和 dbxdrivers.ini 文件复制到与项目的 EXE 运行所在的同一文件夹中。我看不出任何原因这不应该工作，但是对 .Open 的调用失败并显示：

项目 Project1.exe 引发异常类 TDBXError 并显示消息“未知驱动程序：FirebirdConnection”。

同样，这是对 Open 的调用。对 DriverName 的分配工作得很好。以前有人见过这个问题吗？为什么完全相同的代码在测试项目中可以工作，但不同的代码却不能工作，有什么方法可以修复它吗？

Answer 1

我发现了问题。必须在 DBXDynalink.pas 的初始化部分中注册用于设置数据库驱动程序的加载类。测试项目在其use子句中包含 DBXDynalink，而我的项目没有。我把它放进去，现在它可以工作了。