Скачать: CL | DM;

Ожидания события от компанента в ThHDM.Execute   Найти похожие ветки 

← →
axx   (2005-08-29 10:53) [0]

Господа дайте добрый совет.
Есть у меня TThread в котором используется компонент TMagRasCon. В этом TThread"e должно происходить dial-up"ое соединение.
Проблема в следующем TMagRasCon.ConnectEx - запускает дозвон а вот результат уже по событию копонента TMagRasCon.OnStateEvent. Результат я получаю и пишу в  Property RAS_STATE. Подскажите как мне грамотно оформить Execute чтобы дождаться результата конекта.

type
 ThHDM = class(TThread)
...
 protected
   FRAS_STATE:Smallint;
 Published
   Property RAS_STATE:Smallint Read FRAS_STATE write wFRAS_STATE;

procedure ThHDM.wFRAS_STATE(value:Smallint);
begin
//Значение value я присваиваю сам в обработчике TMagRasCon.OnStateEvent
FRAS_STATE:=value;
case FRAS_STATE of
 1:  //Connected
 2:  //Disconnected
 3:  //Dialing
 4:  //Error
end;
end;

procedure ThHDM.Execute;
begin
TMagRasCon.ConnectEx(...)
А вот тут нужно подождать события от TMagRasCon и дальше по ситуации.

---

← →
axx   (2005-08-29 13:15) [1]

Вопрос не актуален - TEvent.
ЗЫ Вроде заработало все как задумывалось.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.024 c