Главная страница
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.027 c
4-1125065609
heady
2005-08-26 18:13
2005.10.30
получить последний(текущий)адрес из открытого IE


1-1128392925
Старик
2005-10-04 06:28
2005.10.30
Размер буквы


1-1128332198
andrey2
2005-10-03 13:36
2005.10.30
Макро-плейер


14-1128711764
Сергей А.
2005-10-07 23:02
2005.10.30
Посоветуйте небольшую почтовую программу


2-1128440038
quadreonik
2005-10-04 19:33
2005.10.30
Отображение данных в DBGrid