На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! Соблюдайте общие правила форума
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Указывайте точные версии Delphi и используемых сетевых библиотек.

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

Внимание:
попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...

Полезные ссылки:
user posted image MSDN Library user posted image FAQ раздела user posted image Поиск по разделу user posted image Как правильно задавать вопросы


Выразить свое отношение к модераторам раздела можно здесь: user posted image Krid, user posted image Rouse_

Модераторы: Krid, Rouse_
  
> No route to host. , при пинге
    при запуске приложения использую такой код:
    ExpandedWrap disabled
      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.

    Подскажите, как мне исправить эту багу, то есть определить, если ли вообще возможность пинговать сервер, и вывести сообщение "**Невозможнен роутинг на сервер**"???
      хмм
      а у TIdIcmpClient какого-нить события, связаного с ошибками разве нет?
        try...except не пробовал?
          Цитата .failer @
          а у TIdIcmpClient какого-нить события, связаного с ошибками разве нет?
          В том то и дело, что нет. Ошибки ловить приходится только try except на коменде Ping
            с трай ексепт получилось =)
            всем кто подсказал в репу
            0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
            0 пользователей:


            Рейтинг@Mail.ru
            [ Script execution time: 0,0259 ]   [ 16 queries used ]   [ Generated: 14.10.25, 20:43 GMT ]