delphi多线程访问公共变量

Posted on 2010-12-22 11:15  严武  阅读(2313)  评论(0编辑  收藏  举报

一、用TCriticalSection类来阻塞。(ps:这里的咚咚都涉及Win32编程,我对这些不了解,先掌握如何运用吧。)这个有点类似临界区。要Uses SyncObjs单元。

1、声明一个全局的TCriticalSection类的实例。

2、建立TCriticalSection.Create,最好是在程序onCreate里面,这样才能保证对所有线程进行控制。

3、在全局变量访问前用TCriticalSection.Acquire或TCriticalSection.Enter来阻塞。

4、访问完毕,用TCriticalSection.Release或TCriticalSection.Leave来解除阻塞。

5、在恰当的位置进行TCriticalSection.Free,一般在程序的onDestroy里。

二、用TMultiReadExclusiveWriteSynchronizer类来阻塞。可以写成TMREWSync。这个类在SysUtils单元里。(ps:天哪,那么长的单词我第一次见)。TMultiReadExclusiveWriteSynchronizer和TCriticalSection不同的是,它允许多个线程同时读一个变量,只是在写一个变量时才需要事先阻塞,因为只有多个线程同时写一个变量才有可能造成冲突。

使用TMREWS的优势是它允许多线程的并发读取,同时又与CriticalSection一样允许读的时候只有一个线程访问。劣势是TMREWS用起来要费更高的代价。

1、声明一个全局的TMultiReadExclusiveWriteSynchronizer类的实例。

2、建立TMultiReadExclusiveWriteSynchronizer.Create。

3、每个线程在读一个全局变量前要先调用该类的BeginRead()来检查是否有其他线程在写这个变量。如果有,就等待,直到其他线程不再写这个变量才返回。当读好后,调用EndRead()来结束。

         如果一个线程要写这个变量,必须先调用BeginWrite()来检查当前是否有其他现成在写这个变量并且所有线程是否都调用了EndRead()。只要有一个线程正在写这个变量,或者有一个线程还没有调用EndRead(),BeginWrite()将一直等待。当线程写完以后,必须及时地调用EndWrite(),一边其他线程可以读写这个全局变量。

4、在恰当的位置进行Free,一般在程序的onDestroy里。

 

Copyright © 2024 严武
Powered by .NET 8.0 on Kubernetes