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

我的地盘我做主
该用户从未签到
 |
< >最近在写一个程序用到了多线程,所以对CB下的多线程有一定的学习。) y9 ?" @* U. k7 C. `4 i1 N
现在把自己的一些心得讲一下。水平有限,写的很粗略,请大家见谅。</P>9 h- r- C; A9 _0 V! d
< >CB相对于VC来说,在CB下写多线程程序是很简单的。不仅是VCL中有TThread这个类。封装了那些关于多线程的WINDOW API。我觉得更方便的是他提供了: K8 n C* S5 c+ q
直接访问主VCL线程中对象的能力。可以很容易的和主线程中的窗体,控件
# u, M$ g. _6 E3 t% M打交道。和单线程的方式没有太多区别。只是在有多个线程都要访问主线程
7 p6 @) ?) G8 g6 H3 I) M. F, k# N中的对象(比如访问同一个窗体上的StringGrid).只要用Thread的Synchronize方法来调用那段访问主VCL线程的代码(具体请看帮助),我们就不用担心访问冲突的问题了。而且对于多线程的同步和互斥,CB也对WINDOW 编程中那些机制进行了封装。比如对临界区CriticalSection封装为TCriticalSection.事件Event封装为TEvent.这些类相当简单好用。
# ~! M- a2 Y; k* D5 l% o下面就是我觉得比较重要的几点,供大家参考.</P>
4 q9 M" l* K% g7 R' v! d/ Q< >. O) {" j8 d; t6 \3 f4 G
1。TThread的WaitFor方法。是等待一个线程返回。其返回值在这个线程里可以任意设定。以便在该线程返回的时候让调用他的线程知道他的运行情况。 . {! z; y8 \! U: E; w; j7 K+ N
6 M% _* c& R, |' d
在TThread的 OnTerminate事件中做线程的清除工作。他不是线程运行的一部分。 2 E( t5 D$ f) }0 {! P
而是主VCL线程的一部分。所以在其中不能访问Thread的局部变量(如 int __thread i) - G3 _, P8 u! R& {0 z5 L/ c* @9 ?
你可以把清楚代码写在这里,不用管现在在EXCUTE()方法执行到了哪个地方。
' ~! }4 E4 o3 H& E0 k+ _* B这么看起来有点类似于C++里的 finally 块的作用。 - M8 ^1 S' g5 g0 x
! k( a1 D5 u5 F5 b0 G2。TEvent很重要。实现线程的同步。WaitFor(int Timeout)功能类似于
# ?; n' i* J' G6 t. E& {3 iWINDOW API WaitforSingleObject().返回值包括:
+ Y1 h- p4 _! [ l A& i: e其中参数Timeout可以设为INFINITE表示永久等待,但这样,程序很容易死在这里。 - X4 c/ l+ _. N4 q! B; L
( v7 m0 N- @9 N
wrSignaled 该事件发生(成功返回). 7 M7 ]" D% X% @3 C/ z" x
wrTimeout 等待超时.
( g: j" p& T N/ ^wrAbandoned 在该事件的超时期限到达前,该事件对象已经被毁灭了。.
& p: Y j1 X' v$ y) awrError 在等待过程中有异常产生,要知道具体产生的错误要查看 TEvent的LastError
9 h) A* f7 l4 }( f属性。 3 L$ ]; f! V9 V+ u8 E
0 v2 r; g6 V8 d- k7 S
3? TCriticalSection - F3 F- ~- O- X5 e
这个相当于WIN32编程中的临界区。
5 R B+ g' g; u/ Y. N+ l在多线程编程中,多个线程需要访问同一个公用变量的时候。
( @9 P" L! n) v4 J7 Z # I6 C: }4 ]/ X* F! s
来保证访问的正确性。对公用变量访问的代码写在Enter();和Leave()之间。
2 Z2 t1 l# N$ ^: _, e# _2 c( z比如有个公用变量 Count; 2 Z6 k9 ~8 A) t% N
以下代码 :
2 c, ~ N/ [& q! ]+ {6 LTCriticalSection * pSection=new TCriticalSection(); . X3 V3 v* Y# i# W( x6 k+ s
pSection->Enter();
% ]# N! u% p7 s7 b8 G Count++;
- M. `/ ^" ]5 ]: j: t# f pSection->Leave(); 9 E( h3 ?) g. O) a' b; Z
delete p; 4 g. o9 y, M' j/ N2 h9 y9 b2 I, K0 G
/ R& G" i+ |$ @1 D+ T+ G+ U6 e0 e
Enter()方法进入临界区,对其中的公用变量加锁。 5 U& f# _( p+ h- B! x5 q
Leave()方法离开临界区,对其中的公用变量解锁。
* n! ]& ]" S2 ]% O
& f a$ T% `/ O) R/ s+ b$ O
! X4 J! H4 _( }- T4.TMultiReadExclusiveWriteSynchronizer ( w1 O }' K0 i& p
用来处理类似于多个生产者和多个消费者的问题。这里的消费者是指3 @: u7 }0 Y7 j% a, H r4 K
对公用变量进行读操作的线程。7 ^- e& s$ {* s1 }# c1 ^5 B m( C
生产者是对公用变量进行写操作的线程。</P>9 K- m# k% q! ]* Z+ i# a
< >四个方法。
/ q( t9 L1 w; v9 X BeginRead$ H" D _- T8 C* N
EndRead2 U U- F# k# r$ Z6 k
这两个方法用于消费者。
. v: Z8 S" Q* \- A6 x8 w8 N BeginWrite
5 X; o! [. w, `) u" s5 D* U9 \ EndWrite/ E4 A, T* U: N
这两个方法用于生产者。</P>7 Q. }9 [! K3 j. i" a0 r7 v
< >使用的时候就是要把这个TMutiReadExclusiveWriteSynchronizer 定义一个全局变量。
3 @9 [+ ]. {2 L D# O& e# S- Z7 f然后在其他线程中访问他。</P>, d( \, K5 i4 i6 L
' g7 n8 B2 j8 @% m0 M/ Y5 e
< >
/ w, i/ \1 G) ?8 |8 K* A4 Q </P> |
zan
|