![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
No route to host [D7, WinXP]
Den © (2010-02-11 10:16:00)Здраствуйте ! Помогите решить проблему. Есть приложение, работает по сети. При старте приложения необходимо добавить в сетевую БД (Firebird) некоторые данные. Но перед добавлением необходимо убедится что сервер с БД доступен в сети. Пытаюсь сделать через пинг:
IdIcmpClient1.Host := 10.10.0.100
IdIcmpClient1.Ping();
if IdIcmpClient1.ReceiveTimeout <= 30000 then....
//вставляем запись - сервер доступен
Если выключить сеть то на строке IdIcmpClient1.Ping(); получаю ошибку "No route to host".
Данные вставляются с помощью компонентов FIBPlus. Пытался убрать пинг, и просто тупо пытаться встявлять данные, если сети нет то получаю Access violation на строке pFIBDatabase.Connected := True; что вообщем то понятно...
Может кто подскажет рабочее и грамотное решение данной проблемы
Anatoly Podgoretsky (2010-02-12 16:40:00) [1]> Den (11.02.2010 10:16:00) [0]
Глупая и не нужная идея. Ну проверил ты, получил ОК, а через миллисекунду получишь облом.
Eraser (2010-02-11 15:37:00) [2]> [0] Den (11.02.10 10:16)
этот компонент для корректной работы требует права админа, лучще использовать другой подход.
Сергей М. (2010-02-11 15:08:00) [3]
> если сети нет то получаю Access violation на строке pFIBDatabase.
> Connected := True; что вообщем то понятно
С чего бы вдруг "понятно" ?
Мне вот совершенно не понятно откуда вдруг взялось страшное AV по такому смехотворному поводу как отсутствие сети..
YurikGL (2010-02-11 14:16:00) [4]
try
pFIBDatabase.Connected := True;
except
showmessage('ошибка подключения к базе');
halt;
end
Дмитрий Белькевич (2010-02-11 12:03:00) [5]Эпидемия прям.
brother (2010-02-11 11:40:00) [6]ща начнется ;)