| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Обработать ошибку пинга [D7, XP]
Tornado © (2009-11-18 08:51:00)Подскажите пожалуйста, моя программа при запуске пингует удаленный компьютер (в процессе работы она должна обмениваться данными с ним). Если по каким-то причинам комп на котором установили программу не подключен к сети или сеть не работает (в нашей огромной конторе такое к сожалению бывает, потом спохватятся, сеть настроят) то прога выдает ошибку "Socet Error.No route to host" что вообщемто и понятно. Вопрос в том как бы "красиво обработать" эту ошибку чтобы не получать это сообщение, а допустим в статусной строке писать "Нет соединения с сревером". А то юзеры очень пугаются таких ошибок :)
kyn66 (2009-11-18 09:29:00) [41]Удалено модератором
kyn66 (2009-11-18 09:26:00) [42]Удалено модератором
kyn66 (2009-11-18 09:25:00) [43]
> Anatoly Podgoretsky © (18.11.09 09:06) [1]
> > Tornado (18.11.2009 08:51:00) [0]Красиво, это когда
> будет всплывать видео с голой теткой, которая будет томно
> говорить,
Да, АП как всегда в своем репертуаре, вместо вразумительного ответа ехидное сравнение... Я думаю StatusBar.SimpleText := 'Нет соединения с сревером';и 0-классник додумался бы написать. А вот человеку нужно было посоветовать перехватить системную ошибку и вывести своим сообщением... чтобы красиво было
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnException := MyExcept;
end;
Procedure TForm1.MyExcept(Sender:TObject; E:Exception);
begin
If E is E....Errorthen
MessageDlg('Красиво обрабатываю ошибку', mtInformation, [mbOk], 0)
else
{ если это не та ошибка, которую вы ищете,
передайте на обработку дальше }
end;
Написать конкретный класс ошибки.
Anatoly Podgoretsky (2009-11-18 09:06:00) [44]> Tornado (18.11.2009 08:51:00) [0]
Красиво, это когда будет всплывать видео с голой теткой, которая будет томно говорить, Торнадик, а сеть то упала, ты бы не мог ее поправить.
Ну и не шутливый ответ, с выводом в статусную строку
StatusBar.SimpleText := 'Нет соединения с сревером';
| |
Страницы: 