Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

No route to host   Найти похожие ветки 

 
Den   (2010-02-11 10:16) [0]

Здраствуйте ! Помогите решить проблему. Есть приложение, работает по сети. При старте приложения необходимо добавить в сетевую БД (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; что вообщем то понятно...

Может кто подскажет рабочее и грамотное решение данной проблемы


 
brother ©   (2010-02-11 11:40) [1]

ща начнется ;)


 
Дмитрий Белькевич   (2010-02-11 12:03) [2]

Эпидемия прям.


 
YurikGL ©   (2010-02-11 14:16) [3]

try
pFIBDatabase.Connected := True;

except
showmessage("ошибка подключения к базе");
halt;

end


 
Сергей М. ©   (2010-02-11 15:08) [4]


> если сети нет то получаю Access violation на строке pFIBDatabase.
> Connected := True; что вообщем то понятно


С чего бы вдруг "понятно" ?
Мне вот совершенно не понятно откуда вдруг взялось страшное AV по такому смехотворному поводу как отсутствие сети..


 
Eraser ©   (2010-02-11 15:37) [5]

> [0] Den   (11.02.10 10:16)

этот компонент для корректной работы требует права админа, лучще использовать другой подход.


 
Anatoly Podgoretsky ©   (2010-02-12 16:40) [6]

> Den  (11.02.2010 10:16:00)  [0]

Глупая и не нужная идея. Ну проверил ты, получил ОК, а через миллисекунду получишь облом.



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.073 c
3-1282759487
newman
2010-08-25 22:04
2013.03.22
Выборка данных в зависимости от пользователя MS SQL


15-1346949988
Опять я
2012-09-06 20:46
2013.03.22
Как вывести ВЕКТОРНУЮ линию в Delphi?


2-1340098118
leklerk
2012-06-19 13:28
2013.03.22
Как сделать, чтобы приложение висело?


15-1344534989
Прогер
2012-08-09 21:56
2013.03.22
Как поместить в Clipboard любой файл?


3-1278415327
kyn66
2010-07-06 15:22
2013.03.22
Ошибка на одном из трех компов