如何将ADOCONNECTION作为一个参数传给DLL

Question

我准备开发一个程序。
所有的child form全部用DLL做成。
用main form调用的时候，将adoconnection也做为一个参数传给child form，不用每一个child form都对立一个adoconnection.
请问这样做可以实现吗？

Answer 1

procedure ShowUI(ConStr:strintg);stdcall;
begin
  With xxdm do
  begin
    AdoConnection1.Connected := False;
    AdoConnection1.ConnectionString := ConStr;
    AdoConnection1.Connected := True;
  end;
end;Exports ShowUI;

Answer 2

我也没有做个，不过我想应该将一个TAdoConnection指针传送过去，type
  PTAdoConnection = ^TAdoConnection;
end;调用时，将@AdoConnection1传送过去（假设参数名称是“PADOConn”），
在Dll中，使用 PADOConn^