Cómo implementar PING en Delphi, gracias a todos los héroes
3. Implementación de la programación
En Delphi, podemos usar el componente IdIcmpClient (ubicado en la pestaña Indy Client) para implementar la operación Ping. Agregue este componente al formulario y luego agregue un control de cuadro de texto edtHost (ingrese IP), un control de cuadro de lista Info (mostrar información), dos botones de comando btnPing (ejecutar el comando Ping) y btnStop (detener el comando Ping). Establezca el nombre del control IdIcmpClient en ICMP, el valor de la propiedad ReceiverTimeout (tiempo de espera) en 1000 y el evento OnReply en ICMPReply. Haga un diseño razonable y luego escriba el código del programa:
Var i, b, s: integer; // Variables globales
1. >A través del control ICMP La propiedad Host establece la IP de Ping y luego llama al método Ping del control para ejecutar el comando de operación Ping. El código principal es el siguiente:
Procedure TfrmPing.btnPingClick(…);
begin
b:=0 //Número de paquetes descartados
p>i:=0; //Número total de pings
s:=0; //Ejecutar (s=0) o detener (s=1) flag
Info.Clear; //Borrar la última información de ping
ICMP.Host:=edtHost.Text //Establecer IP
While (ilt; 100000) y (s=0) ) Hacer
begin //Realizar operaciones de ping hasta 100.000 veces Application.ProcessMessages; i:=i 1; ICMP.Ping //Realizar ping //Si los primeros 10 pings fallan, finalice Ping if ( i=10 ) y (b=10) luego s：=1;
end;
end;
//Detener operación de ping
procedimiento TfrmPing.btnStopClick(…);
begin
s:=1; //Establece el indicador de detención de la operación de ping
end;
2. Devuelve el resultado de la ejecución del comando Ping