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

我的地盘我做主
该用户从未签到
 |
< >最近在写一个程序用到了多线程,所以对CB下的多线程有一定的学习。
6 b/ J! Z1 ~' N5 A# ^$ [4 c现在把自己的一些心得讲一下。水平有限,写的很粗略,请大家见谅。</P>
! j& L* w4 @% V# l< >CB相对于VC来说,在CB下写多线程程序是很简单的。不仅是VCL中有TThread这个类。封装了那些关于多线程的WINDOW API。我觉得更方便的是他提供了
) U6 o* w% ?% p. y" s Q直接访问主VCL线程中对象的能力。可以很容易的和主线程中的窗体,控件( G7 Y% ^/ M/ v8 F# U) L
打交道。和单线程的方式没有太多区别。只是在有多个线程都要访问主线程* v: z" _' h3 U5 f6 ]9 y! q
中的对象(比如访问同一个窗体上的StringGrid).只要用Thread的Synchronize方法来调用那段访问主VCL线程的代码(具体请看帮助),我们就不用担心访问冲突的问题了。而且对于多线程的同步和互斥,CB也对WINDOW 编程中那些机制进行了封装。比如对临界区CriticalSection封装为TCriticalSection.事件Event封装为TEvent.这些类相当简单好用。+ B; D r; T4 @8 f3 C8 ^
下面就是我觉得比较重要的几点,供大家参考.</P>) e6 M( e4 I2 ?% v
< >
' r# _+ r# f( P1。TThread的WaitFor方法。是等待一个线程返回。其返回值在这个线程里可以任意设定。以便在该线程返回的时候让调用他的线程知道他的运行情况。 @# N& @& B9 Y6 U d6 I. k8 A4 L
6 S: J. D: G6 m3 o& | h( ^9 O在TThread的 OnTerminate事件中做线程的清除工作。他不是线程运行的一部分。 . u% _! {- H; _) D% _
而是主VCL线程的一部分。所以在其中不能访问Thread的局部变量(如 int __thread i)
" J, F( z+ Y5 P1 z* y7 {% h. f; t你可以把清楚代码写在这里,不用管现在在EXCUTE()方法执行到了哪个地方。 5 J7 E2 @ }* q# e! U+ @. i. b
这么看起来有点类似于C++里的 finally 块的作用。
3 }& N) S. C" |5 t+ O4 J
% J# H+ q0 H; V. x/ _7 J2。TEvent很重要。实现线程的同步。WaitFor(int Timeout)功能类似于
5 B4 `; W# j0 C% c; |WINDOW API WaitforSingleObject().返回值包括:
' \# A+ j* P1 o. j2 u其中参数Timeout可以设为INFINITE表示永久等待,但这样,程序很容易死在这里。
* v- n6 D# V* C! j. a, \. S
4 v$ t& Q2 Q1 a! R) ywrSignaled 该事件发生(成功返回).
( Q" B- P, a, t, qwrTimeout 等待超时.
5 V9 q) u6 g" H+ O( b$ P+ ?+ L \wrAbandoned 在该事件的超时期限到达前,该事件对象已经被毁灭了。.
& |) U7 y2 O& x# AwrError 在等待过程中有异常产生,要知道具体产生的错误要查看 TEvent的LastError
* G. Y3 Z2 c8 Q+ `. k* W8 ?属性。
7 U* s. ?: N, n ) k. J/ V9 h1 k) R
3? TCriticalSection * d4 G* x9 q, F/ {6 C8 n" |
这个相当于WIN32编程中的临界区。
! W9 T. S' Y, G" t在多线程编程中,多个线程需要访问同一个公用变量的时候。 8 S+ x/ E3 H& x# Y$ T
1 u6 N- q6 u' W7 V来保证访问的正确性。对公用变量访问的代码写在Enter();和Leave()之间。 + g4 L! u1 z: b/ b8 y
比如有个公用变量 Count;
# D2 @7 F7 @8 ^6 p( J以下代码 : M- O" S2 r9 q- x; t' \2 I" }
TCriticalSection * pSection=new TCriticalSection(); " w8 i/ h, V9 E @% X' y. h
pSection->Enter(); 1 ^* z$ P# A3 I. k4 K& Z& d
Count++;
2 I0 o: x2 L) }! s; f. F0 i1 _ pSection->Leave(); 9 p$ d+ ]" n9 W9 u' u# ?6 H3 I
delete p; O. x7 u2 ~! v! B: C$ v
1 ^6 N3 s( a. \ ]" L0 g" A, Z
Enter()方法进入临界区,对其中的公用变量加锁。 / { n8 v; [2 ]& ]+ U3 w
Leave()方法离开临界区,对其中的公用变量解锁。 0 k+ \* d5 G, z/ B- k, W! y$ s1 y5 b
& G2 k9 l3 l9 U8 `5 n n
% f( U! o' Z& z$ ^$ H4.TMultiReadExclusiveWriteSynchronizer * W3 M. ^6 G' I- G- ^
用来处理类似于多个生产者和多个消费者的问题。这里的消费者是指
5 v/ {3 j0 r- I1 i) t: d& c对公用变量进行读操作的线程。
% d: i* _ N! S' Q生产者是对公用变量进行写操作的线程。</P>
; ]9 x9 m. V) ~2 |6 l3 \* h< >四个方法。* z; h. U# p2 w, g
BeginRead
4 p. H6 V5 h0 `1 N6 ^; I! k" P EndRead, Y% e( J; Y7 R9 U! I' G5 v( n3 p; d7 e
这两个方法用于消费者。
y, n I7 y3 W. k: T4 l) n BeginWrite% W9 n: d9 A* _8 F/ H# v
EndWrite
; S/ V ]5 b8 x- h% Y& m# Q. x1 s这两个方法用于生产者。</P>% s1 \* G% f+ {: }5 O4 C
< >使用的时候就是要把这个TMutiReadExclusiveWriteSynchronizer 定义一个全局变量。% M1 c7 G9 T1 M! f/ {
然后在其他线程中访问他。</P>
5 z$ S) c* [1 _) q7 s |
( U" E5 O# [/ }9 G1 k< >
5 c s: `, X8 `" o) X! B8 e+ N7 o </P> |
zan
|