VAMOS NO MAS SI QUERES!!!!! ME SALIÓÓÓÓÓÓ!!!
Igual era un bolazo si te pones a pensar en que utilizo un objeto... Pero bué! nadie me supo decir asi que tuve que mandarle fruta a todos los componentes de la solapa Internet y la ayuda del Borland... N fin... Pasemos a explicar!
=> Para poder obtener la ip externa o pública una de las formas mas fáciles es conseguirla desde algun servidor externo, para esto localizamos una de estas páginas donde nos suministren esta información como es:
http://www.zoneedit.com/checkip.htmlLuego solo necesitaremos agregar a nuestro programa el componente NMHTTP que se encuentra en la solapa FastNet que se utiliza para LEER TEXTO HTTP (para la mucha gente que andaba necesitando hacer esto... ACA LO TIENEN)
Solo resta Poner en el evento que mas nos convenga el siguiente código:
/********Averiguo la IP Externa***********/
NMHTTP1->Get("http://www.zoneedit.com/checkip.html");//pido la página
AnsiString S = NMHTTP1->Body;//copio el cuerpo de la página
S.Delete(1,111); //elimino todo el texto que no es necesario hasta llegar al ip
//que yo x tantearlo ya se que va desde 1 a 111!
S=S.SubString(0,15);//Obtengo el ip que consta de 15 caracteres
Label5->Caption=S; //Lo muestro
/********Averiguo la IP Externa***********/
Así de facil!!! recomiendo la ayuda del borland de este componente ya que tiene un ejemplo que muestra muy bien como se utilizan sus difernetens opciones! Muy interesante! pero con este código ya pueden obtener el IP sin tener que ir a bajo nivel y tocar sockets ni puertos ni nada!
Igual voy a hacerle caso a EternalIdol y a ver si me sale usando WinInet...
Exitos Spero que les sirva! Yo me merezco cuna rubia helada!jajaaj chau
