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

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

书呆子

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

联系方式

Mailheroyin@gmail.com

 

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值