Ver Mensaje Individual
  #3  
Antiguo 17-09-2016
Ike0 Ike0 is offline
Registrado
NULL
 
Registrado: sep 2016
Posts: 7
Reputación: 0
Ike0 Va por buen camino
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
Responder Con Cita