CoInitialize wurde nicht aufgerufen

[bk_moon]

Hallo Leute,

ich hoffe einer von Euch kann mir helfen - ich werd echt noch wahnsinnig!
Ich mach gerade meine ersten Versuche mit Delphi2007 und den IntraWeb Komponenten.
Ich wollte eigentlich eine Datenbank auslesen und als Webseite anzeigen, aber das klappt nicht.
Es kommt immer der gleiche Fehler: 'CoInitialize wurde nicht aufgerufen'.
Ich hab jetzt auch schon überall nachgeschlagen und ausprobiert, aber nichts funktioniert.

Folgender Aufbau:
Ich hab lediglich eine TADOConnection, eine TADOTable, ein TDataSource und ein TIWDBEdit auf mein Formular gezogen,
alles mit meiner Access Datenbank verbunden und gestartet. Dann kam der Fehler!
Dann habe ich CoInitialize(nil) überall ausprobiert - in der Projektdatei, vor dem Application.run, danach,
in der eigentlichen unit, im Form.Create - quasi überall. Und immer der gleiche Fehler.
Ich weiß echt nicht mehr weiter!!!

Ich hoffe einer von Euch hat eine Idee!
Schon mal vielen Dank!

[Luckie]

Dann ruf doch CoInitialize auf. Ups sorry, hast du ja schon ausprobiert. Ich würde es da aufrufen, wo die Verbindung hergestellt wird. Eventuel im Initialization-Abschnitt der Unit.

[alzaimar]

Vermutlich werden die ADO-Komponenten innerhalb eines Threads aufgerufen. Du musst die CoInitialize / CoUninitialize Aufrufe im Kontext des Threads ausführen, der die COM-Objekte verwendet.

[bk_moon]

Erst mal Danke für Eure Unterstützung.

Also das mit dem CoInitialize in dem Initialization-Teil von der Unit hab ich probiert - leider auch ohne Erfolg.
Das mit dem Thread probiere ich gerade aus, wobei ich mir aber nicht sicher bin, wie das funktioniert.
Ich hab jetzt einen Thread erstellt (bin mir aber nicht sicher, ob ich das richtig gemacht habe) und im Execute
das CoInitialize aufgerufen:

Delphi-Quellcode:

unit Unit3;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, DB, ADODB,
  Controls, IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl,
  IWGrids, IWDBGrids, IWCompButton, ActiveX;

type
  TMyOwnThread =class(TThread)
  protected
    procedure Execute; override;
  end;  

  TIWForm3 = class(TIWAppForm)
    IWDBGrid1: TIWDBGrid;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADOTable1: TADOTable;
    IWButton1: TIWButton;
    procedure IWButton1Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}


procedure TMyOwnThread.Execute;
begin
  CoInitialize(nil);
end;

procedure TIWForm3.IWAppFormCreate(Sender: TObject);
var
  Thread: TMyOwnThread;
begin
  Thread := TMYOwnThread.Create(True);
  Thread.Execute;
end;

Das klappt aber leider auch nicht! Was kann ich sonst noch machen?

[Luckie]

Ruf das am Anfang der Execute Methode auf. Dann sollte es klappen.

[bk_moon]

Jetzt klappts! Vielen Dank für Eure Hilfe!!!