多线程下切换输入法导致程序假死的问题

今天无意中发现程序在切换输入法的时候假死，郁闷，以前也是这么用，没出问题，今天就不行了，查了很多资料，无解，问了好几个高手，都没遇到过，最后终于找到了一篇好文章解决了我的问题，赶紧发上来。

 

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

书呆子

       曾经在一个数据库项目中碰到了一个问题，在线程中创建了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，这样即使我们这些粗心的程序员不处理，也不至于一直死机。嘿嘿～～～