Ping a varias ips

[Ike0]

Buenas noches!!

Alguien me puede ayudar? Quiero hacer que un Tpanel cambie de color dependiendo si la ip responde al ping o no.

Estoy utilizando TIdIcmpClient pero no se como funciona realmente.

Me echáis una mano?

Gracias

[Ike0]

Bueno ya conseguí hacer que al pulsar un boton se ponga el Panel verde o rojo dependiendo de si existe o no el Ping. Lo he hecho con esto:

Evento OnReply de TIdIcmpClient:

Código Delphi [-]
procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  if IdIcmpClient1.ReplyStatus.BytesReceived = 0 then
    begin
      panel1.color:=clRed
    end 
    else begin
      Panel1.color:=clGreen;
    end;
end;

Evento OnClick del TButton:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  IdIcmpClient1.Ping;
end;

Sabiendo esto, ahora quiero saber como hacer el ping automaticamente, es decir, con un boton iniciar y/o parar la labor de hacer ping.

Gracias

[Ike0]

Creo que ya lo conseguí... si no es correcto el uso del Ttimer hacedmelo saber.

de momento esta resuelto así:

dos Botones (Iniciar, Parar)

Botón Iniciar:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  form1.Timer1.Enabled:=true;
end;

Botón Parar

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
form1.Timer1.Enabled:=false;
form1.Panel1.Color:=clBtnFace;
End;

El Timer desactivado por defecto...

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
          IdIcmpClient1.Ping;
end;

Siguiente paso.... hacer esto a un numero indefinido de IPs. Cual es la mejor forma de hacerlo?

Gracias

[Neftali [Germán.Estévez]]

En mi página tienes un par de ejemplos para realizar PING.
Uno utilizando ICMP y el otro WMI. Uno de ellos utiliza threads, cosa que te puede interesar si vas a realizar PING a múltiples servidores.

http://neftali.clubdelphi.com/server...tilizando-wmi/
http://neftali.clubdelphi.com/ping-t...ando-icmp-dll/

Son antiguas, y compiladas con versión 6 de Delphi si no recuerdo mal, pero deberían funcionar en las versiones nuevas sin mayores problemas.

[Ike0]

Que pez estoy...

Siguiendo con el modo en que empece este programita, a partir de 8 o 9 direcciones Ips se empieza a relentizar la cosa no me imagino cuando este programa este haciendo ping a 200 ips.

Se solucionaría esta "lentitud" con los threads (hilos)?

[Neftali [Germán.Estévez]]

Correcto.
Debes utilizar hilos. Solventarás la velocidad y que el programa se quede "colgado", pero tendrás más consumo de memoria.

[Ike0]

Ufff.. es complicado esto para mi, voy a ir mascando poco a poco jejejjeje

Neftali, sacando conclusiones, creo entender ahora mejor tu primera respuesta, leyendo la ultima. Corrígeme si me equivoco:

Primer Paso: Lo primero que debes hacer es crear el componente TIdIcmpClient por código
Leyendo tu primera respuesta (segundo link de tu pagina "ICMP") mi componente TIdIcmpClient podría ser la unidad raw_ping.pas o unit1.pas?

Gracias

[Neftali [Germán.Estévez]]

Empezado por Ike0

Ufff.. es complicado esto para mi, voy a ir mascando poco a poco jejejjeje

Neftali, sacando conclusiones, creo entender ahora mejor tu primera respuesta, leyendo la ultima. Corrígeme si me equivoco:

Primer Paso: Lo primero que debes hacer es crear el componente TIdIcmpClient por código
Leyendo tu primera respuesta (segundo link de tu pagina "ICMP") mi componente TIdIcmpClient podría ser la unidad raw_ping.pas o unit1.pas?

Gracias

Digamos que esa unit es mucho más compleja, es más sencillo que uses el componente visual. Yo la dejaría por ahora.
Crear un componente en ejecución es mucho más fácil. Los componentes que sueltas en un formulario se crean automáticamente al crear el formulario, pero también puedes crearlos por código (te servirás porque luego deberás hacerlo en el thread).

Por ejemplo, en el club puedes encontrar muchos códigos para crear diferentes componentes en ejecución:
http://www.clubdelphi.com/foros/show...6&postcount=16
http://www.clubdelphi.com/foros/showthread.php?p=277758
http://www.clubdelphi.com/foros/show...84&postcount=2

Algo más.

Por ejemplo, en este hilo tienes código para un thread utilizando otro componente de las Indy.
https://www.clubdelphi.com/foros/showthread.php?t=81584
En ese ejemplo [nlsGarcia] ha creado un Thread con un componente TidFTP. PPero para la creación y la estructura del Thread, te puede servir.

En este también hay algo similar con un thread.
Revisa los código porque te pueden servir de base para el tuyo. Intenta entenderlos.
https://www.clubdelphi.com/foros/showthread.php?t=72316

(1) Verás como en ambos se crea el componente en cuestión en el Create de la clase del thread.
(2) Luego hay un método Execute, que es el que se encarga de realizar el trabajo. Descargar un fichero o en tu caso realizar el PING.