PostThreadMessage在线程中应用(以多线程网站数据采集为例)
PostThreadMessage 顾名思议，向线程中发送消息.下面讲讲我在线程中的应用体会
在Delphi 中，我们大多数人，使用线程的时候，都会用到系统自带的TThread 类，来完成线程的操作。
从TThread 中派生出一个自己的类,然后重载 Execute 函数,其在TThread中被定义成了抽象类(纯虚类C++)。
子类必须重载这个函数.在此函数中，写入你要完成的任务代码. 例如 最简单应用
TCustXXXXThread=class(TThread)
public
procedure Execute();override;
end;
TCustXXXXThread.Execute()
begin
while (not Terminated) do
begin
//do something
end;
//退出后，线程结束
end;
一个线程要完成一项(多项)任务，就涉及到一个最基本也是不可回避的问题，怎样与线程进行通信，把输入参数传递给线程
把线程的运行结果，取出来。实现的方法很多，今天这里重点介绍下。
我的一个软件模块中，需要做数据采集, 把某网站上的数据采集下来。然后，分解提取出需要的数据，整理后，存入数据库
以便于后续处理。网络通信采用了 Indy控件，负责下载网页文本。由于数据量比较大，网站的数据是分页的。我这里也要循环
读取每个网页的文本。数据下载，分解都是耗时操作。很自然的就需要把它们放入线程中运行。以保证主界面不被卡死。
实现的伪代码
while(ture) do
begin
(1)采集网站文本,通知主线程数据下载完毕
(2)分解网站文本，提取数据,
while(ture) do
begin
提取数据记录，发消息给主线程(记录N)分解完毕。
end;
if 采集的网站数据的最后一页 then 退出.
end;
我们开发软件的时候，常常提到系统架构。那么这个模块的架构应该如何那。
1）主要的处理函数全部在线程中运行
2）中间的运行结果要通知主线程，用于界面更新
3）网络程序，必须要考虑到错误处理问题。例如，网站链接超时。
4) 接受主线程命令随时中断采集.
根据此种情况及个人喜好原因。决定采用模拟窗口消息处理的方式，作程序的主框架。以消息的读取，转换，分发
为主线。
代码框架如下：
TWebSample=class(TThread)
private
//..........
protected
procedure WndProc(var AMsg:TMessage); //模拟窗口消息处理
procedure Execute();override; //线程运行的主函数
public
MainWndHande:THandle; //主窗口句柄，用于发消息给主窗口用
end;
TWebSample.Execute()
var
_Msg:tagMsg;
AMessage:TMessage;
begin
//模拟消息驱动,
//在这里起到一个消息泵的作用,用于消息的接受，分析，转发
while (not Terminated) do
begin
if PeekMessage(_Msg,0,WM_USER,WM_USER + 1100,PM_REMOVE) then
begin
AMessage.Msg := _Msg.message;
AMessage.WParam := _Msg.wParam;
AMessage.LParam := _Msg.lParam;
AMessage.Result := 1;
WndProc(AMessage); //消息的转发
if AMessage.Result = 0 then
Break; //退出线程
end
else
Sleep(1); //避免没有消息进来的时候，CPU 占用率过高.具体数值，可以实验测定。
end;
end;
procedure TWebSample.WndProc(var AMsg:TMessage); //模拟窗口消息处理
begin
if AMsg.Msg = MSG_XXXX_01 then
begin
//消息处理
//发消息给主窗体，用于数据更新等操作
SendMesesage(MainWndHand,MSG_MAIN_XXXX,wParam,lParam);
end
else
if AMsg.Msg = MSG_XXX_02 then
begin
//消息处理
end;
end;
//线程介绍完了，下面要谈谈主窗体怎样发消息(命令)给线程的伪代码
procedure TfrmSaleAnaly.btnGoClick(Sender: TObject);
var
ThreadObj: TWebSamplebj;
begin
ThreadObj := TWebSamplebj.Create(TRUE);
ThredObj 对象的初始化
ThredObj.Resume(); //启动线程运行
//发出控制命令给线程
PostThreadMessage(ThreadObj.ThreadID,
MSG_XXXX_01,
wParam,
lParam);
end;
如果投递消息到线程中，没有反应，可以试试下面的方法
procedure PostThreadMessageEh(ThreadID:DWORD;Msg:DWORD;WParam,LParam:Integer);
begin
while(not PostThreadMessage(ThreadID,Msg,WParam,LParam)) do Sleep(5);
end;
MSDN 关于此问题的解决办法.
The thread to which the message is posted must have created a message queue, or else the call to PostThreadMessage fails. Use one of the following methods to handle this situation:
- Call PostThreadMessage. If it fails, call the Sleep function and call PostThreadMessage again. Repeat until PostThreadMessage succeeds.
