分享
 
 
 

Delphi关于线程的消息处理

王朝delphi·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

在平时写程序时,总是碰到窗体(TForm)与线程(TThread)消息通信问题。令人烦恼的是窗体不能向线程(TThread)发送消息(线程没有窗口句柄)。经过几天的折腾,想出二种解决方案,拿出来跟大家探讨探讨。

第一。我们知道VC++ 中的MFC类库是自已封装了消息处理(BEGINMESSAGE, ENDMESSAGE),在MFC中对消息的处理是通过建立一张消息映射表,而把方法(function)或过程(procedure)的地址保存到映射表里(消息处理实质上是方法或过程的调用),再加上一个消息分发机制,来实现消息的接收发送 <详见VC++技术内幕>。所以我们只要为线程里建立一张消息映射表,并建立相应的消息分发机制。这样就可以处理窗体发送到线程的消息。以下代码是实现消息映射表和消息分发的类(详见 <..\消息处理设计(线程)1\MessageHandle.pas> 中 )

unit MessageHandle;

interface

uses messages,Classes,SysUtils,Dialogs;

const PMSG_BASE = $BE00; //自定义消息基址;

PMSG_NUM = 200; //消息表大小;

{**自定义消息处理类

*;功能 = 建立自定义消息表,处理线程之间

* 以及与主窗体之间的自定义消息(宏观)

*}

//消息处理句柄

TMessageHandle = procedure(var Message: TMessage) of Object;

TPDispatcher = class(TObject)

private

//消息对应表(消息ID为数组下标);

MessageHandles: array of TMessageHandle;

//从消息ID得到数组ID

function GetIndexFromMsgID(const aMessageID: cardinal): Integer;

public

constructor Create;

destructor Destroy;

//发送消息

procedure SendMessage(var Message: TMessage); overload;

//添加自定义消息到消息对应表;

procedure AddHandle(const aMessageID: cardinal; aMessageHandle: TMessageHandle);

end;

//

implementation

{ TPDispatcher }

constructor TPDispatcher.Create;

var i: Integer;

begin

SetLength(MessageHandles,PMSG_NUM); //200个消息的消息对应表

//初始化消息队列;

for i := 0 to Pred(PMSG_NUM) do

MessageHandles[i] := nil;

end;

destructor TPDispatcher.Destroy;

begin

{释放消息对应表}

FreeAndNil(MessageHandles);

end;

procedure TPDispatcher.AddHandle(const aMessageID: cardinal;

aMessageHandle: TMessageHandle);

var tID: Integer;

begin

tID := GetIndexFromMsgID(aMessageID);

Assert((tID > 0) or (tID < Pred(PMSG_NUM)) );

Assert(Assigned(aMessageHandle));

MessageHandles[tID] := aMessageHandle;

end;

function TPDispatcher.GetIndexFromMsgID(const aMessageID: cardinal): Integer;

begin

Result := aMessageID - PMSG_BASE;

end;

procedure TPDispatcher.SendMessage(var Message: TMessage);

var tID: Integer;

tMsgHandle: TMessageHandle;

begin

tID := GetIndexFromMsgID(Message.Msg);

Assert((tID > 0) or (tID < Pred(PMSG_NUM)));

tMsgHandle := MessageHandles[tID];

if Assigned(tMsgHandle) then

tMsgHandle(Message);

end;

现在我们只需要注册一下自定义的消息,然后通过消息分发类(TPDispatcher),实现对线程消息的处理。代码如下<详见..\消息处理设计(线程)1\test\unit1.pas>:

Unit unit1

const

{自定久线程消息}

MY_MESSAGE2 = PMSG_BASE + 02;

type

TForm1 = class(TForm)

AddMsgList: TButton;

SendThead: TButton;

sendForm: TButton;

sendOther: TButton;

procedure SendTheadClick(Sender: TObject); //发送消息

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

private

Fdispatcher: TPDispatcher; 消息映射表类

