Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.10.30;
Скачать: 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 вся ветка

Текущий архив: 2005.10.30;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.047 c
14-1128953044
БарЛог
2005-10-10 18:04
2005.10.30
Телевидение через локальную сеть, как?


3-1127135003
BaxTMaH
2005-09-19 17:03
2005.10.30
Список доступных серверов в локалке


4-1125233954
Станислав
2005-08-28 16:59
2005.10.30
Фоновое окно


4-1125140770
NikNet
2005-08-27 15:06
2005.10.30
Как правельно использовать GetFullPathName?


2-1128502645
Гость22
2005-10-05 12:57
2005.10.30
Как сделать, чтоб при вводе в Edit е, после 5-го и 10-го...