IB_Connection Pointer

[Sauerkrautpoet]

hallo leute!

ich habe eine IB_Connection die ich auch in einer DLL nutzen möchte.
nun gibt es die verschiedensten wege...three tier zB - das wäre für mich aber eine der ungünstigsten lösungen die ich nur überhaupt haben kann.
genauso will ich nicht in der DLL eine extra connection zur DB eröffnen...

ich habe mir also gedacht: geh ich halt über einen pointer der connection.
doch das ganze will nicht so wie ich es will...denn der untyped pointer kann nicht in eine IB_Connection dereferenziert werden

für die connection gibt es:
//in der EXE:
dbpointer:^TIB_Connection
.../...
dbpointer:=@IBconnection;
.../...


//in der DLL (proc übergibt pointer)
dllIBconnection:=dbpointer^;

hat jemand eine bessere idee?! es gibt bei der IB_Connection noch ne dbHandle, weiß aber nicht ob die mir was bringt....

herzliche grüße!
dirk

[TBx]

Hallo!

Sehe ich das richtig, dass Du die ibobjects verwendest?

Dann geht das eigentlich ganz einfach:
- in der DLL eine eigene TIB_Connection einfügen
- eine Initialisierung bauen, in der das dbhandle der TIB_Connection des Haupotprogramms an die DLL übergeben wird, dann der Property dbHandleShared der TIB_Connection in der DLL dieses Handle zuweisen.

Jason hat dazu auch eine Anleitung veröffentlicht:

Zitat:

When trying to share a connection DON'T try to share the reference to the IB_Connection component. Give every DLL its own TIB_Connection and simply share the connection handle between them. Use the dbHandle property and assign the value from it to the dbHandleShared property of the TIB_Connection components in the DLL instances. Use whatever means you want to pass the value, since it is just a simple integer.
One vital point: close the TIB_Connection in the EXE before you terminate or destroy the DLL calls. Releasing the DLL resources before you close the TIB_Connection can cause some messy problems at termination!
(Jason Wharton)

und noch eine Anmwerkung von mir: die Connection im Hauptprogramm muss connected sein, wenn man das Handle übergibt. Sonst klappt nichts.

Hope it helps

onlinekater

[Sauerkrautpoet]

danke für den tipp, der weg is verständlich nur treten bei mir kleinere probs auf:

in der EXE treten probleme (EAccessViolation) mit dem dbcon.dbhandle auf. dh ich kann das dbhandle explizit nicht ansprechen (obowhl die verbindung korrekt steht [dbcon.connect]).
nutze ich hingegen @ibconnection und übergebe das ganze an die dll funktioniert es erstma bis zur zuweisung:
dll_ibo_con.dbhandleshared:= p_ibocon;

frage also:
kann ich die property dbhandle erst mit einem gewissen constraint aufrufen? session vorher starten oder sowas?!...

[TBx]

Zeig doch mal Deinen Code, dann schau ich gerne mal drüber

Gruß

onlinekater

PS: ggf. kann ich Dir mal einen Beispielcode basteln

[Sauerkrautpoet]

folgenden code enthält die exe (Datenmodul ANUcon zur verbindungserstellung):

Delphi-Quellcode:

unit ANUcon;

interface

uses
  SysUtils,Dialogs, Classes, IB_Components;

type
  Tdbcon = class(TDataModule)
    dbconnection: TIB_Connection;
    procedure DataModuleCreate(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  dbcon: Tdbcon;
  globaldbpointer:Pointer;


implementation

{$R *.dfm}

procedure Tdbcon.DataModuleCreate(Sender: TObject);

begin
  try

    dbconnection.Username:='SYSDBA';
    dbconnection.Password:='masterkey';
    dbconnection.connect;
    
  except
    MessageDlg(blablabla);
  end;
  
    ANUcon.globaldbpointer := ANUcon.dbcon.dbconnection.dbHandle;
    //hier liegt mein problem: ich bekomme kein verwertbaren rückgabewert, es entsteht an ieser stelle
    // immer wieder ein accessviolation error bzw zugriffsverletzung, warum auch immer.
   //wenn nich dahin aber @ANUcon.dbcon.dbconnection verwende hab ich den pointer den ich wollte...
    //nur den wiederum frisst die dll_con.dbhandleshared nicht.

end;

___________________
___________________


diese funktion der DLL soll die verbindung der exe aufgreifen und benutzen:

Delphi-Quellcode:

library equip;
uses
  ShareMem,
  ExceptionLog,Types,Controls,Windows,{ExtCtrls,}Forms,
  SysUtils,
  Classes,
  DM_Eq in 'DM_Eq.pas' {DMEq: TDataModule},
  FRM_EQ in 'FRM_EQ.pas' {frmEq},
  TH_Consts in 'D:\soft\all\TH_Consts.pas';

{$R *.res}

var
  DLLForm : TfrmEq;
  DLLApplication : TApplication;

function showdllform(pApplication:TApplication;pPanel:TWinControl;pHeight,pWidth:Integer;p_dbpointer:Pointer):HWND;
begin
  if not assigned(DLLApplication) then
    DLLApplication := Application;
  Application := pApplication;
     try

        frmeq.dbconnection.dbHandleShared:=p_dbpointer;

     except
        MessageBox(blabla);
     end;

  if not assigned(DLLForm) then
    DLLForm :=  Tfrmeq.CreateParented(pPanel.Handle);

  with DLLForm do
    begin
      BorderStyle:= bsnone;
      Height := pHeight;
      Width:=pWidth;
      top:=0;
      show;
    end;
  result:= DLLForm.Handle;

end;

[edit=Phoenix][ Delphi ]-Tags eingefügt. Bitte das Nächste mal selber dran denken. Mfg, Phoenix[/edit]