Дайте функцию пинга

[kakawkin]

Хочу сделать пингер серверов - нужна функция - скажите ее пожалуйста.

Желательно чтоб была типа boolean.
Тоест: if Ping(Memo1.Lines[i])=1 then ......

[raxp]

>>> тырк...

[kakawkin]

procedure tcpping (const Address, EchoString: PChar;var PingReply: TsmICMP_Echo_Reply;const PingTimeout: Integer = 500);
var IPAddress: TipAddr;
    ICMPPort: THandle;
begin
 application.ProcessMessages;
 //
 IPAddress:= inet_addr (Address);
 if (IPAddress = INADDR_NONE) then exit;
 ICMPPort:= IcmpCreateFile();
 if (ICMPPort = INVALID_HANDLE_VALUE) then exit;
 //
 IcmpSendEcho (ICMPPort, IPAddress,
               EchoString, Length (EchoString), nil,
               @PingReply, SizeOf (PingReply), PingTimeout);
 IcmpCloseHandle (ICMPPort)
end;

а как вывести ее в boolean или чтобы функция приравнивалась к значению - просто невижу как ее подставить в функцию if ping =1 then .....

[raxp]

 tcpping(ip, nil, ic, 250);
  i:= ic.RoundTripTime;
  if i<>20 then gl_ping:= true
   else gl_ping:= false;

[Nester]

Можно ещё так.....

Function TForm1.Ping(Host:String;TimeOut:Integer):Integer;
  Begin
   IdIcmpClient1.Host:=Host;
   IdIcmpClient1.ReceiveTimeout:=TimeOut;
   Result:=-1;
   Try
    IdIcmpClient1.Ping;
   Except
    Exit;
   End;

   If IdIcmpClient1.ReplyStatus.TimeToLive>0 Then Result:=IdIcmpClient1.ReplyStatus.MsRoundTripTime
 End;

[kakawkin]

а подскажите как прикрутить тот модуль к дельфе

[r9m]

Ещё можно пользоваться штатным ping с перенаправлением вывода