8 respuestas en este tema

[enecumene]

Pues aquí­ dejo un pequeñito código para realizar PINGs a cualquier equipo conectado a una red, hace un ratito estaba buscando como hacerlo y llegué a esta conclusión usando las Indy, más precisamente con el componente TIdIcmpClient, colocaremos uno y un TButton en un Form, y aquí­ el código:

Evento OnReply de TIdIcmpClient:

delphi

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
begin
  if IdIcmpClient1.ReplyStatus.BytesReceived = 0 then
    begin
      ShowMessage('!Mierda, está desconectado!');
    end else begin
      ShowMessage('¡Está conectado!');
    end;
end;

Evento OnClick del TButton:

delphi

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdIcmpClient1.Ping;
end;

Y eso es todo, espero les sea útil.

Saludos.

[eduarcol]

para los que no sean amigos de las indy

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

[Rolphy Reyes]

para los que no sean amigos de las indy

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

El código de cHackAll es impresionante y es de admirar, no le resto merito es bastante bueno y usa las API a fondo, que deberí­a ser nuestro Norte, pero el de Enecumene es bastante fácil.       

[ramonrafe]

Hola a tod@s.
A la explicación, le añadiría que hay que rellenar la propiedad Host del componente IdIcmpClient1.
Si no se hace, sale que siempre estás conectado, aunque desconectes el cable de conexión (al menos a mí me pasó así). En mi caso escribí "www.google.es".
Creo que este ejemplo es la mejor forma, de saber si hay conexión a internet o no, que he visto en muchos lugares.
Gracias.
Ramón

[enecumene]

Ah vaya, gracias amigo ramonrafe por hacerme ver que se me pasó ese pequeño detalle :$ . Espero verlo con más frecuencia .

[escafandra]

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.

[Koalasoft]

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.

[escafandra]

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.

[Koalasoft]

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 !!