delphi - 连接到 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 失败:

Project Project1.exe raised exception class TDBXError with message 'Unknown driver: FirebirdConnection'.

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

Answer 1

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