多线程ADO数据访问程序在vmware虚拟机中执行时切换输入法导致用户界面无响应

最新推荐文章于 2025-07-09 09:00:06 发布

原创最新推荐文章于 2025-07-09 09:00:06 发布 · 681 阅读

0 ·

CC 4.0 BY-SA版权

programming 专栏收录该内容

3 篇文章

订阅专栏

当ADOConnection在非主线程创建时，程序在VMware虚拟机中运行，切换输入法会造成用户界面无响应。通过在主线程创建ADOConnection并调整线程代码，可以解决此问题。

如果ADOConnection不是在主线程创建，那么在vmware虚拟机中执行程序，切换输入法会导致用户界面无响应。测试线程的代码如下：

type
  TDataAccessThread = class(TThread)
  private
    FConnection: TADOConnection;
  protected
    procedure Execute; override;
  end;

  procedure TDataAccessThread.Execute;
  begin 
    inherited;
    CoInitialize(nil);
    FConnection := TADOConnection.Create(nil);
    try
      while not Self.Terminated do
        Sleep(1000);
    finally
      FConnection.Free;
      CoUninitialize;
    end;
  end;

新建一个Form Application，放置一个TEdit上去，然后在FormCreate事件（当然也可以在其它时机）创建上面的线程。线程创建后，尝试切换到中文输入法在Edit中输入汉字，程序会无响应。很坑爹是吧？

解决办法是，在主线程创建ADOConnection。线程代码改为如下：

type
  TDataAccessThread = class(TThread)
  private
    FConnection: TADOConnection;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;
 end;

procedure TDataAccessThread.Execute;
begin 
  inherited;
  CoInitialize(nil);   
  try
    while not Self.Terminated do
      Sleep(1000);
  finally  
    CoUninitialize;
  end;
end;

constructor TDataAccessThread.Create(CreateSuspended: Boolean);
begin  
  //这句为什么写在inherited执行父类代码之前，请自己思考
  FConnection := TADOConnection.Create(nil);
  inherited;
end;

destructor TDataAccessThread.Destroy;
begin 
  FConnection.Free;
  inherited;
end;

当然，要在主线程创建Thread，不然一样歇菜的。