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?