Share ADO Connection from Exe TO DLL

[PlutuDev]

I built my application with many dll (for reporting)

but when i load dll, I reconnect TAdoConnection.. I want to avoid this
reconnection.. but how to do this ??.

I have try passing ADOConnectionObject :_Connection from exe to dll
so when i load dll,
i write dm.dbCon.ConnectionObject := AdoCon;

dm -> datamodule
dbcon -> TADOConnection
adoCon -> _Connection

it's succesfully. but after exit from dll, back to exe..
my connection is lost cause of FreeLibrary(dlllib)

How to fix this problem..
or is there other solution

Sorry for bad eglish

thanks in advance

[Andrew]

Post by PlutuDev
I built my application with many dll (for reporting)
but when i load dll, I reconnect TAdoConnection.. I want to avoid this
reconnection.. but how to do this ??.
I have try passing ADOConnectionObject :_Connection from exe to dll
so when i load dll,
i write dm.dbCon.ConnectionObject := AdoCon;
dm -> datamodule
dbcon -> TADOConnection
adoCon -> _Connection
it's succesfully. but after exit from dll, back to exe..
my connection is lost cause of FreeLibrary(dlllib)

I suggest that you set dm.dbCon.ConnectionObject := nil before calling
FreeLibrary.

HTH
Andrew

[PlutuDev]

I have try your suggestion.. ADOConnection still lost. any solution or
have other solution to passing ado connection????,
so in my dll not reconnect database
PlutoDev

Post by Andrew

Post by PlutuDev
I built my application with many dll (for reporting)
but when i load dll, I reconnect TAdoConnection.. I want to avoid this
reconnection.. but how to do this ??.
I have try passing ADOConnectionObject :_Connection from exe to dll
so when i load dll,
i write dm.dbCon.ConnectionObject := AdoCon;
dm -> datamodule
dbcon -> TADOConnection
adoCon -> _Connection
it's succesfully. but after exit from dll, back to exe..
my connection is lost cause of FreeLibrary(dlllib)

I suggest that you set dm.dbCon.ConnectionObject := nil before calling
FreeLibrary.
HTH
Andrew

[PlutuDev]

for example where i can email my code sample ??

Post by PlutuDev
I have try your suggestion.. ADOConnection still lost. any solution or
have other solution to passing ado connection????,
so in my dll not reconnect database
PlutoDev

Post by Andrew

Post by PlutuDev
I built my application with many dll (for reporting)
but when i load dll, I reconnect TAdoConnection.. I want to avoid this
reconnection.. but how to do this ??.
I have try passing ADOConnectionObject :_Connection from exe to dll
so when i load dll,
i write dm.dbCon.ConnectionObject := AdoCon;
dm -> datamodule
dbcon -> TADOConnection
adoCon -> _Connection
it's succesfully. but after exit from dll, back to exe..
my connection is lost cause of FreeLibrary(dlllib)

I suggest that you set dm.dbCon.ConnectionObject := nil before calling
FreeLibrary.
HTH
Andrew

[hu zhenghui]

The code below works:
//////////////////////////////////////////////////
procedure Test(ADOConnection : TADOConnection); external 'ProjectDll.dll';

procedure TFormExe.ButtonDllClick(Sender: TObject);
begin
Test(ADOConnection);
end;
//////////////////////////////////////////////////
library ProjectDll;

uses
ADODB,
Dialogs,
Classes,
SysUtils;

{$R *.res}

procedure Test(ADOConnection : TADOConnection);
begin
ShowMessage(BoolToStr(ADOConnection.Connected, true));
end;

exports Test;

begin
end.
--
If my answer can't solve you problem, welcome mail me the project files.

Post by PlutuDev
for example where i can email my code sample ??

Post by PlutuDev
I have try your suggestion.. ADOConnection still lost. any solution or
have other solution to passing ado connection????,
so in my dll not reconnect database
PlutoDev

Post by Andrew

Post by PlutuDev
I built my application with many dll (for reporting)
but when i load dll, I reconnect TAdoConnection.. I want to avoid this
reconnection.. but how to do this ??.
I have try passing ADOConnectionObject :_Connection from exe to dll
so when i load dll,
i write dm.dbCon.ConnectionObject := AdoCon;
dm -> datamodule
dbcon -> TADOConnection
adoCon -> _Connection
it's succesfully. but after exit from dll, back to exe..
my connection is lost cause of FreeLibrary(dlllib)

I suggest that you set dm.dbCon.ConnectionObject := nil before calling
FreeLibrary.
HTH
Andrew

[Mike Shkolnik]

...
This is an incorrect solution. If you'll compile your exe and dll in
different Delphi versions you'll see that your code will fail

PS: as hint - TADOConnection in exe and TADOConnection in dll are different
classes
--
With best regards, Mike Shkolnik
E-mail: ***@scalabium.com
WEB: http://www.scalabium.com

[hu zhenghui]

However, my code works well in my application.
Before you provide a better solution, your answer can not help PlutuDev.
--
If my answer can't solve you problem, welcome mail me the project files.

Post by Mike Shkolnik
...
This is an incorrect solution. If you'll compile your exe and dll in
different Delphi versions you'll see that your code will fail
PS: as hint - TADOConnection in exe and TADOConnection in dll are different
classes
--
With best regards, Mike Shkolnik
WEB: http://www.scalabium.com

[Arthur Hoornweg]

IIRC, there's a property for this (tadoconnection.keepconnection)
that you must set to true in both components.

[hu zhenghui]

_Connection is Interface, it has "reference counting", Why not passing the
TADOConnection?
--
If my answer can't solve you problem, welcome mail me the project files.

Post by PlutuDev
I built my application with many dll (for reporting)
but when i load dll, I reconnect TAdoConnection.. I want to avoid this
reconnection.. but how to do this ??.
I have try passing ADOConnectionObject :_Connection from exe to dll
so when i load dll,
i write dm.dbCon.ConnectionObject := AdoCon;
dm -> datamodule
dbcon -> TADOConnection
adoCon -> _Connection
it's succesfully. but after exit from dll, back to exe..
my connection is lost cause of FreeLibrary(dlllib)
How to fix this problem..
or is there other solution
Sorry for bad eglish
thanks in advance