TIdIcmpClient ping

[spirit-ua]

Всем Привет!

тема заезжанная но тем не менее, код

   Result := True;
   hoost := 'bla-bla-bla';
   try
     dIcmp1 := TIdIcmpClient.Create(Self);
     dIcmp1.Host := hoost;
     try
       dIcmp1.Ping();
     except
       Result := False;
       Exit;
     end;
   finally
     dIcmp1.Free;
   end;

1. ругается что dIcmp1 не инициализирован
2. всегда возвращает истину

помогите разобраться

[xxbesoxx]

помогите разобраться

Что значит hoost := 'bla-bla-bla'; в месте эту "бла" если будет mail.ru или какой то сайт . Что вы хотите получить ? IP и порт ?

[Stilet]

ругается что dIcmp1 не инициализирован

Скрин ругани в студию

всегда возвращает истину

Ну значит Пинг идет норм.

[spirit-ua]

Сообщение от xxbesoxx

Что значит hoost := 'bla-bla-bla'; в месте эту "бла" если будет mail.ru или какой то сайт . Что вы хотите получить ? IP и порт ?

хост написал от балды...
реально стоит АйПи в локалке который неактивен (с командной строки не пингуется). Я привел тело ф-ции которая должна вовращать истину при пинге и фальш при отсутствии пинга
В данном случае я должен получить ложь, а получаю истину

Сообщение от Stilet

Скрин ругани в студию

Ну значит Пинг идет норм.

как раз так и НЕ пингуется, АйПи не активен 100%

скрин в студии

[Stilet]

Так то не ошибка, а warning?

как раз так и НЕ пингуется

Значит неправильно ты компонент используешь.
После пинга анализируй свойство ReplyStatus. У него есть поле BytesReceived. Если оно не ноль - значит пинг есть.

 Result := True;
   hoost := 'bla-bla-bla';
   
    with TIdIcmpClient.Create(Self) do begin
     Host := hoost;
     Ping('123');
     case ReplyStatus.BytesRecieved of
      3: Result:=true; //100% пинг
      0: Result:=false; // Нет связи
      else Result:=false; //Пинг есть, но с потерями
     end;
     Free;
   end;

Вот как-то так, есля я правильно помню.

[xxbesoxx]

которая должна вовращать истину при пинге и фальш при отсутствии пинга
В данном случае я должен получить ложь, а получаю истину

1) скачаем библиотеку (ICS) http://www.magsys.co.uk/delphi/magics.asp
2) и от него нужно только компонент Ping1

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = '' then
    begin
      Beep();
      MessageDlg('Пишите  hoost пожалуйста', mtError,[mbOK],0);
      if Edit1.CanFocus then
      Edit1.SetFocus;
      Abort;
    end
     else
    if Edit2.Text = '' then
    begin
      Beep();
      MessageDlg('Размер пакетов не задано ', mtError,[mbOK],0);
      if Edit2.CanFocus then
      Edit2.SetFocus;
      Abort;
    end
    else
    Memo1.Lines.Add('Поиск ''' + Edit1.Text + '''');
    Ping1.Size := StrToInt(Edit2.Text);
    Ping1.DnsLookup(Edit1.Text);
end;

procedure TForm1.Ping1DnsLookupDone(Sender: TObject; Error: Word);
begin
 // Если произошла ошибка, то...
  if Error <> 0 then
  begin
    // Вывести сообщение об ошибке
    Memo1.Lines.Add('Хост не найден ''' + Edit1.Text + '''');
    // Выход
    Exit;
  end;
  // Если ошибок не было, то выводим в RichEdit1 результат поиска
  Memo1.Lines.Add('Хост ''' + Edit1.Text + ''' - ' + Ping1.DnsResult);
  // Устанавливаем //свойство Address компонента или хост Ping равным адресу, найденному в базе DNS
  Ping1.Address := Ping1.DnsResult;
  // Запускаем Ping
  Ping1.Ping;
end;

procedure TForm1.Ping1EchoReply(Sender, Icmp: TObject; Status: Integer);
begin
  if Error <> 0 then
    Memo1.Lines.Add('Не могу выполнить операцию ping: ' + Ping1.ErrorString)
  else
    Memo1.Lines.Add('Получено ' + intToStr(Ping1.Reply.DataSize) + ' байт от ' +
      Ping1.HostIP + ' за ' + intToStr(Ping1.Reply.RTT) + ' миллисекунд');
end;

procedure TForm1.Ping1EchoRequest(Sender, Icmp: TObject);
begin
    Memo1.Lines.Add('Посылка' + intToStr(Ping1.Size) + ' байтов на ' +
    Ping1.Hostname);
end;

end.

[spirit-ua]

xxbesoxx сторонний компонент не канает т.к. "трудно" будет обернуть в поток, хочется одной функцией, но спасибо за ответ, в свободное время обязательно попробую

Stilet ваш пример

   Result := True;
 with TIdIcmpClient.Create(Self) do begin
     Host := hoost;
     Ping();
     case ReplyStatus.BytesReceived of
      //3: Result:=true; //100% пинг
      0: Result:=false; // Нет связи
      //else Result:=false; //Пинг есть, но с потерями
     end;
     Free;
   end;

работает но когда кидаю ф-цию в поток (точнее создаю 255 потоков которые используют ОДНУ функцию) на сканирование всей ветки (192.168.111.1-255) возвращает всегда истину... если по одному - все работает корректно Причем, если, к примеру, сканировать три адреса где первые 2 активные, а 3й нет то все работает, а если 1й и 3й активный, а 2й нет то результат выдает что все ТРИ активные

почему так?

[Stilet]

А покажи код пинга упакованный в поток. Как ты это сделал?

[spirit-ua]

Сообщение от Stilet

А покажи код пинга упакованный в поток. Как ты это сделал?

на работе, с собой не брал, но если в двух словах то:
1. есть просто масив с адресами
2. есть один поток в котором вызивается выше указаная функция
3. через цыкл запускается поток N-е кол-во раз
вот и весь код

если запускать поток один раз то коректно возвращает результат (истина или ложь)
через поток (цикл который запускает 5 раз один и тот же поток) все время истина, хотя есть неактивные адреса

[Stilet]

Ну извини. Телепатор сегодня спит
Утром код - днем решения. Днем код - вечером решения