delphi - 如何在控制台应用程序中使用 Firedac？

Question

我创建了一个非常简单的控制台应用程序并尝试使用 Firedac 访问 Firebird 数据库。我正在尝试使用私有(private)定义设置来实现连接池，如下所述:http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Multithreading_(FireDAC) .我还确保在我的路径中包含 FBclient.dll

下面给出初始化连接的代码:

oParams := TStringList.Create;
oParams.Add('localhost:C:\fb\ADDEMO_FB21.FDB');
oParams.Add('User_Name=sysdba');
oParams.Add('Password=masterkey');
oParams.Add('Pooled=True');
FDManager.AddConnectionDef('Firebird Pooled','FB',oParams);

// necessary for enabling multithreaded access

FDManager.Active := True;

当此代码执行 FDManager.AddConnectionDef() 时，我收到异常“缺少类 xxx 的对象工厂”(请参见随附的屏幕截图):



这是一个控制台应用程序，所以我没有表单或视觉元素。不知道如何进行？

Answer 1

好的，想通了。我只是在我的 uses 子句中添加 FiredAC.Comp.Client 。 Firedac 似乎需要一大堆单位。更新了我的使用条款如下:

FireDAC.Comp.Client,
  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.Phys.FB,
  FireDAC.Phys.FBDef, FireDAC.VCLUI.Wait, Data.DB;