ADO控件在线程中使用的问题
TADOConnection控件在线程中创建后，如果线程不退出，就打不开Excel，Word之类用的东西
测试代码如下：
Unit1.pas:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Unit2;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
t: Test;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
t := Test.Create(false);
end;
end.
unit Unit2;
interface
uses
Windows, Classes, ADODB, ActiveX;
type
Test = class(TThread)
private
{ Private declarations }
protected
ADODB: TADOConnection;
procedure Execute; override;
end;
implementation
{ Test }
procedure Test.Execute;
begin
CoInitialize(nil);
ADODB := TADOConnection.Create(nil);
while not Terminated do
begin
Sleep(1000)
end;
ADODB.Free;
CoUninitialize;
end;
end.
