Ожидания события от компанента в ThHDM.Execute [D7, Win2k]
axx © (2005-08-29 10:53:00)
Господа дайте добрый совет.
Есть у меня 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:00) [1]
Вопрос не актуален - TEvent.
ЗЫ Вроде заработало все как задумывалось.
Наверх 
ЧАТ |
Орешник |
|
