FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Saber IP Pública
Posts: 485
Joined: Fri Feb 09, 2007 10:34 AM
Saber IP Pública
Posted: Thu Oct 29, 2009 06:48 PM

Muy buenas foro, ¿alguien podría decirme como puedo coger la IP Pública de mi ADSL?

Un Saludo.

Posts: 601
Joined: Wed Jul 04, 2007 03:51 PM
Re: Saber IP Pública
Posted: Thu Oct 29, 2009 09:30 PM

Hola...

Ingresá al sitio http://www.cualesmiip.com

Espero te sirva.
Saludos Esteban.

Ojeda Esteban Eduardo.

Buenos Aires - Argentina.

FWH - PellesC - DBF/CDX - ADS - Gloriosos .Bat - MySql - C# .net - FastReport

Skype: jreduojeda
Posts: 485
Joined: Fri Feb 09, 2007 10:34 AM
Re: Saber IP Pública
Posted: Fri Oct 30, 2009 08:14 AM

Perdona no se si me he explicado bien, necesito adquirir la IP Pública en FiveWin, necesito algún ejemplo que lo haga.

¿ Alguien tiene algo ?

Un Saludo.

Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: Saber IP Pública
Posted: Fri Oct 30, 2009 01:04 PM
Mas o menos así (no lo he probado)

local oWebcliente, cad

oWebClient := TWebClient():New()
oWebClient:Connect( "www.cualesmiip.com" )
oWebClient:bOnRead = { | cData | cad += cData }
oWebClient:SendData( "GET http://www.cualesmiip.com/index.html HTTP/1.0" + CRLF +"Host: http://www.cualesmiip.com"+ CRLF +CRLF )

Obtienes en la variable "cad" el código de la web, como aquí abajo. Luego puedes buscar la ip dentro de la variable de texto "cad", después de "Tu IP real es "

Alvaro
si no funciona con http://www.cualesmiip.com puedes probar otra web.

Code (fw): Select all Collapse
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es" lang="es">
<head>
<title>Cual es mi IP, Mi IP, Saber Mi IP, Conocer mi IP</title>
<meta http-equiv="Content-Language" content="es">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="msvalidate.01" content="2925" />
<META name="y_key" content="baf5f90a406" >
<meta name="verify-v1" content="QVdIk/RiKH1mh8gjjPwhavn5seCI=" />
<meta name="description" content=" Mi eLibro patrocina Cual es mi IP Tu IP real es 81.172.72.42 No navegas a través de proxy Noticias Conjoon - Plataforma de comunicación de código abierto ..." />
<meta name="keywords" content="puertos, abrir, router, firmware, actualizar, dirección, wireless, facebook, routers, thomson, robotics, actualización, como, comtrend" />
<link rel="stylesheet" type="text/css" href="/css/cualesmiip.css">
<script type="text/javascript" src="/js/swfobject.js"></script>
Posts: 485
Joined: Fri Feb 09, 2007 10:34 AM
Re: Saber IP Pública
Posted: Fri Oct 30, 2009 04:39 PM

Antetodo muchas gracias, pero la esta linea estaba mal el GET funciona así:

oWebClient:oSocket:SendData( "GET /index.html HTTP/1.0" + CRLF +"Host: www.cualesmiip.com"+ CRLF +CRLF )

Un Saludo.

Continue the discussion