多线程程序切换输入法导致死机的问题及解决方案

多线程程序切换输入法导致死机的问题及解决方案

书呆子

       曾经在一个数据库项目中碰到了一个问题，在线程中创建了ADOConnect读取数据再进行处理，结果当切换输入法时整个程序就死机了。当时非常困惑，在大富翁里也发了帖子，最终都得不到解决，最后经过不断的调试终于知道了问题的原因。近日，见到大富翁里依然还有人被这个问题所困扰，于是写了我的经验心得，希望能够帮助需要的人。

问题产生过程：

       问题产生的过程是这样的，普通的线程由于里面根本就没有窗口，所以创建后，切换输入法是不会对其造成影响，但是，当线程里存在窗口时，切换输入法就会导致死机。这是因为，窗口是和线程相关的，在线程里创建的窗口，窗口的消息循环需要所属线程来处理，在DELPHI中大部分窗口都是创建在主线程里，Application里的ProcessMessage方法处理了主线程的消息队列。但是TThread里并没有内建消息循环，当输入法切换时发送了系统通过SendMessage发送了WM_IME_SELECT消息给线程里的”Default Ime”窗口通知它输入法已经切换，由于SendMessage是不是同线程调用，所以不会直接去访问窗口的消息函数，而是等待目标线程主动获取消息时再去调用窗口的消息函数返回。问题就出来了，目标线程中根本就没有消息循环，从而导致了死锁。

演示代码如下：

 

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

  TTest = class(TThread)

 

  private

    procedure ProcessMessage;

 

  protected

    procedure Execute; override;

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TTest.Execute;

begin

  TTimer.Create(nil);   //这个对象创建不为什么，只是为了创建一个隐藏的window，屏蔽这句话线程里就没有窗口了，也不会死机

 

  while not Terminated do

  begin

 //   ProcessMessage;   //去掉这一句就会导致死锁

    Sleep(100);

  end;

end;

 

///内建的一个简单消息循环

procedure TTest.ProcessMessage;

var

  Msg: TMsg;

begin

  if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then

  begin

    TranslateMessage(Msg);

    DispatchMessage(Msg);

  end;

end;

 

procedure TForm1.Button1Click(Sender: TObject);

begin

  TTest.Create(False);

end;

 

结语

       这个问题我认为系统在发送消息的时候是不是应该使用SendMessageTimeout，这样即使我们这些粗心的程序员不处理，也不至于一直死机。嘿嘿～～～

联系方式

Mail：heroyin@gmail.com