Доспуп к свойтвам Internet Explorer (СОМ) при работе с SHTTP, а работа с СОМ при использовании потоков

← →
Digitman (2002-01-17 13:34) [11]

>Ramid

1. Не надо никаких вызовов метода Terminate() в твоей реализации метода Execute() - реализовано сквозное безусловное выполнение кода, циклы никакие не используются и с завершением работы метода завершается (ну, с некоторой долей условности - см.реализацию класса TThread в модуле classes) и сам отработавший поток как объект ОС.
А для того, чтобы был автоматически разрушен и поток как VCL-объект (тот самый созданный тобой экземпляр класса TSubmit), достаточно сделать так :

TSubmit = class(TThread) ... public ... constructor Create(CreateSuspended: Boolean); ... end; constructor TSubmit.Create(CreateSuspended: Boolean); begin inherited Create(True); // создаем приостановленный поток ... // взводим флаг автоматич.разрушения экземпляра после завершения создаваемого им потока как объекта ОС FreeOnTerminate:= True; ... // если параметр конструктора был True - стартуем поток немедленно if CreateSuspended then Resume; end;

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

with form1.label2 do if V.Visible then Caption := "true" else Caption := "false"

Азы Паскаля !! А ты COM-объектами занялся ...

Доспуп к свойтвам Internet Explorer (СОМ) при работе с SHTTP, а работа с СОМ при использовании потоков Найти похожие ветки