delphi - 尝试在 Delphi 中创建 Firebird 数据库时出现 EIBInterBaseError 'unavailable database'

Question

我正在尝试在运行时创建 Firebird 数据库。我用来执行此操作的过程是:

procedure CreateDatabase(DBName: String);
var
  IBDatabase1: TIBDatabase;
begin
  IBDatabase1 := TIBDatabase.Create(Self);
  try
    IBDatabase1.DatabaseName := ChangeFileExt(DBName, '.fdb');
    IBDatabase1.Params.Add('USER ''SYSDBA''');
    IBDatabase1.Params.Add('PASSWORD ''masterkey''');
    IBDatabase1.Params.Add('PAGE_SIZE 4096');
    IBDatabase1.Params.Add('DEFAULT CHARACTER SET WIN1252');
    IBDatabase1.CreateDatabase;
  finally
    IBDatabase1.Free;
  end;
end;

我在为测试此功能而创建的任何小项目中都毫无问题地实现了这一点。但是，如果我尝试在同一台机器、相同的 Delphi、相同的一切(除了它是一个不同的(而且相当大)的项目)中运行此代码，我会在 IBDatabase1.CreateDatabase 行上收到以下错误:

First chance exception at $7579B9BC. Exception class EIBInterBaseError with message 'unavailable database'. Process xxx.exe (4144)

有人有关于这个的任何线索吗？也许有某种方法可以正确调试它？

提前致谢。

编辑

这似乎是我的项目文件中的内容。我已经成功生成了一个新的，问题就消失了，但我担心将来会被这个问题困扰。什么可能导致这种情况？

Answer 1

这不是我的项目文件。它是一个旧的 GDS32.dll，被放置在与可执行文件相同的目录中。删除它解决了这个问题。希望这可以帮助遇到同样问题的人。