利用主线程与子线程间的消息通讯,实现任务处理队列
来源:互联网 发布:初中答题软件 编辑:程序博客网 时间:2024/05/12 00:13
http://hi.baidu.com/dushm/item/14eb022b30a21df950fd873b
From: http://www.delphibbs.com/keylife/iblog_show.asp?xid=27182
主题:利用主线程与子线程间的消息通讯,实现任务处理队列.
目标:主线程只需发命令(消息)通知子线程需要处理的内容,而不用管任务的处理进度,可以发任意个命令,而子线程依次取出主线程交付的任务来处理.
步骤:
1.主线程通过PostThreadMessage将命令消息发送给子线程,可以利用wParam与lParam传递需要的参数.
2.子线程执行代码中建立一个消息循环,PeekMessage从消息队列提取消息,若无消息,则用
MsgWaitForMultipleObjects等待消息或事件对象.
示例代码:
const
WM_TEST=WM_USER+1;
var
hCloseEvent:THandle;
ThreadID:DWORD;
type
TTestThread=class(TThread)
protected
procedure Execute;override;
end;
procedure TTestThread.Execute;
var
msg:TMsg;
begin
try
while True do
begin
if not PeekMessage(msg,0,0,0,PM_REMOVE) then
begin
case MsgWaitForMultipleObjects(1,hCloseEvent,False,INFINITE,QS_ALLINPUT) of
WAIT_OBJECT_0: Break;//hCloseEvent事件已经有效,故结束
WAIT_OBJECT_0+1:Continue;//消息队列中有消息存在
else Break;//其它情况,WM_FAILED或WAIT_ABANDONED_0,表明已经出错,故结束
end;
end else
begin
if WaitForSingleObject(hCloseEvent,0)<>WAIT_TIMEOUT then Break;
case msg.message of
WM_TEST:
begin
//...接到主线程发过来的命令,作相应处理
//...处理完之后,也可以用消息通知主线程
end;
end;
end;
end;
finally
//...作善后处理
end;
end;
procedure TForm1.btnCmdClick(Sender: TObject);
begin
//给子线程发送消息
PostThreadMessage(ThreadID,WM_TEST,0,0);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
//建立事件对象以及子线程,并保存子线程的ThreadID,用以调用PostThreadMessage
hCloseEvent:=CreateEvent(nil,True,False,0);
ThreadID:=TTestThread.Create(False).ThreadID;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
SetEvent(hCloseEvent);
CloseHandle(hCloseEvent);
end;
procedure TForm1.btnStopClick(Sender: TObject);
begin
SetEvent(hCloseEvent);
end;
- 利用主线程与子线程间的消息通讯,实现任务处理队列
- 利用主线程与子线程间的消息通讯,实现任务处理队列.子线程中创建不会阻塞执行的窗口
- 主线程与子线程之间通讯, 子线程与子线程之间的通讯
- Android主线程与子线程通讯
- 主线程利用MsgWaitForMultipleObjects等待子线程结束时,同时处理子线程发送的窗口消息
- 利用线程消息队列,实现任务队列
- Handler(3)--在子线程中主线程的 消息队列发送消息
- Android 使用handler实现线程间发送消息 (主线程 与 子线程之间)、(子线程 与 子线程之间)
- 利用Handler在主线程与子线程之间互发消息,handler详解
- 利用Handler在主线程与子线程之间互发消息
- 主线程与子线程之通讯(一)
- iOS Qt 子线程与主线程通讯
- 通过消息队列实现线程间通讯
- Android中UI线程(主线程)和子线程间的通讯方式比较
- 使用Handler实现主线程与子线程之间互相传递消息
- Android子线程向主线程发送消息实现
- Handler详解系列(三)——在子线程中给主线程的消息队列发送消息
- 消息机制--主线程与子线程信息交互
- SQLServer 解析JSON字符串
- 正则表达式30分钟入门教程
- 15个国外Web网站开发教程网站
- Cocos2d-x 内存管理剖析(1)
- Linux chmod: .xinitrc: Read-only file system(修改只读文件的方法)
- 利用主线程与子线程间的消息通讯,实现任务处理队列
- Eclipse的内存优化与内存不足问题
- dovecot配置
- Concurrency Programming Guide 并发设计指引(三)
- 探索 Python,第 1 部分: Python 的内置数值类型
- HttpsURLConnection 与 HttpURLConnection
- do while 和while之间的区别
- samba服务器 安装与配置、解决Windows访问Samba提示“无任何网络提供程序接受指定的网络路径”
- VS2008如何自动添加消息映射 .