Hacer Ping con Indy (TIdIcmpClient)

para los que no sean amigos de las indy

http://www.delphiacc...ilerias/ping-!/

Creo que este ejemplo es la mejor forma, de saber si hay conexión a internet o no, que he visto en muchos lugares.

Ciertamente el método del Ping es el que uso para saber si tengo conexión a internet en la mayoría de los casos. La única pega es si la conexión es mediante proxy, en cuyo caso el ping no funciona. en ese caso tendremos que leer directamente de una web.

Saludos.

Que tal ..

Estuve checando el ejemplo que mostró el compañero. Solo que en lugar de comprobar el acceso a Internet quise hacerlo hacia una IP de la red local, modifique tantito el código de llamado.

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '' Then
Begin
 ShowMessage('Teclea el Host');
 Edit1.SetFocus;
 exit;
End;
// ----------------
if Edit2.Text = '' Then
Begin
 ShowMessage('Teclea el Puerto');
 Edit2.SetFocus;
 exit;
End;
// ----------------
 
IdIcmpClient1.Host := Edit1.Text;
IdIcmpClient1.Port := StrToInt(Edit2.Text);
IdIcmpClient1.Ping;  // Ejcuto el Ping
end;

Para que escribiera la IP y un puerto, en mi caso el de Mysql que es el 3306, al poner uno correcto me sale el mensaje de que esta conectado, pero si pongo uno que no esta conectado y me vuelve a decir que esta conectado.

Algúna idea? , Uso Delphi 7.

Que tal ..

 

Estuve checando el ejemplo que mostró el compañero. Solo que en lugar de comprobar el acceso a Internet quise hacerlo hacia una IP de la red local, modifique tantito el código de llamado.

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text = '' Then
Begin
 ShowMessage('Teclea el Host');
 Edit1.SetFocus;
 exit;
End;
// ----------------
if Edit2.Text = '' Then
Begin
 ShowMessage('Teclea el Puerto');
 Edit2.SetFocus;
 exit;
End;
// ----------------
 
IdIcmpClient1.Host := Edit1.Text;
IdIcmpClient1.Port := StrToInt(Edit2.Text);
IdIcmpClient1.Ping;  // Ejcuto el Ping
end;

Para que escribiera la IP y un puerto, en mi caso el de Mysql que es el 3306, al poner uno correcto me sale el mensaje de que esta conectado, pero si pongo uno que no esta conectado y me vuelve a decir que esta conectado.

 

Algúna idea? , Uso Delphi 7.

Ping no usa puertos, resumidamente manda un paquete a una máquina y espera una respuesta. Si la máquina está en la red, leerá el paquete y responderá.

Saludos.

Ping no usa puertos, resumidamente manda un paquete a una máquina y espera una respuesta. Si la máquina está en la red, leerá el paquete y responderá.

 

Saludos.

Es correcto estimado, quite ese campo y ahora ya funciona bien, el motivo del por que lo puse es por que en el componente vi que había un parámetro llamado "port" el cual pensé que se podía hacer un ping hacia un puerto especifico, gracias !!