我的应用有一个设计时TFDConnection，当它连接到另一个数据库（类型）时可以重复使用
我还从其设置中派生了一个池化连接，并将其注册到FDManager.AddConnectionDef以在多线程（like here）时使用。
第二次设置时，我意外地使用相同的ConnectionDefName再次调用AddConnectionDef。 documentation说：
该名称在ConnectionDefs列表中的其他连接定义中必须是唯一的，否则会引发异常。
这不会发生。没有异常，我最终得到两个具有相同名称的ConnectionDefs
对于那些好奇的人：下一个代码块演示了这种行为（RSP-19107 on Quality Portal）。这不是我的问题，因为我认为嗯，然后我使用DeleteConnectionDef先删除旧的。
但事实证明， 也不起作用。请参阅第二段代码。
procedure TFrmFireDACConnectionNames.BtnBug1Click(Sender: TObject);
var
lParams: TStringList;
i,l : integer;
begin
lParams := TStringList.Create;
lParams.Add('User_Name=sysdba');
lParams.Add('Password=masterkey');
lParams.Add('database=D:\Testing\test.gdb');
lParams.Add('Server=localhost');
lParams.Add('Pooled=true');
lParams.Add('DriverID=FB');
FDManager.AddConnectionDef('FBPooled','FB',lParams);
lParams.Values['database'] := 'D:\Testing\test2.gdb';
FDManager.AddConnectionDef('FBPooled','FB',lParams);
// This shows the two identical ConnectionDefs (inspect lParams):
lParams.Clear;
l := FDManager.ConnectionDefs.Count;
for i := 0 to l-1 do
lParams.Add(FDManager.ConnectionDefs[i].Name);
// Contents on my machine:
// Access_Demo
// Access_Demo_Pooled
// DBDEMOS
// EMPOYEE
// MSSQL_Demo
// RBDemos
// SQLite_Demo
// SQLite_Demo_Pooled
// FBPooled <== Duplicates
// FBPooled
// To check that the two added have their respective Params, inspect lParams with breakpoints on the lines below:
lParams.Assign(FDManager.ConnectionDefs[l-1].Params);
// Contents on my machine:
// User_Name=sysdba
// Password=masterkey
// database=D:\Testing\test2.gdb
// Server=localhost
// Pooled=true
// DriverID=FB
// Name=FBPooled
lParams.Assign(FDManager.ConnectionDefs[l-2].Params);
// Contents on my machine:
// User_Name=sysdba
// Password=masterkey
// database=D:\Testing\test.gdb
// Server=localhost
// Pooled=true
// DriverID=FB
// Name=FBPooled
lParams.Free;
end;
以下是演示DeleteConnectionDef失败的示例代码。请注意，我甚至不使用或打开TFDConnection。
procedure TFrmFireDACConnectionNames.BtnDeleteTestClick(Sender: TObject);
var
lParams : TStringList;
i,l : integer;
lConnName: String;
begin
lParams := TStringList.Create;
lConnName := 'MyConnPooled';
lParams.Add('DriverID=FB');
lParams.Add('User_Name=sysdba');
lParams.Add('Password=masterkey');
lParams.Add('Database=d:\Testing\Diverse\FireDACConnectionNames\test.gdb');
lParams.Add('Server=localhost');
lParams.Add('Pooled=true');
FDManager.AddConnectionDef(lConnName,'FB',lParams);
lParams.Clear;
lParams.Add('DriverID=MSSQL');
lParams.Add('User_Name=test');
lParams.Add('Password=test');
lParams.Add('Database=test');
lParams.Add('Server=VS20032008');
lParams.Add('Pooled=true');
for l := FDManager.ConnectionDefs.Count-1 downto 0 do
if FDManager.ConnectionDefs[l].Name = lConnName then
begin
FDManager.DeleteConnectionDef(lConnName); // This gets executed
Break;
end;
FDManager.AddConnectionDef(lConnName,'MSSQL',lParams);
// Check ConnectionDefs (inspect lParams):
lParams.Clear;
l := FDManager.ConnectionDefs.Count;
for i := 0 to l-1 do
lParams.Add(FDManager.ConnectionDefs[i].Name);
// Contents on my machine:
// Access_Demo
// Access_Demo_Pooled
// DBDEMOS
// EMPLOYEE
// MSSQL_Demo
// RBDemos
// SQLite_Demo
// SQLite_Demo_Pooled
// MyConnPooled <== Still duplicate
// MyConnPooled
lParams.Free;
end;
那么这里可以发生什么，我该如何解决这个问题？
这是德尔福东京10.2.1
如果您要运行此代码，请在表单上放置TFDPhysFBDriverLink和TFDPhysMSSQLDriverLink。我试着打电话。发布那些，但这没有帮助。
更正：运行代码不需要放置TFDPhysxxxDriverLink组件。我离开了句子，因为其关联单元的存在对于AddConnectionDefinition错误至关重要（请参阅已批准的答案）。
已解决的问题：该RSP-19107链接提供了FireDAC.Stan.Def.pas和FireDAC.Comp.Client.pas的修补程序。
答案 0 :(得分：4)
删除循环的问题是由访问迭代对象引起的，该对象会增加其引用计数，从而阻止从定义集合中删除该对象。我最好避免访问该集合。
顺便说一下。这样的循环没有多大意义，因为删除方法需要name而不是index，所以直接调用它会产生基本相同的效果：
FDManager.DeleteConnectionDef(lConnName);
通过这样做，您可以避免上述引用计数递增。但继续阅读。
但问题的根源。连接定义名称必须真正唯一，这就是经理应该关注的内容。不幸的是，因为你发现的错误。在修复之前，您可以在添加之前询问是否存在此类名称的连接定义：
if not FDManager.IsConnectionDef('FBPooled') then
FDManager.AddConnectionDef('FBPooled', 'FB', Params)
else
raise EMyException.Create('Duplicate connection definition name!');
这样的代码可以解决您报告的问题。我会试着描述一下是什么问题。
致RSP-19107问题。嗯，它隐藏得很好。只有在应用程序 [1] 中包含物理驱动程序模块时，我才能重现该问题。预期的例外：
当应用程序中不包含物理驱动程序模块时，会正确引发[FireDAC] [斯坦] [定义] -255。定义名称[FBPooled]重复
。如果包含驱动程序模块，则不会引发异常，并且会将具有重复名称的连接定义添加到内部集合中。
那么，为什么像这样的代码不会引起异常，因为文档声称包含了物理驱动程序模块？
FDManager.AddConnectionDef('DefName', 'FB', Params);
Params.Values['Database'] := 'C:\MyDatabase.db';
FDManager.AddConnectionDef('DefName', 'FB', Params);
定义名称的重复检查位于 TFDDefinition.ParamsChanged 方法内，该方法反映了对连接定义参数的更改。听起来很奇怪，但传递给 AddConnectionDef 方法的定义名称稍后会添加到名称键下的定义参数中，然后引擎会等待调用上述提示的更改通知 ParamsChanged 方法。
AddConnectionDef 方法中的定义设置如下所示：
Definition.Params.BeginUpdate; { ← triggers TFDDefinition.ParamsChanging }
try
Definition.Params.SetStrings(Params); { ← assigns the passed parameters }
Definition.Name := 'DefName'; { ← adds (or sets) the Name key value in Params }
Definition.Params.DriverID := 'FB'; { ← creates driver specific parameter instance }
finally
Definition.Params.EndUpdate; { ← triggers TFDDefinition.ParamsChanged }
end;
第一个视图看起来很好。但是线路设置 Params.DriverID 有一个小问题。它触发创建驱动程序特定的参数实例（例如 TFDPhysFBConnectionDefParams ），它取代了原始的 Params 集合。这是正确的，但打破了锁定。
这就是发生的事情，再次以伪代码：
Definition.Params.BeginUpdate; { ← Definition.Params.FUpdateCount += 1 }
try
Definition.Params.Free;
Definition.Params := TDriverSpecificConnectionDefParams.Create;
finally
Definition.Params.EndUpdate; { ← Definition.Params.FUpdateCount == 0 }
end;
就是这样。 Params 对象替换根本无法复制字符串列表的 FUpdateCount 值，当调用
这就是为什么 TFDDefinition.ParamsChanged 方法不是从 finally 块触发的原因。如果你还记得我之前的段落之一，那就是重复检查定义名称的地方。因此，当包含驱动程序模块时，您可以添加重复项。
伪代码中此问题的可能解决方法是：
var
UpdateCount: Integer;
begin
Definition.Params.BeginUpdate; { ← Definition.Params.FUpdateCount == n }
try
UpdateCount := Definition.Params.UpdateCount; { ← store the update count }
Definition.Params.Free;
Definition.Params := TDriverSpecificConnectionDefParams.Create;
Definition.UpdateCount := UpdateCount; { ← set the update count for the new instance }
finally
Definition.Params.EndUpdate; { ← Definition.Params.FUpdateCount == n }
end;
end;
[1] 实际上，如果任何 FireDAC.Phys。＆lt; DBMS＆gt; 驱动程序文件位于您的使用列表中;这些是通过在表单上放置 TFDPhys＆lt; DBMS＆gt; DriverLink 组件自动包含的。