- 在线时间
- 0 小时
- 最后登录
- 2007-9-23
- 注册时间
- 2004-9-10
- 听众数
- 3
- 收听数
- 0
- 能力
- 0 分
- 体力
- 9975 点
- 威望
- 7 点
- 阅读权限
- 150
- 积分
- 4048
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 1893
- 主题
- 823
- 精华
- 2
- 分享
- 0
- 好友
- 0

我的地盘我做主
该用户从未签到
 |
< >最近在写一个程序用到了多线程,所以对CB下的多线程有一定的学习。+ N7 ~2 Y4 L" z% e$ u- R
现在把自己的一些心得讲一下。水平有限,写的很粗略,请大家见谅。</P>
2 I" D# B, \$ D9 G< >CB相对于VC来说,在CB下写多线程程序是很简单的。不仅是VCL中有TThread这个类。封装了那些关于多线程的WINDOW API。我觉得更方便的是他提供了
$ b x0 R4 |/ R: @直接访问主VCL线程中对象的能力。可以很容易的和主线程中的窗体,控件
2 P# [2 _- }5 H; ~9 p% R% d打交道。和单线程的方式没有太多区别。只是在有多个线程都要访问主线程
Q0 _$ v4 |1 e中的对象(比如访问同一个窗体上的StringGrid).只要用Thread的Synchronize方法来调用那段访问主VCL线程的代码(具体请看帮助),我们就不用担心访问冲突的问题了。而且对于多线程的同步和互斥,CB也对WINDOW 编程中那些机制进行了封装。比如对临界区CriticalSection封装为TCriticalSection.事件Event封装为TEvent.这些类相当简单好用。; x; G7 X: J8 f- ^5 k+ m+ l
下面就是我觉得比较重要的几点,供大家参考.</P>
: Q- {- D( _6 r/ E6 t< >* F% n9 ^6 h; Y- W& H7 S- b
1。TThread的WaitFor方法。是等待一个线程返回。其返回值在这个线程里可以任意设定。以便在该线程返回的时候让调用他的线程知道他的运行情况。 $ X9 P5 ~8 e9 R3 a3 M" V$ c
. t' Q+ k* m G3 U" O* f. A
在TThread的 OnTerminate事件中做线程的清除工作。他不是线程运行的一部分。 . I8 ]9 R H% J& s& V
而是主VCL线程的一部分。所以在其中不能访问Thread的局部变量(如 int __thread i)
9 |; f. s9 _# o; k8 \3 f( j l! t你可以把清楚代码写在这里,不用管现在在EXCUTE()方法执行到了哪个地方。
" q! |* ]5 j! j( ?2 E% a: X3 ?这么看起来有点类似于C++里的 finally 块的作用。
% M8 Z$ Q7 A0 C7 ^
# R+ r m. v; I# L0 `5 T3 X" ]2。TEvent很重要。实现线程的同步。WaitFor(int Timeout)功能类似于
. @* _& A: y' v6 _WINDOW API WaitforSingleObject().返回值包括: + t1 I- F( r1 [8 Q, y' d* k
其中参数Timeout可以设为INFINITE表示永久等待,但这样,程序很容易死在这里。 ) s" ?* h& {$ J6 W9 z/ r7 h9 T+ ^) z
4 G0 v8 A" B8 [% F+ e( f
wrSignaled 该事件发生(成功返回). . M0 C( u3 \9 e7 [1 s
wrTimeout 等待超时. 7 ?! r4 d0 T/ {8 x1 E% \8 E
wrAbandoned 在该事件的超时期限到达前,该事件对象已经被毁灭了。. : o: d, w2 a9 S
wrError 在等待过程中有异常产生,要知道具体产生的错误要查看 TEvent的LastError & H" i5 Q! Q& C8 r+ q3 r$ ~' y( m
属性。 % W! q1 \4 E3 V$ G1 C Q4 \
( I0 @0 t! ?( n7 f* T
3? TCriticalSection
9 N( q. s: C2 S: ^这个相当于WIN32编程中的临界区。
' W5 s* h7 t, ]4 A在多线程编程中,多个线程需要访问同一个公用变量的时候。 ' C7 |* Z+ f y0 y
. ^# G0 E# s% d' ^% z8 Q, J2 J5 t' k5 }来保证访问的正确性。对公用变量访问的代码写在Enter();和Leave()之间。 6 I# S E) t; A- ]6 V/ ]. A
比如有个公用变量 Count;
6 I2 H2 X8 h* H# j/ r以下代码 :
8 N! r2 I3 G9 k; ]TCriticalSection * pSection=new TCriticalSection(); / U% ~2 N1 n4 |" N5 W& p6 ~9 S2 A
pSection->Enter(); * U5 y; o8 T! T/ @ a4 v5 j
Count++; ' b& N4 t+ { y
pSection->Leave(); ( v5 [- z1 F" n9 @; M# Y9 ~
delete p;
- |* [0 M1 u A$ g- h; M! Y
6 G/ Z# ?5 [1 S6 s* A4 ]2 LEnter()方法进入临界区,对其中的公用变量加锁。 7 |( K9 w# g7 M
Leave()方法离开临界区,对其中的公用变量解锁。 . e% z* ]- `+ C% ]# E9 k
8 ?4 ]1 C3 b, X( X% E& T
( F/ W' J4 P1 k, d; q6 U3 V; M4.TMultiReadExclusiveWriteSynchronizer
0 k6 W, ~. C' h. _0 @6 t用来处理类似于多个生产者和多个消费者的问题。这里的消费者是指
5 G% t3 z4 Q3 ? f5 q1 N对公用变量进行读操作的线程。+ \; M6 V0 [9 V$ b: w9 {3 d
生产者是对公用变量进行写操作的线程。</P>/ P7 B# J& M: X6 f
< >四个方法。' u+ y6 ]' @9 e) ^% r) m' t8 z
BeginRead5 i1 c9 _! y: l) G
EndRead
& I1 F( S& ^2 I1 k# k, d% Y6 s# M: c) t这两个方法用于消费者。* Q2 B4 W$ p4 ?7 @ i: D& v8 y
BeginWrite
- w4 \# Z. y; f; K$ `+ |4 B6 | EndWrite. J0 d( W. M+ j: x, ~! r) m5 P
这两个方法用于生产者。</P>
7 ]/ y/ q, _. o- \4 Q& m. u< >使用的时候就是要把这个TMutiReadExclusiveWriteSynchronizer 定义一个全局变量。
6 g q8 p! ~" }1 l然后在其他线程中访问他。</P>
, K7 }' n) u8 _1 v
8 {& ]9 [* }1 c, Q7 O' _# ]4 d< >
& g! ^' h: [7 { </P> |
zan
|