Cómo hacer PING en Delphi, gracias a todos.

La forma sencilla de implementar la función ping en Delphi es:

Primero, ¿llamar a Windows ping directamente? comando y obtenga su información de salida.

2. ¿Tomar prestado el paquete de componentes de Indy? ¿TIdIcmpCliente? Componente (código de Internet):

¿Programa? TForm1. Button1Click(remitente:?al objeto);

Definir variables

¿Yo? :?Entero;

Inicio

Nota1. Las líneas son claras.

IdIcmpClient1. Moderador:=? Editar1. texto;? //El nombre o dirección IP del ordenador

IdIcmpClient1. recibir tiempo de espera:= 1000;? //Tiempo de espera máximo

Botón 1. ¿Permitir? :=?Falso;?

Probar

¿Para qué? Yo:=0? ¿A dónde ir? 13? Hacer

Iniciar

IdIcmpClient1. Ping;

Aplicar. ¿Procesando mensajes? ;? //Retraso

Fin;

Final

Botón 1. ¿Permitir? :=?Verdadero;?

Fin;

Fin;

¿Procedimiento? TForm1. idicmpclient 1 respuesta(ASender:?TComponent

const?AReplyStatus:?TReplyStatus);

var?

Tiempo:? Cadena;

¿Iniciar?

//¿Detectar errores de respuesta de ping?

¿Y si? (AReplyStatus.MsRoundTripTime?=?0?)?¿Y luego qué?

¿Tiempo? :=?& lt1'?

¿Y si?

¿Tiempo? :=?'=';?

//¿Mostrar mensajes de ping en el cuadro de lista?

Nota1. Lines.Add(Format('¿Responder?¿Desde dónde?[%s]?:?bytes=%d?Time%s%d?ms?TTL=%d',

[AReplyStatus.FromIpAddress , ?

AReplyStatus.

Tiempo?

AReplyStatus.tolive]));

Fin; el código de función.