Главная страница
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.046 c
2-1128408905
Ярослав
2005-10-04 10:55
2005.10.30
Не работает запрос?!!


14-1128934701
Anatoly Podgoretsky
2005-10-10 12:58
2005.10.30
Анти-антивирусы


1-1128930375
Leonid
2005-10-10 11:46
2005.10.30
Проблема с библиотекой qtintf70.dll


14-1127661858
Eraser
2005-09-25 19:24
2005.10.30
Вторая бета-версия Voice Connector a


1-1128323400
lexandr
2005-10-03 11:10
2005.10.30
RXRichEdit и рисунки