• 用SendNotifyMessage代替PostMessage避免消息丢失


    大家都知道PostMessage会丢消息,但是消息队列的大小是多少呢,下面做了一个测试。
    代码:
     
     1 unit Unit1; 
     2 
     3 interface 
     4 
     5 uses 
     6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
     7   Dialogs, StdCtrls; 
     8 
     9 const 
    10   UM_ADD = WM_USER + 100; 
    11 
    12 type 
    13   TForm1 = class(TForm) 
    14     Label1: TLabel; 
    15     procedure FormCreate(Sender: TObject); 
    16   private 
    17     FVal: Integer; 
    18     procedure OnMsgAdd(var Msg: TMsg); message UM_ADD; 
    19   public 
    20     { Public declarations } 
    21   end; 
    22 
    23 var 
    24   Form1: TForm1; 
    25 
    26 implementation 
    27 
    28 {$R *.dfm} 
    29 
    30 procedure TForm1.FormCreate(Sender: TObject); 
    31 var 
    32   i: Integer; 
    33 begin 
    34   for i:=0 to 1000000 do 
    35     PostMessage(Handle, UM_ADD, 0, 0); 
    36 end; 
    37 
    38 procedure TForm1.OnMsgAdd(var Msg: TMsg); 
    39 begin 
    40   Inc(FVal); 
    41   Label1.Caption := IntToStr(FVal); 
    42 end; 
    43 
    44 end.

    XP下运行结果:
     

    可见,消息队列的默认长度是10000(在WIN7下运行结果是9998),队列满后消息将被丢弃。
     
    如果把代码中的PostMessage改成SendNotifyMessage,运行后过了一段时间,窗口弹出:
     
    所以,功能类似的SendNotifyMessage不会丢掉消息,必要时可以用它代替PostMessage。
    上面的结论是错误的,SendNotifyMessage并没有那么神奇,上面的例子没有丢失消息的原因是因为
    SendNotifyMessage发消息给同线程创建的窗口时,采用的是直接调用窗口函数的方式,换句话说
    就是在执行SendMessage。
  • 相关阅读:
    安装EPP的调试Zend Debugger
    PHP一周学习小结
    工作小记
    JQuery实现日期联动
    编程珠玑位图法排序
    Asp.net MVC 4 异步方法
    Powershell实现创建zip压缩文件
    使用JustDecompile修改程序集
    Asp.net MVC 3 异步操作
    HTAs文件应用
  • 原文地址:https://www.cnblogs.com/ddgg/p/2991595.html
Copyright © 2020-2023  润新知