Delphi FDManager.DeleteConnectionDef不删除连接定义
我的应用程序有一个designtime TFDConnection，当它连接到另一个数据库类型时会被重用。 我还从池连接的设置派生一个池连接，并将其注册到FDManager.AddConnectionDef，以便在多线程处理时使用 第二次设置时，我无意中再次使用相同的ConnectionDefName调用AddConnectionDef。报告说： 该名称在ConnectionDefs列表中的其他连接定义中必须是唯一的，否则会引发异常 这种情况不会发生。没有引发任何异常，我只是得到了两个同名的connectiondf。 对于那些好奇的人：下一个代码块演示了这种行为。这不是我马上要解决的问题，因为我想得很好，然后我首先使用deleteConnectionDF删除旧的。 但事实证明，这也不起作用。请参阅第二段代码Delphi FDManager.DeleteConnectionDef不删除连接定义,delphi,database-connection,firedac,delphi-10.2-tokyo,Delphi,Database Connection,Firedac,Delphi 10.2 Tokyo,我的应用程序有一个designtime TFDConnection，当它连接到另一个数据库类型时会被重用。 我还从池连接的设置派生一个池连接，并将其注册到FDManager.AddConnectionDef，以便在多线程处理时使用 第二次设置时，我无意中再次使用相同的ConnectionDefName调用AddConnectionDef。报告说： 该名称在ConnectionDefs列表中的其他连接定义中必须是唯一的，否则会引发异常 这种情况不会发生。没有引发任何异常，我只是得到了两个同名的co
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;
FDManager.DeleteConnectionDef(lConnName);
if not FDManager.IsConnectionDef('FBPooled') then
FDManager.AddConnectionDef('FBPooled', 'FB', Params)
else
raise EMyException.Create('Duplicate connection definition name!');
FDManager.AddConnectionDef('DefName', 'FB', Params);
Params.Values['Database'] := 'C:\MyDatabase.db';
FDManager.AddConnectionDef('DefName', 'FB', Params);
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;
Definition.Params.BeginUpdate; { ← Definition.Params.FUpdateCount += 1 }
try
Definition.Params.Free;
Definition.Params := TDriverSpecificConnectionDefParams.Create;
finally
Definition.Params.EndUpdate; { ← Definition.Params.FUpdateCount == 0 }
end;
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;
FDManager.DeleteConnectionDef(lConnName);
if not FDManager.IsConnectionDef('FBPooled') then
FDManager.AddConnectionDef('FBPooled', 'FB', Params)
else
raise EMyException.Create('Duplicate connection definition name!');
FDManager.AddConnectionDef('DefName', 'FB', Params);
Params.Values['Database'] := 'C:\MyDatabase.db';
FDManager.AddConnectionDef('DefName', 'FB', Params);
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;
Definition.Params.BeginUpdate; { ← Definition.Params.FUpdateCount += 1 }
try
Definition.Params.Free;
Definition.Params := TDriverSpecificConnectionDefParams.Create;
finally
Definition.Params.EndUpdate; { ← Definition.Params.FUpdateCount == 0 }
end;
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.phy。驱动程序文件在您的使用列表中；通过在表单上放置TFDPhysDriverLink组件，可以自动包含这些内容。这是一些检测工作！当AddConnectionDef进入InterfaceIdStandDefinitions时，我已停止跟踪它；-我错过了FireDAC新出现的IsConnectionDef的存在。顺便说一句，我在你的答案中编辑了一个脚注。@Jan，我花了一段时间才找到它。我怀疑接口引用，在搜索不调用ParamsChanged方法的原因时，完全忽略了在其自身更新锁中的对象替换。谢谢你的脚注；我只是把它格式化，使之与文章的其余部分相适应。你的第一段话太真实了！！应用IsConnectionDef“fix”后，我的测试程序运行良好，但我的实际程序在重复连接定义名称方面一直存在问题。原因：一个简单的事实是我正在阅读connectiondfs[]。查看是否一切正常！真是浪费时间。我现在在RSP-19107中加上这一点，我认为它太详细了，不能这么说。@Victoria:又是一个一流的答案+我很高兴有人能找出FDac的复杂之处。那是一些侦探工作！当AddConnectionDef进入InterfaceIdStandDefinitions时，我已停止跟踪它；-我错过了FireDAC新出现的IsConnectionDef的存在。顺便说一句，我在你的答案中编辑了一个脚注。@Jan，我花了一段时间才找到它。我怀疑接口引用，在搜索不调用ParamsChanged方法的原因时，完全忽略了在其自身更新锁中的对象替换。谢谢你的脚注；我只是把它格式化，使之与文章的其余部分相适应。你的第一段话太真实了！！应用IsConnectionDef“fix”后，我的测试程序运行良好，但我的实际程序在重复连接定义名称方面一直存在问题。原因：一个简单的事实是我正在阅读connectiondfs[]。查看是否一切正常！真是浪费时间。我现在在RSP-19107中加上这一点，我认为它太详细了，不能这么说。@Victoria:又是一个一流的答案+1我 我很高兴有人能理解FDac的复杂性。