Como saber si tengo conexión?

[Gagiel]

Jejejeje

Muy interesantes las posibles soluciones, pero creo que la mejor es la útima, ya es la más completa, según mi opinion.
Si me hechas una manita con el codigo

Muchisimas gracias!

[[seoane]]

Empezado por Gagiel

Muy interesantes las posibles soluciones, pero creo que la mejor es la útima, ya es la más completa, según mi opinion.
Si me hechas una manita con el codigo

Si te refieres a comprobar la ip, es muy sencillo. Con una función como esta:

Código Delphi [-]
Uses Winsock;

function GetIp: string;
var
  Buffer: array[0..127] of char;
  WSAData: TWSADATA;
  HostEnt: phostent;
begin
  Result:= '';
  FillChar(Buffer,Sizeof(Buffer),#0);
  if WSAStartup(MAKEWORD(1, 1), WSADATA) = 0 then
  begin
    if GetHostName(@Buffer,Sizeof(Buffer)) = 0 then
    begin
      HostEnt:= gethostbyname(@Buffer);
      if HostEnt <> nil then
        Result:= String(inet_ntoa(PInAddr(HostEnt.h_addr_list^)^));      
    end;
    WSACleanup;
  end;
end;

Obtenemos la ip del equipo, si el cable de red esta desconectado nos dará un valor del tipo "127.0.0.1" y si esta conectado pero el DHCP no funciona dará un valor por defecto (sigo sin encontrar el valor). En cualquier caso, lo normal es que en nuestra red utilicemos direcciones del tipo 192.168.x.x o 10.x.x.x así que solo tenemos que comprobar que la ip que obtenemos se encuentra dentro del rango para saber si todo funciona bien. De todas formas tendras que realizar los ajustes necesarios para tu red.

[Gagiel]

Muchas gracias por el codigo!

Es una gran idea y muy simple y sencilla, no se me habia ocurrido!
Lo he estado probando y los resulatdos són:

Si tiene conexión da la ip que toque.
Si no tiene cable de red o tiene la wlan desactivada: 127.0.0.1
Si el DHCP falla, sea por codigos wep o porque el router no tiene DHCP la ip que se queda es la siguiente: 169.254.120.40

Muchas gracias por la respuesta!

Saludos!

[[escafandra]]

Me parece un tema muy interesante, el que habéis tratado. Estoy interesado también en saber hacer un ping, a una dirección externa de internet, por código. Por lo que leo en este hilo, lo teneis claro y me gustaría que me echaseis una mano si podeis.

Gracias

[dec]

Hola,

escafandra, por favor, no repitas la misma cuestión en hilos diferentes, puesto que lleva a la confusión. Creo que deberían responderte aquí, donde inicialmente hiciste la pregunta. Revisa la guía de estilo de los foros para más información.