Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.063 c
15-1353503118
Firefox
2012-11-21 17:05
2013.03.22
перевести фразу на английский


8-1227079093
Andrey_ka
2008-11-19 10:18
2013.03.22
как заставить окно перерисовываться?


4-1245173597
Макс РВС
2009-06-16 21:33
2013.03.22
Отключение хард диска по букве


15-1352705908
0xDEADBEEF
2012-11-12 11:38
2013.03.22
выбор субд


2-1332423903
Cobalt
2012-03-22 17:45
2013.03.22
AnsiString[128] - "; Expected ; but received [ at line"





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский