Определить пинг

[Shouldercannon]

Как определить пинг удалённого компьютера подключенного через роутер (маршрутизатор)? Не предлагать IdIcmpClient и всё что с ним связано, так как он ничего не получает.

[mss]

А никак, если админ маршрутизатора запретил трансляцию ICMP-пакетов.
Но это редкость, хотя и встречается (из соображений безопасности, например).
Впрочем если хост за маршрутизатором успешно пингуется средствами, например, штатной ping-утилиты, значит следует обратить внимание на св-во TIdICMP.Bindings - вероятно пингуешь ты совсем с другого сет.интерфейса, нежели тот который гонит внешние пакты через шлюз, сопряженный с тем самым маршрутизатором.

[Swarog]

текст взят с делфиворлд

Протокол Ping предназначен для тестирования компьютерных соединений в Интернете путём посылки через протокол Internet Protocol (IP) по обределённому адресу сообщения и ожидания от него ответа.

ICMP - Internet Control Message Protocol. ICMP служит для передачи сообщений об ошибках а так же управляющих сообщений . ICMP-тест может показать насколько быстро проходит информация между двумя узлами в Интернете.

Запускаем Delphi;
В Новом проекте добавляем в форму Tbutton, Tedit и Tmemo;
Вставляем “winsock”;
объявляем структурку для IP-заголовка:

type
  IPINFO = record
  Ttl: char;
  Tos:har;
  IPFlags: char;
  OptSize: char;
  Options: ^char;
end;

объявляем структурку для хранения ICMP пакета:

type 
  ICMPECHO = record 
  Source: longint; 
  Status: longint; 
  RTTime: longint; 
  DataSize: Shortint; 
  Reserved: Shortint; 
  pData: ^variant; 
  i_ipinfo: IPINFO; 
end;

Объявляем функции и процедуры, которые мы будем вызывать из ICMP.DLL

TIcmpCreateFile = function():integer;
{$IFDEF WIN32} stdcall; {$ENDIF}

TIcmpCloseHandle = procedure(var handle: integer);
{$IFDEF WIN32} stdcall; {$ENDIF}

TIcmpSendEcho = function(var handle: integer; endereco: DWORD;
buffer: variant; tam: WORD; IP: IPINFO; ICMP: ICMPECHO;
tamicmp: DWORD; tempo: DWORD): DWORD;
{$IFDEF WIN32} stdcall; {$ENDIF}

В TButton в событие Onclick вставляем следующий код:

procedure TForm1.Button1Click(Sender: TObject);
var
  wsadt : wsadata;
  icmp :icmpecho;
  HNDicmp : integer;
  hndFile :integer;
  Host :PHostEnt;
  Destino :in_addr;
  Endereco :^DWORD;
  IP : ipinfo;
  Retorno :integer;
  dwRetorno :DWORD;
  x :integer;

  IcmpCreateFile : TIcmpCreateFile;
  IcmpCloseHandle : TIcmpCloseHandle;
  IcmpSendEcho : TIcmpSendEcho;

begin
  if (edit1.Text = '') then
  begin
    Application.MessageBox('Enter a HostName ro a IP Adress', 'Error', MB_OK);
    exit;
  end;
  HNDicmp := LoadLibrary('ICMP.DLL');
  if (HNDicmp <> 0) then
  begin
    @IcmpCreateFile := GetProcAddress(HNDicmp,'IcmpCreateFile');
    @IcmpCloseHandle := GetProcAddress(HNDicmp,'IcmpCloseHandle');
    @IcmpSendEcho := GetProcAddress(HNDicmp,'IcmpSendEcho');
    if (@IcmpCreateFile=nil) or (@IcmpCloseHandle=nil) or (@IcmpSendEcho=nil) then
    begin
      Application.MessageBox('Error getting ICMP Adress’,'Error', MB_OK);
      FreeLibrary(HNDicmp);
    end;
  end;
  Retorno := WSAStartup($0101,wsadt);

  if (Retorno <> 0) then
  begin
    Application.MessageBox('Canґt Load WinSockets','WSAStartup', MB_OK);
    WSACleanup();
    FreeLibrary(HNDicmp);
  end;

  Destino.S_addr := inet_addr(Pchar(Edit1.text));
  if (Destino.S_addr = 0) then
    Host := GetHostbyName(PChar(Edit1.text))
  else
    Host := GetHostbyAddr(@Destino,sizeof(in_addr), AF_INET);

  if (host = nil) then
  begin
    Application.MessageBox('Host not found','Error', MB_OK);
    WSACleanup();
    FreeLibrary(HNDicmp);
    exit;
  end;
  memo1.Lines.Add('Pinging ' + Edit1.text);

  Endereco := @Host.h_addr_list;

  HNDFile := IcmpCreateFile();
  for x:= 0 to 4 do
  begin
    Ip.Ttl := char(255);
    Ip.Tos := char(0);
    Ip.IPFlags := char(0);
    Ip.OptSize := char(0);
    Ip.Options := nil;

    dwRetorno := IcmpSendEcho(
    HNDFile,
    Endereco^,
    null,
    0,
    Ip,
    Icmp,
    sizeof(Icmp),
    DWORD(5000));
    Destino.S_addr := icmp.source;
    Memo1.Lines.Add('Ping ' + Edit1.text);
  end;

  IcmpCLoseHandle(HNDFile); 
  FreeLibrary(HNDicmp); 
  WSACleanup();
end;

У данного примера есть один недостаток - программа не воспримет доменное имя, только IP-адресс. Для пользователей NT не используйте функцию IcmpCloseHandle.

Это всё…..

[Shouldercannon]

Я же говорю, что IdIcmpClient не может пинговать компьютер находящийся за маршрутизатором. К тому же работа кода всегда завершается ошибкой

[mss]

IdIcmpClient не может пинговать компьютер находящийся за маршрутизатором

Глупости, расчудесно пингует он.

[Shouldercannon]

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

Глупости, расчудесно пингует он.

Попробуйте попингуйте меня 77.108.194.247. Нахожусь за маршрутизатором.

[veniside]

> 77.108.194.247

ну пингуется ваш (или уже не ваш, т.к. айпи динамический) роутер, и чё?

<damned> kastor, попингуй!
<kastor> Слыш, сам попингуй!
<damned> От попингуя слышу!

[Shouldercannon]

Это мой и он не динамический. А этот 77.108.196.132 получится запинговать?
Пингуете через ping.exe встроенный в Windows?

[veniside]

> Это мой и он не динамический

pool-194-247.ptcomm.ru [77.108.194.247]

слово pool в имени обычно означает, что айпишнег взят из общедоступного провайдерского пула, сегодня он у Пети, завтра у Васи. Хотя, может у вас он жоско привязан, такое тоже бывает.

> А этот 77.108.196.132 получится запинговать?

пока нет. Если это роутер, то он или выключен, или ответ на пинг у него залочен. Если это комп, то он, скорей всего, выключен )

[Shouldercannon]

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

> Это мой и он не динамический



слово pool в имени обычно означает, что айпишнег взят из общедоступного провайдерского пула, сегодня он у Пети, завтра у Васи. Хотя, может у вас он жоско привязан, такое тоже бывает.

> А этот 77.108.196.132 получится запинговать?

пока нет. Если это роутер, то он или выключен, или ответ на пинг у него залочен. Если это комп, то он, скорей всего, выключен )

Он включен. Скорее всего защита.