多线程安全问题

（　Ｄｅｌｐｈｉ　ＶＣＬ皓　日囹囡目目回圆　）　安徽大学　胡学联　ｐｒｏｔｅｃｔｅｄ　多线程程序设计对于多效Ｗｉｎｄｏｗｓ　程至少拥有一个执行线程，这个线程被称　用户和程序员来说，是一个新的技木．因　作主线程）；其它线程要使用这些ＶＣＬ构　此在Ｗｉｎｄｏｗｓ　９５以前的Ｗｉｎｄｏ￣并不支　ｎｒ０ｃｅｄｕＩｅ　Ｅｘ￣ｕｔｅ：ｏｖｅｒｒｉｄｅ；　ｐｒｏｃｅｄｕｒｅ　ＤｉｓＬｏｏｐ；　件，必须使用Ｓｎｃｙｈｒｏｎｉｚｅ方法，通过传递　持线程的概念（Ｗｉｎｄｏｗｓ　ＮＴ除外）。当　使用了ＶＣＬ构件的方法，就可以避免多线　ｐｕｂｌｉｃ　Ｗｉｎｄｏｗｓ提供了对线程的支持时，将线程　程对全程ＶＣＬ构件的冲突（ｓｖｎｅｈｒｏｎｉｚｅ从　和Ｄｅｌｐｈｉ语言联系起来时又会提出这样　ｃ０ｎ乩ｒｕｃｌ０ｒ　Ｃ　ｒｅａｔｅｆＥｄｉｔ：ＴＥｄｉｔ：Ｍａｘ：ｌｎｔｅ—　主线程内调用你指定的方法＋使得你能自　ｇｅｒ）；　ｃａｄ；　的问题：在Ｄｅｌｐｈｉ中进行多线程编程时，　由地使用ＶＣＬ构件的特性和调用ＶＣＬ构　　要使用哪些ＶＣＬ构件，这是安全的吗？换　件的方法）。ｉｍｐｌ￣ｅｍａｔｉｏｎ　言之，ＤｅｌＤｈｉ　ＶＣＬ多线程是安全的吗？　回答这个问题似乎不是一件容易的　２　ＶＣＬ的线程安全性　ｓｖｎｃｈｒｏｎｉｚｅｄ方法允许使用全程ＶＣＬ　｛ＭｙＴｈｒｅａｄＩ　ｃ０口ｓｔ工Ｉ】ｃＩｎＴ　Ｍ　ｎ　ｅＢｄ　Ｃｒｅａｔｅ（Ｅｄｉｔ：ＴＥｄｉｔ：Ｍ丑ｘ：　Ｉｎｔｅｇｅｒ），　ｂｅ　ｎ　事。有人说，ＤｅｌＩｐｈｉ　ＶＣＬ实际上是多线程安　构件以及调用这些构件的方法。如果我们　全的，有的人则意见相反。为了理解这个　的应用程序中加进了多线程，那我们一定　问题，为了我们能够在多线程应用程序设　要能安全地访问所有ＶＣＬ构件并且调用　计中放心地使用ＶＣＬ，我们有必要深人剖　它们的方法。这时，我们唯一要做的工作　析一下Ｄｅｌｐｈｉ中的线程类Ｔｔｈ￣ｓｄ。　是将一个定制的方法（使用了ＶＣＬ构件的　方法）传递给Ｓｙｎｃｈｒｏｎｉｚｅ。因此．我们可以　ｉｎｈｅｆｉｌｅｄ　Ｃａ＇ｃａｒｅ（Ｆａｌｓｅ）　ＡＥｄｈ：＝Ｅｄｉｔ；　ＭａｘＬｏｏｐ：＝Ｍ日ｘ：　ＦｒｏｅＯｎＴｅｒｍｉｎｍｔｅ：＝Ｔｒｕｅ　ｅｎｄ；　１　线程类Ｔｔｈｒｅａｄ　线程类Ｔｔｈｍｎｄ使得可以在Ｄｅｌｐｈｉ应　说ＶＣＬ不是多线程安全的（亦即．你不能　用程序中实现多线程执行。Ｔｔｈｒｅａｄ类是　同步地访问在两个线程的Ｅｘｅｃｕｔｅ方法中　　我们只是有一种办法确保　Ｔｏｂｊｅｃｔ类的直接派生类。与其它大多数　的ＶＣＬ构件）ＤｅｌｐＩＩｉ类和构件不同的是，不能在程序中　我们用一种多线程安全的方式使用ＶＣＬ，　直接使用该对象．而必须从Ｔｔｈｒｅａｄ类产生　即传递一个定制的方法给　ｎｃｈｒｏｎｉｚｅ过　一ｐｒｏｃｅｄ￣ｅ　ＭｙＴｈｒｅａｄ．ＤｉｓＬｃｏｐ　ｂｅ　ｎ　ＡＥｄｉｔ　ｔｅｘｔ：＝ｌａｔｔｏＳｔｒ（Ｃｕ￣ｖｔＬｏｏｐ）　ｅｎｄ；　个新的派生类，并对需要使用的方法进　程，从那里使用全程ＶＣＬ构件。　结论是：ＶＣＬ本身不可能是线程安全　使用它１　ｐ￣ｅｄｕｒｅ　ＭｙＴｈｒｅ￣．Ｊ￣．ｅｃｕｔｅ；　ｖａｒ　行重写，以重载（ｏｖｅｒｒｉｄｅ）Ｔｔｈｒｅａｄ类的方　Ｓ－ｊｎｃｂ２ｏｎｉｚｅ（同步／镇定）。　１，１　Ｅｘｅｃｕｔｅ方法　Ｉ：Ｉｎｔｅｇｅｒ；　ｂｅ　ｎ　法　两个重要的方法是Ｅｘｅｃｕｔｅ（执行）和　的＋但我们能够用一种线程安全的方式来　Ｉ：＝０ｔｏＭａｘＬｏｏｐ　ｄｏ　ｂｅ　ｎ　ＣｕｒｒｅｎｔＬｏｏｐ：＝ｌ：　３　实例一则　创建两个执行５　０００次循环的线程。　Ｅｘｅｃｕｔｅ是这样一种方法，其中包含　了线程要执行的代码，亦即．它实现线程　每个线程在执行循环的每次叠代后，将显　的功能；因此，你肯定要在派生的线程类　示循环的次数。本程序中用户通过单击　中重写该方法。在语义上，Ｅｘ￣ｕｔｅ方法返　Ｓｙｎｃｈｒｏｎｉｚｅ（ＤｉｓＬｏｏｐ）；　ｉｆ　Ｔｅｒｒａｉｎａｔｅｄ　ｔｈｅｎ　Ｅｘｉｔ；　ｅｎｄ；　ｅｎｄ；　ｅｎｄ　８ｔｌＬｔｔ按钮来开始两个线程的执行。当运行　回时，线程执行终止，释放线程堆栈，并涌　程序时，便发现这两个线程是并发执行　用ＯｎＴｅｒｍｉｎａｔｅ事件驱动程序（如果有的　的。程序代码如下：　话）。Ｋ－￣ｅ＊ｕｔｅ方法必须周期性地检测Ｔｅｒ－　ｍｉｎａｔｅｄ特性．如果为Ｉｒａｅ，Ｅｘｅｃｕｔｅ方法必　须立即返回。如果线程返回失败＋表明调　ｗｉｔ　ＴｈｒｅａｄＵｎＪｌ；　ｉｎｔｅｒｌａｃｅ　ＵＳｅ　注意，这里ＤｉｓＬｏｏｐ方法使用了ＶＣＬ　构件ＴＥｄｉｔ．因此绝不能由该线程直接调用　它；而是将它传递给ｓｙｎｃｈｒｏｎｉｚｅ方法，通　过Ｓｙｎｃｈｒｏｎｉｚｅ来调用ＤｉｓＬｏｏｐ方法，从而　避免了多线程冲突　用Ｔｅｒｍｉｎａｔｅ方法时，线程未能终止。　１．２　Ｓ　ｃｈｒｏ　方法　Ｃｌａｓｓｅｓ、ＳｌｄＣｌｄｓ，ＳｙｓＵｔｉｌｓ；　ｔｙｐｅ　ｓｙｎｃｈｒｏｎｉｚｅ过程有一个ＴｔｈｒｅａｄＭｅｔ—　’　Ｍｙ＇ｆｈｒ￣ｕｔ＝ｅｌａｓｓ（Ｔｔｈｔ￣ｅａｄ）　ｐｒｉｖａｔｅ　４结束语　在使用Ｄｅｌｐｈｉ作多线程程序设计时，不　ｈｏｄ类型的参致，该参数是一个不带参数　的方法，用于指定在线程对象中的方法。　在Ｄｅｌｐｈｉ多线程编程中．各种ＶＣＬ构件都　是临界资源．只能由主线程使用（一个进　ＡＥｄ　Ｌｔ：ＴＥｄｉｔ；　Ｍｅｘｌ￣ｏｐ：Ｉｎｔｅｇｅｒ；　Ｃｕ￣ｎｔＬｏｏｐ：ｉｎｔｅｇｅｒ；　可避免的要经常使用ＶＣＬ构件，只要能蜉对　多个线程同步使用的构件给出如上讨论正确　自辱使用方法