|
Вопрос # 3 043/ вопрос открыт / |
|
Здравствуйте!
Имеется прога выполняющая сетевые запросы в отдельном потоке, а в случае ошибки соединения - текст ошибки надо передать в Balloon-подсказку в трей. Все бы хорошо, но при возникновении ошибки balloon в трее начинает высвечиваться в бесконечном loop'е и избавится от него можно только завершением процесса проги. Юзаю компонент Indy HTTP.
подозреваю, что я не совсем правильно передаю строку через PostMessage..просто поискав в сети, нашел только этот пример (рабочий
Приложение: Переключить в обычный режим- type
- PMsgStrRec=^MsgStrRec;
- MsgStrRec=Record
- Str: String;
- end;
- ...
- try
- html := HTTP.Get(URL);
- except
- on E: EIdException do
- begin
- New(pMsg);
- pMsg^.Str := E.Message;
- PostMessage(Application.MainForm.Handle,MESS,2,integer(pMsg));
- Exit;
- end
- else Exit;
- end;
-
- ...
- 2:
- begin
- pMsg := PMsgStrRec(Msg.LParam);
-
- tray.BalloonFlags := bfError;
-
- tray.ShowBalloonHint;
- Dispose(pMsg);
- end;
- ...
 |
Вопрос задал: InoX (статус: Посетитель)
Вопрос отправлен: 25 июля 2009, 18:43
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