Fhandle: TPHandler;

FThread: TPTHread; 自定义线程类

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SendTheadClick(Sender: TObject);

var aMessage: TMessage;begin

aMessage.Msg := MY_MESSAGE2;

aMessage.WParam := 1;

Fdispatcher.SendMessage(aMessage);

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

{创建消息映射表类}

Fdispatcher := TPDispatcher.Create;

Fhandle := TPHandler.Create;

{创建线程}

FThread := TPThread.Create(false);

{向映射表中增加消息}

Fdispatcher.AddHandle(MY_MESSAGE2,FThread.DoMessage);

end;

procedure TForm1.FormDestroy(Sender: TObject);

var i: Integer;

begin

FreeAndNil(Fdispatcher);

FreeAndNil(Fhandle);

for i:= 0 to 3 do

FreeAndNil(FThread[i]);

end;

第二。窗口可以处理消息是因为它有窗口句柄。为了使线程也能处理消息,我们可以通过为线程加上一个相应窗口类的窗口名柄。(源码在 <..\消息处理设计(线程)2 \ pThread.pas >中)

unit pThread;

interface

uses classes,sysutils,Windows,Messages,Dialogs;

const MY_MESSAGE1 = $BD00 + 01;

Type

{** 消息处理线程类

*;功能 = 添加线程处理消息能力,

*}

TPMsgThread = class(TThread)

private

//窗口句柄

FWndHandle: HWND;

//窗口数据信息

FWndClass: WNDCLASS;

//指向窗口回调函数的指针

FObjectInstance: Pointer;

//初始化窗口数据

procedure InitWnd;

//创建隐藏窗口

procedure CreateWnd;

//注册隐藏窗口

procedure RegistWnd;

procedure DestroyWnd;

//窗口回调函数

procedure pWndProc(var Message: TMessage); virtual;

protected

procedure Execute; override;

procedure DoTerminate; override;

public

constructor Create(CreateSuspended: Boolean); virtual;

property WndHandle: HWND read FWndHandle write FWndHandle;

end;

implementation

const WND_NAME = 'PY20';

{ TPMsgThread }

constructor TPMsgThread.Create(CreateSuspended: Boolean);

begin

inherited Create(CreateSuspended);

FWndHandle := Integer(nil);

InitWnd;

RegistWnd;

CreateWnd;

end;

procedure TPMsgThread.CreateWnd;

begin

if(WndHandle = Integer(nil)) then

WndHandle := CreateWindow(FWndClass.lpszClassName, FWndClass.lpszClassName,

WS_POPUP or WS_CAPTION or WS_CLIPSIBLINGS or WS_SYSMENU

or WS_MINIMIZEBOX,

GetSystemMetrics(SM_CXSCREEN) div 2,

GetSystemMetrics(SM_CYSCREEN) div 2,

0, 0, 0, 0, FWndClass.hInstance, nil);

//置换窗口回调函数

SetWindowLong(WndHandle, GWL_WNDPROC, Longint(FObjectInstance));

end;

procedure TPMsgThread.DestroyWnd;

begin

UnregisterClass(FWndClass.lpszClassName,FWndClass.hInstance);

DestroyWindow(WndHandle);

end;

procedure TPMsgThread.DoTerminate;

begin

inherited;

DestroyWnd;

end;

procedure TPMsgThread.Execute;

begin

end;

procedure TPMsgThread.InitWnd;

begin

FwndClass.lpszClassName := PChar(WND_NAME);

FWndClass.hInstance := Handle;

FWndClass.lpfnWndProc := @DefWindowProc;

end;

procedure TPMsgThread.pWndProc(var Message: TMessage);

begin

end;

procedure TPMsgThread.RegistWnd;

begin

FObjectInstance := Classes.MakeObjectInstance(pWndProc);

if(FWndClass.hInstance <> Integer(nil)) then

RegisterClass(FWndClass);

end;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有