多线程程序切换输入法导致死机的问题及解决方案
多线程程序切换输入法导致死机的问题及解决方案
书呆子
曾经在一个数据库项目中碰到了一个问题，在线程中创建了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：[email protected]