Red de conocimiento informático - Material del sitio web - Cómo implementar PING en Delphi, gracias a todos los héroes

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