AdoConnection in DLL

[RootGrapefruit]

Moin,
ich möchte eine AdoConnection in einer DLL verwenden.
Wenn ich ein DatenModul an die DLL anbinde und über

Delphi-Quellcode:

  
OpenDatabase:=true;
  try
    ADOConnection1.Open;
  except
    OpenDatabase:=false;
  end;

aufrufe, wird die Verbindung nicht hergestellt.

Was mache ich falsch bzw. kann ich die AdoConnection zur Laufzeit nur über die DLL erstellen und verwenden?

Danke für eure Hilfe

[sx2008]

Du das Verschlucken der Exception nimmst du dir jede Möglichkeit die Fehlermeldung zu Gesicht zu bekommen:

Delphi-Quellcode:

OpenDatabase:=true;
try
  ADOConnection1.Open;
except
  OpenDatabase:=false;
  // niemand wird je erfahren was in der Message der Exception gestanden hat
end;

Lass das try...except einfach weg.

[RootGrapefruit]

Achso ja so hab ich das davor versucht

'Zugriffsverletzung bei Adresse 004D10BC in Modul 'ISAPI_DLL.dll'. Lesen von Adresse 000000058.'

Danach hab ich auch schon geguckt, hab aber keine Lösung gefunden.

[baumina]

Sicherlich ist deine ADOConnection1 = NIL, d.h. es fehlt ein create.

[RootGrapefruit]

Also wenn ich vor der Verbindung ein
AdoConnection1.Create(self); schreibe kommt die gleiche Fehlermeldung schon beim create.
Im Create Ereignis des DataModuls wird  AdoConnection1.Create(self); gar nicht erst aufgerufen bzw die Exception kommt wieder genau wie vorher beim Öffnen der Connection.

[mkinzler]

Ein Konstruktor ist eine Klassenmethode, es muss

AdoConnection1 := TAdoConnection.Create(self); heissen!

[RootGrapefruit]

Ah OK Danke jetzt sagt er mir beim Erstellen der ADO Connection 'CoInitialize wurde nicht aufgerufen'.
Ich habe schon OleInitialize(nil); direkt vor dem Create und im Create Ereignis des DataModuls ausprobiert.

Edit: Beim Aufrufen direkt vor der Erstellung der ADO Connection kommt wieder die alte Fehlermeldung:
'Zugriffsverletzung bei Adresse 004F8B00 in Modul 'test.dll'. Schreiben von Adresse 0000000058.'

[baumina]

Du sagst, Du benutzt ein DataModul, evtl. solltest du dieses createn und nicht nur die ADOConnection.

[RootGrapefruit]

Kannst du mir noch sagen wie und wo ich das Createn soll?

[baumina]

So in etwa:

Delphi-Quellcode:

unit DMMyDataModule;
interface
 ...
type
   TMyDataModule = class(TDataModule)
     ... 
   end;

var
   MyDataModule: TMyDataModule;
   
implementation
 ...
initialization
   MyDataModule := TMyDataModule.Create(nil); 
finalization
   MyDataModule.Free;
end;