Совместное использование ADO-соединения по границе DLL

Question

Мы хотели бы поделиться ADOConnection через границу DLL (Delphi в Delphi на данный момент, хотя в ближайшем будущем также может быть C# для Delphi).

Как мы хотели бы гибко вызывать DLL из C# в будущем, мы надеялись, что сможем определить вызов DLL с использованием _Connection в качестве параметра. Что-то вроде:

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