Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1191790 Wed, 26 Jul 2006 04:52:59 +0000 No route to host. https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1191790 всем кто подсказал в репу]]> mildarf Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1186989 Fri, 21 Jul 2006 13:13:05 +0000 No route to host. https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1186989 Цитата .failer @
а у TIdIcmpClient какого-нить события, связаного с ошибками разве нет?
В том то и дело, что нет. Ошибки ловить приходится только try except на коменде Ping]]> Testudo Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1186334 Fri, 21 Jul 2006 08:59:41 +0000 No route to host. https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1186334 Smike Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1186272 Fri, 21 Jul 2006 08:40:13 +0000 No route to host. https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1186272 а у TIdIcmpClient какого-нить события, связаного с ошибками разве нет?]]> .failer Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1186147 Fri, 21 Jul 2006 07:20:39 +0000 No route to host. https://forum.sources.ru/index.php?showtopic=149014&view=findpost&p=1186147
    ICMP := TIdIcmpClient.Create(nil);
    ICMP.Host := Host;
    ICMP.TTL := 128;
    ICMP.ReceiveTimeout := 3000;
    ICMP.Ping;
    If ICMP.ReplyStatus.FromIpAddress <> ICMP.Host Then
    Begin
    ICMP.Free;
    ShowMessage('**Невозможно соединиться с сервером**');
    Close;
    Exit;
    End;
    ICMP.Free;

всё хорошо работает, НО если отключить сетевую карту и запустить приложение пишет:
Socket Error # 10065
No route to host.

Подскажите, как мне исправить эту багу, то есть определить, если ли вообще возможность пинговать сервер, и вывести сообщение "**Невозможнен роутинг на сервер**"???]]> mildarf Delphi: Сетевое программирование