【zt】delphi线程同步问题（postmessage）

通过postmessage同步线程的方法。

原帖地址：http://blog.csdn.net/jfyes/archive/2007/01/18/1487057.aspx

 呵呵，N久前的问题现在忘记了，搞得我找了一个小时的原因才找出是线程里面更
新VCL，出现了主线程阻塞的问题，刚开始还莫名其妙的不知所以然，后来发现自己的线程
内用了Synchronize函数，难怪把网线一拔，Socket接收进入阻塞线程状态，可是主线程也
同时被阻塞了。
      VCL不支持线程更新，记得在FastPC中用的最多也是线程，处理VCL只
有用一种方法最能解决问题的是PostMessage将消息邮寄给主线程，得以解同步问题。呵呵，
长时间不用，就会忘记。如果用了PostMessage，那线程同步函数就没有必要在用了。
     修改后得以正常运行。

 1 const
 2   WM_THREAD_MSG   =  WM_USER  +  ＄FF;
 3
 4 procedure  WMThread_msg( var  Msg: TMessage);  message  WM_THREAD_MSG;
 5
 6 type
 7   TDataPack  =   record
 8     ID: WORD;
 9     DataSize: Integer;
10     Data: PChar;
11    end ;
12   PDataPack  =  TDataPack
13  
14 procedure  TDataPack.Execute;
15 var
16   AData: TDataPack;
17 begin
18    inherited ;
19   FBindIndex : =  socket_state;
20    while  ( not  self.Terminated)  and  (FBindIndex  >   - 1 ) do
21    begin
22      try
23        // Synchronize(SynchronizeMethod);  // 线程同步
24       FillChar(AData, SizeOf(AData), # 0 );
25        if  ReadSocket(FSocket[FBindIndex], AData)  then
26         PostMessage(Application.MainForm.Handle, WM_THREAD_MSG,  0 , Longint(@PDataPack));
27        
28       Sleep(FWaitTime);
29      except  on E: Exception  do
30       WriteLog(g_ProLogFile, E.Message);
31      end ;
32    end ;
33
34 end ;   
35 procedure  TMainForm.WMThread_msg( var  Msg: TMessage);
36 var
37   Data: PDataPack;
38 begin
39   Data : =  PDataPack(Msg.lParam);
40    if  Data  <>   nil   then
41    begin
42      // TODO: 处理数据
43    end ;
44 end ;