Как определить ping

[Маркъ]

Как вообще посредством Delphi можно определить пинг до определённого сервера или ip. Слышал, что это можно сделать через Indy, но что-то у меня ничего толком не получается. Помогите кто знает!

[Квэнди]

Компонент IDIcmp метод Echo

[Маркъ]

Посмотрел ICICMP, что-то нет там такого метода (Indy 10). Если можно поподробнее опишите как (пару строчек кода для примера).

[Квэнди]

метод ping , ошибся

[Маркъ]

Делаю так:

icmp.Host:=Edit1.Text;
Memo1.Clear;
for i := 1 to 4 do begin
ICMP.Ping;
sleep(1000);
// ???
end;

Понимаю, что после Sllep(1000); надо как-то узнать проверенный пинг, но как?

[Квэнди]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
  IdIcmpClient;

type
  TForm1 = class(TForm)
    icmp: TIdIcmpClient;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
icmp.Host:='194.87.0.50';
icmp.Ping();
showmessage('Время до хоста: '+inttostr(icmp.ReplyStatus.MsRoundTripTime)+'ms');
end;

end.

[TaTT DoGG]

при повторном нажатии на кнопку показывает 0ms...
нужно обнулить что-то или рестартануть?

[Shouldercannon]

Сообщение от Квэнди

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdRawBase, IdRawClient,
  IdIcmpClient;

type
  TForm1 = class(TForm)
    icmp: TIdIcmpClient;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
icmp.Host:='194.87.0.50';
icmp.Ping();
showmessage('Время до хоста: '+inttostr(icmp.ReplyStatus.MsRoundTripTime)+'ms');
end;

end.

Данный способ не работает если опрашиваемый компьютер подключен через маршрутизатор. Как исправить положение?