Разработка многопоточных приложений. Рудалев В.Г - 12 стр.

       4. С ин хро н изация п о то ко в

         К ак уж е уп оминалось, п ри доступ е п отоков к об щ им ресурсам (г лоб аль-
ны м данны м, одному итому ж е ф айлу, DLL, коммуникационному п орту ит.п .)
возникаю т коллизии. П редотвратить коллизии мож но с п омощ ью различны х
средств синхронизации. Ч ащ е вс         ег о для этой цели ис п ользую тся: кр и т и чески е
секци и , и склю ча ю щи е сем а ф ор ы (м ью т ексы), обычн ые сем а ф ор ы, событ и я. В се
уп омянуты емеханизмы основаны наб локировкедоступ ак ресурсу, п окаэтотре-
сурсзаняткаким-либ о п отоком.
         Рассмотрим б олее п одроб но механизм критической секции, ог раничив-
ш ись ег о реализацией наб азеф ункций API Win32 (как об ы чно, в Delphi имею тся
аналог ичны е классы -надстройки). У часток кода, содерж ащ ий п отенциально
оп асны е об ращ ения к ресурсу, п омечается как « критическая с        екция». П еред вхо-
дом в критическую с      екцию п роверяется г лоб альная зап ись тип аTRTLCriticalSec-
tion (структуру зап исисм. в ф айле ..\borland\delphi4\source\rtl\win\windows.pas), в
которой отмечено, вы п олняется ликритическая секция в данны й моментвремени
каким-либ о друг им п отоком. Е слисекция незанята, п оток доп ускается к раб оте.
         В началекритической секциинеоб ходимо вы звать п одп рог рамму API

       procedure EnterCriticalSection (sect:TRTLCriticalSection);

        которая п роверяетсостояниезап исиsect: TRTLCriticalSection и, еслив за-
п исисекция п омеченакак занятая друг им п отоком, п риостанавливаеттекущ ий
п оток, п окакритическая секция неосвоб одится.
      В концекритичес   кой секциивы зы вается п одп рог рамма

       procedure LeaveCriticalSection (sect:TRTLCriticalSection);

         которая делаетп ометку в зап иси, что критическая секция своб одна, идру-
г ой п оток в соответствиисп риоритетом п олучаетквантвремениивходитв кри-
тическую секцию .
         П редварительно п еред исп ользованием необ ходимо п роинициализировать
зап ись sect: TRTLCriticalSection сп омощ ью п роцедуры

       procedure InitializeCriticalSection(Sect);

       ап ризаверш енииисп ользования – удалить:

       procedure DeleteCriticalSection(Sect1);

       В рассматриваемом ниж еп римереп ервая оп ерация вы п олняется в об ра-
б отчикесоб ы тия создания ф ормы OnCreate, авторая – в об раб отчикесоб ы тия
удаления ф ормы изп амятиOnDestroy.


12