跨 DLL 边界共享 ADO 连接

Question

我们希望跨 DLL 边界共享 ADOConnection（目前是 Delphi 到 Delphi，但在不久的将来也可能是 C# 到 Delphi）。

由于我们希望将来能够灵活地从 c# 调用 DLL，我们希望能够使用 _Connection 作为参数来定义 DLL 调用。比如：

procedure DoStuff (ADOConnection: _Connection)
var
  InnerConnection: TADOConnection;
begin
  InnerConnection := TADOConnection.create(nil);
  try
    InnerConnection.ConnectionObject := ADOConnection;
    DoMoreStuff(InnerConnection);
  finally
    InnerConnection.free;
  end;
end;

不幸的是，TADOConnection 析构函数代码关闭了传递给它的连接，这是一个不需要的副作用。添加

InnerConnection.ConnectionObject := nil

在免费之前什么都不做，因为它被抓住了

if Assigned(Value) = nil

在 TADOConnection.SetConnectionObject 中，导致调用不做任何事情。

有没有更好的方法来实现这一点？传递连接字符串是一种替代方法，但这意味着我们必须处理用户名/密码问题和跨边界加密。传递 TADOConnection 是另一种选择，但这会阻止从其他语言调用。

编辑：为清楚起见，原始 TADOConnection 对象的用户名/密码是使用 .Open 例程设置的，因此这些详细信息不在连接字符串中（实际上，通常存储错误的用户名，因为它是名称用于在 MS UDL 编辑器中“测试连接”）

Answer 1

你可以试试这个方法：

  type TInit_StFattDLL = procedure( var DataBase:TAdoConnection);
  var  Init_StFattDLL:TInit_StFattDll;

来电者是：

Function ConnectDll():Boolean;
var
  handleDll:THandle;

begin
    handleDll := LoadLibrary('mydll.DLL');
    @Init_StFattDLL := GetProcAddress(handleDll , 'myConnectFunction');

      if @Init_StFattDLL <> nil then   
        begin
          Init_StFattDLL(ADOConnection1);
          result:=true;
         end
      else
         result:=false;
end;

在dll中放入以下内容：

在项目文件中放出口：

Exports myConnectFunction;

全局部分：

var Database:TAdoConnection;

导出的过程如下：

procedure myConnectFunction( var MyDataBase:TAdoConnection);export;
begin
   Database:=MyDataBase;
end