我的Java方面博客

天下難事必做于易，天下大事必做于細

導(dǎo)航

<

2007年9月

>

日

一

二

三

四

五

六

26

27

28

29

30

31

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

1

2

3

4

5

6

公告

鄭重聲明
http://www.aygfsteel.com/zhangsk/
本博客未作說明的所有文章
和作品均為原創(chuàng)，全部版權(quán)
歸著作人張樹坤所有，侵權(quán)
必究。
歡迎網(wǎng)絡(luò)媒體轉(zhuǎn)載，但必注
明作者和出去。報刊圖書媒
體轉(zhuǎn)載需作者書面同意。
E-Mail：zhangsk.cn@gmail.com
http://www.zhangsk.cn

我的個人網(wǎng)站
 我在163上的Blog

留言簿(1)

隨筆分類

隨筆檔案

文章檔案

2007年8月 (1)

閱讀排行榜

評論排行榜

常用鏈接

統(tǒng)計

隨筆 - 10
文章 - 1
評論 - 1
引用 - 0

PostMessage和SendMessage區(qū)別

PostMessage 只是把消息放入隊列，不管其他程序是否處理都返回，然后繼續(xù)執(zhí)行 ;
而 SendMessage 必須等待其他程序處理消息后才返回，繼續(xù)執(zhí)行。
PostMessage 的返回值表示 PostMessage 函數(shù)執(zhí)行是否正確 ;
而 SendMessage 的返回值表示其他程序處理消息后的返回值。
使用這兩個發(fā)送消息函數(shù)的最重要的是要看你的程序是否要對消息的滯后性關(guān)注否 ,PostMessage 會造成消息的滯后性 , 而 SendMessage 則不會 , 但如果 SendMessage 消息處理失敗 , 則會造成程序停止 !

為了讓大家能清楚的看到他們的效果，可以用下面的代碼進行測試：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

mmo1: TMemo;

btn2: TButton;

btn3: TButton;

procedure btn2Click(Sender: TObject);

procedure btn3Click(Sender: TObject);

private

{ Private declarations }

procedure testPostMessage;

procedure testSendMessage;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses uFile;

{$R *.dfm}

var

f: TFile;

procedure TForm1.btn2Click(Sender: TObject);

var

i: Integer;

begin

testPostMessage;

for i := 0 to 5000 do

begin

mmo1.Lines.Add(IntToStr(i)+'======');

end;

procedure TForm1.btn3Click(Sender: TObject);

var

i: Integer;

begin

testSendMessage;

for i := 0 to 5000 do

begin

mmo1.Lines.Add(IntToStr(i)+'======');

end;

procedure TForm1.testPostMessage;

var

i: Integer;

begin

PostMessage(f.Handle, WM_TEST, 0, 0);

for i := 0 to 5000 do

begin

mmo1.Lines.Add(IntToStr(i))

end;

procedure TForm1.testSendMessage;

var

i: Integer;

begin

SendMessage(f.Handle, WM_TEST, 0, 0);

for i := 0 to 5000 do

begin

mmo1.Lines.Add(IntToStr(i))

end;

initialization

if f = nil then

f := TFile.Create;

finalization

if f <> nil then

FreeAndNil(f);;

end.

unit uFile;

interface

uses

Classes, Windows, Forms, Messages;

const

WM_TEST = WM_USER + 1;

type

TFile = class

private

FHandle: HWND;

protected

procedure WndProc(var Msg: TMessage);

public

procedure AfterConstruction; override;

procedure BeforeDestruction; override;

property Handle: HWND read FHandle;

end;

implementation

{ TFile }

procedure TFile.AfterConstruction;

begin

inherited;

FHandle := AllocateHWnd(WndProc);

end;

procedure TFile.BeforeDestruction;

begin

inherited;

DeallocateHWnd(FHandle);

end;

procedure TFile.WndProc(var Msg: TMessage);

begin

if msg.Msg = WM_TEST then

begin

//消息處理內(nèi)容

Application.MessageBox('WM_TEST', 'WM_TEST', 0);

end;

windows.DefWindowProc(FHandle, Msg.Msg, Msg.wParam, Msg.lParam);

end;

end.

posted on 2007-09-03 14:28 張樹坤閱讀(1489) 評論(0) 編輯收藏所屬分類: Windows編程

新用戶注冊刷新評論列表


只有注冊用戶登錄后才能發(fā)表評論。




網(wǎng)站導(dǎo)航: 博客園 IT新聞 Chat2DB C++博客博問管理
相關(guān)文章: 模擬鍵盤輸入 PostMessage和SendMessage區(qū)別控制另一個程序

我的Java方面博客

導(dǎo)航

公告

留言簿(1)

隨筆分類

隨筆檔案

文章檔案

閱讀排行榜

評論排行榜

常用鏈接

統(tǒng)計

最新評論

PostMessage和SendMessage區(qū)別