Exe and Dll Orasession access

[alicinar]

Hi,
Open the connecting in my project.
Using the form in the dll.
How can I orasession to the library project?
Please help!

Exe file project:

Code: Select all

procedure ShowForm;stdcall;external '../../Project1dll.dll' name 'ShowDllForm';
procedure connectionVer(Oracon:TOraSession);stdcall;external '../../Project1dll.dll' name 'ShowDllForm';

procedure TMainFrm.Button1Click(Sender: TObject);
begin
OraSession1.Connect;
connectionVer(OraSession1);
ShowForm;

Dll Project:

Code: Select all

library Project1dll;
uses
  SysUtils,
  Classes,
  Ora,
  DllForm in 'DllForm.pas' {frmDllForm};
var
OraVeri:TOraSession;

  procedure connectionVer(Oracon:TOraSession);
  begin
       OraVeri:=Oracon;
  end;

procedure ShowDllForm;stdcall;
begin
  frmDllForm :=TfrmDllForm.Create(nil);
  frmDllForm.OraQuery1.Session:=OraVeri;
  frmDllForm.OraQuery1.Open;
  frmDllForm.Show;
end;

Exports
    ShowDllForm,
    connection ;

begin

[AlexP]

hello,

Explicit assignment of ToraSession in dll is incorrect. To assign ToraSession, you should use the AssignConnect method:

frmDllForm.OraQuery1.Session.AssignConnect(OraVeri);

[alicinar]

Not running code.
My project link.

https://rapidshare.com/files/3115621173/dllform.zip

[AlexP]

Hello,

In your code, the frmDllForm.OraQuery1.Session property is not initialized and equals nil. Because of this you get na error when attempting to work with this property. Please have a look at the sample demonstrating the correct work with dll in ODAC which is located in the ...\Devart\Devart\Odac for RAD Studio XE2\Demos\Miscellaneous\Dll\ directory

[alicinar]

thanks alexp.
I will elaborate.