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

низакры ть. П ринаж атиикноп ки« Создать п оток» окно п рог раммы б удет вести
себ я об ы чны м, « друж елю б ны м» об разом.
        2. Д ля вы вода строки текста вместо « нап раш ивавш ихся» визуальны х
средств Delphi исп ользовалась ф ункция API TextOut. Д ело в том, что п одавляю -
щ ее б ольш инство визуальны х комп онентов Delphi стаб ильно раб отаю т только
внутри г лавног о п отокап рилож ения. И склю чением являю тся комп оненты для
доступ ак б азам данны х иг раф ические классы , раб отаю щ иесTCanvas (сп ослед-
ниминеоб ходимо ис      п ользовать б локировкихолстаLock иUnLock [4]). Е слиж е
б ез комп онентов Delphi внутридоп олнительны х п отоков об ойтись нельзя, то для
создания таких п отоков рекомендуется исп ользовать сп ециализированны й клас   с
TThread, входящ ий в б иб лиотеку Delphi.

       3. Класс TThread

        К лассTThread инкап сулирует ф ункции API п рог раммирования п отоков.
Е г о основны мип реимущ ествами являю тся удоб ство исп ользования, свойствен-
ное всем клас  сам-надстройкам, и наличие сп ециальног о методаSynchronize для
корректног о исп ользования внутрип отоков визуальны х комп онентов VCL Del-
phi.
С во йства и м ето ды класса TThread
 constructor Create Создаетп оток. Е слиарг ументимеетзначениеFalse,
 (CreateSuspensed:          созданны й п оток немедленно начинаетвы п олнение
 Boolean);                  (уп равлениеп ередается методу Execute) . Е слиTrue
                            – п оток ож идаетвы зоваметодаResume
 destructor De-             Заверш аетп оток иосвоб ож даетвсерес     урсы , им за-
 stroy: override;           няты е. В ы зы ваетс
                                               я автоматическип ризаверш ении
                            методаExecute
 procedure Resume;          В озоб новляетп оток п ослеп риостановки
 procedure Suspend; П риостанавливаетп оток
 property Sus-              П ризап исиTrue/False п риостанавлива-
 pended: Boolean;           ет/возоб новляетп оток. П ричтениип оказы вает, не
                            п риостановлен лип оток
 procedure Termi-           Ус танавливаетсвойство Terminated в True. П риис      -
 nate;                      п ользованииэтог о методадля заверш ения п отока
                            метод Execute долж ен вклю чать в с  еб я п роверку
                            свойстваTerminated (см. лаб . раб . № 2).
 property Termi-            П оказы ваетTrue, еслиранееб ы л вы зван метод Ter-
 nated: Boolean;            minate.
 function WaitFor:          П риостанавливаеттекущ ий п оток до заверш ения
 integer;                   заданног о п отокаивозвращ аеткод заверш ения.
                            Н ап ример, внутрип отокаT1 вы зов
                            code:=T2.WaitFor п риостанавливаетT1 до заверш е-
                            ния T2
 property Handle:           Д ескрип тор п отока
 THandle;

                                                                                 7