Главная страница
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.039 c
2-1128627955
Молодой
2005-10-06 23:45
2005.10.30
MS Access&D7...... Ошибка - несовместимость типов...


14-1128921696
Ega23
2005-10-10 09:21
2005.10.30
С днем рождения! 10 октября


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


14-1129023517
dr Tr0jan
2005-10-11 13:38
2005.10.30
Помогите вспомнить название и исполнителя композиции.


14-1128660357
syte_ser78
2005-10-07 08:45
2005.10.30
Вопрос к Харьковчанам