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

我的地盘我做主
该用户从未签到
 |
< >最近在写一个程序用到了多线程,所以对CB下的多线程有一定的学习。
0 u; K, b3 o$ Z; Y2 D4 r4 @现在把自己的一些心得讲一下。水平有限,写的很粗略,请大家见谅。</P>
6 V& k- V! o8 p3 C& W, b0 z< >CB相对于VC来说,在CB下写多线程程序是很简单的。不仅是VCL中有TThread这个类。封装了那些关于多线程的WINDOW API。我觉得更方便的是他提供了
" n% r" Y7 s$ J j1 d7 q直接访问主VCL线程中对象的能力。可以很容易的和主线程中的窗体,控件
: f3 F" Q4 V( B5 n" P7 C e打交道。和单线程的方式没有太多区别。只是在有多个线程都要访问主线程) K s. J8 ?$ a$ C- s I* \( F0 g
中的对象(比如访问同一个窗体上的StringGrid).只要用Thread的Synchronize方法来调用那段访问主VCL线程的代码(具体请看帮助),我们就不用担心访问冲突的问题了。而且对于多线程的同步和互斥,CB也对WINDOW 编程中那些机制进行了封装。比如对临界区CriticalSection封装为TCriticalSection.事件Event封装为TEvent.这些类相当简单好用。3 A2 G p0 _& A' G. k% Y& I2 h L. X
下面就是我觉得比较重要的几点,供大家参考.</P>
( v& R6 s- C( l< >
7 l5 i' X5 ~0 ^8 ~( f$ L, q1。TThread的WaitFor方法。是等待一个线程返回。其返回值在这个线程里可以任意设定。以便在该线程返回的时候让调用他的线程知道他的运行情况。 2 {) Q6 B4 T4 D7 R- Z
% F- e$ {; O0 h a& A" E5 Z在TThread的 OnTerminate事件中做线程的清除工作。他不是线程运行的一部分。
: { E v. t$ Q8 u而是主VCL线程的一部分。所以在其中不能访问Thread的局部变量(如 int __thread i) 6 R# H0 O) ]; y
你可以把清楚代码写在这里,不用管现在在EXCUTE()方法执行到了哪个地方。
+ l8 k, W) f+ a$ G A7 N$ r这么看起来有点类似于C++里的 finally 块的作用。 : }4 ~# @1 I! y' }" [$ m
# {5 K3 ]- J; c' z5 o* L2。TEvent很重要。实现线程的同步。WaitFor(int Timeout)功能类似于
9 Z* C8 M- V- g. r+ l# lWINDOW API WaitforSingleObject().返回值包括:
" V' X/ v+ V8 Y: N& I& b其中参数Timeout可以设为INFINITE表示永久等待,但这样,程序很容易死在这里。 * z0 J6 ?7 b( H. v- k9 R
' s$ Y) D$ D( m; a3 B: i3 E8 ], a
wrSignaled 该事件发生(成功返回). ) m8 h& ~% V" A. ~: n
wrTimeout 等待超时. ' ~0 C) |% s U1 Z+ g0 S+ s
wrAbandoned 在该事件的超时期限到达前,该事件对象已经被毁灭了。.
; W7 `* i$ J# \( \, @9 J( BwrError 在等待过程中有异常产生,要知道具体产生的错误要查看 TEvent的LastError 6 ]) S9 X: O$ `) c
属性。
9 c- \& q8 c; T( b# I1 K( ]6 z
/ r- l" k7 \, {) U2 ~8 @3? TCriticalSection 9 ~. ]' E# \4 r
这个相当于WIN32编程中的临界区。 ' K/ L" V3 b; C( |+ t# v; s
在多线程编程中,多个线程需要访问同一个公用变量的时候。
4 Y' C$ J V+ T
, X( X/ o: D& J9 }0 b9 e来保证访问的正确性。对公用变量访问的代码写在Enter();和Leave()之间。 9 s' b D4 u; Z) p# x. N; Q6 k
比如有个公用变量 Count; ) n# s# J- v0 X* w- v, A2 s$ ]
以下代码 : 6 }' J" K$ T& `" q( c
TCriticalSection * pSection=new TCriticalSection();
8 a9 w: N3 ^0 C! P2 \ pSection->Enter();
' Z8 C: T3 h% {. a l Count++;
. S* ]9 g! l: L/ d' _5 ^7 l: x9 S. C pSection->Leave();
. C, ~$ v' r: ^0 J( A6 tdelete p;
4 Z1 n' M9 w. `& Y$ ~* i. ^4 v
& P+ |8 {" x" A+ xEnter()方法进入临界区,对其中的公用变量加锁。
: f2 G& H! g+ I( A% U- wLeave()方法离开临界区,对其中的公用变量解锁。 + I# J5 h' _/ y1 s
3 U: F0 e6 w5 F1 l/ \! Z- I; n
' z! _4 k! M: k4.TMultiReadExclusiveWriteSynchronizer
: k6 _+ P- i6 a/ U8 d$ k! S6 R用来处理类似于多个生产者和多个消费者的问题。这里的消费者是指1 j r3 k) ?' H9 U
对公用变量进行读操作的线程。
- }" a a4 A; V( s生产者是对公用变量进行写操作的线程。</P>
/ \6 I/ c& \( G* @$ g! o< >四个方法。
5 c2 H7 w: c, r) R BeginRead
8 f( H$ g" m% R' C0 E% j EndRead! B; k' t1 F- k7 d
这两个方法用于消费者。
7 u! |7 C8 R: y: E" F1 N" a) r BeginWrite1 ?: u3 B U2 S! N$ I( Y
EndWrite. A& k( c1 ~( R+ A0 a2 s
这两个方法用于生产者。</P>5 P; G* O. m v" N3 l" C
< >使用的时候就是要把这个TMutiReadExclusiveWriteSynchronizer 定义一个全局变量。) k' ^; P# T8 n% ]
然后在其他线程中访问他。</P>+ Q( }% q! [6 z% [4 L# x
' X5 ]) t& g3 a3 L( f$ j
< >
# V) s, b. q1 q u: S </P> |
zan
|