- Code: Select all Expand view RUN
- Function PublicIP()
Local cBuffer, cRequest, cResponse, nBytes, pSocket
INetInit()
pSocket := INetConnect( "checkip.dyndns.org", 80 )
IF INetErrorCode( pSocket ) <> 0
? "Socket error:", INetErrorDesc( pSocket )
INetCleanUp()
QUIT
ENDIF
nBytes := INetSend( pSocket, "GET / HTTP/1.1" + CRLF + "Host: checkip.dyndns.org" + CRLF + "User-Agent: HTTP-Test-Program" + CRLF + CRLF )
cBuffer := Space(512)
cResponse:= ""
WHILE ( nBytes > 0 )
nBytes := INetRecv( pSocket, @cBuffer )
cResponse += Left( cBuffer, nBytes )
cBuffer := Space(512)
ENDDO
INetClose( pSocket )
INetCleanUp()
Return( allTrim( substr( substr( cResponse, rat( "<body>", cResponse ) + 26 ), 1, At( "<", substr( cResponse, rat( "<body>", cResponse ) + 26 ) ) - 1 ) ) )
FiveTech Software tech support forums
www.FiveTechSoft.com
saber cual es la IP Publica
5 posts • Page 1 of 1
saber cual es la IP Publica
by pablovidal » Thu Jun 17, 2010 3:56 pm
Probado con xHarbour
Saludos,
Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
Pablo Alberto Vidal
/*
------------------------------------------------------
Harbour 3.2.0, Fivewin 17.02, BCC7
------------------------------------------------------
*/
-
pablovidal - Posts: 401
- Joined: Thu Oct 06, 2005 10:15 pm
- Location: Republica Dominicana
Re: saber cual es la IP Publica
by Raymundo Islas M. » Thu Jun 17, 2010 10:04 pm
Pablo,
Excelente !!!
Andaba buscando una funcion como esta.
Muchas gracias por el aporte.
Saludos
Excelente !!!
Andaba buscando una funcion como esta.
Muchas gracias por el aporte.
Saludos
FWH 10.6 + xHarbour + Borland 582
-
Raymundo Islas M. - Posts: 592
- Joined: Tue Mar 14, 2006 11:34 pm
- Location: Acapulco, Gro. MEXICO
Re: saber cual es la IP Publica
by derpipu » Tue Jul 12, 2011 10:21 pm
Mis estimados, me sirvio en este momento muchisimo su aporte, ya que ando haciendo CGI's con xHarbour y mis clientes requieren de filtro por IP Publica, chistosamente busque las palabras claves dentro del foro y no me salio ninguna ocurrencia, busque en google "saber ip publica desde xharbour" y la primer ocurrencia que me dio fue este post...
Gracias Mil
LF
Gracias Mil
LF
Luis Fernando Rubio Rubio
- derpipu
- Posts: 94
- Joined: Tue Mar 28, 2006 4:09 pm
- Location: Tequila, Jalisco Mexico
Re: saber cual es la IP Publica
by karinha » Mon Jan 09, 2017 2:23 pm
Gracias Pablo. Está mui lento... Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha - Posts: 7855
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
Re: saber cual es la IP Publica
by karinha » Tue Jan 10, 2017 4:45 pm
- Code: Select all Expand view RUN
#include "FiveWin.ch"
#include "tip.ch"
FUNCTION RetPublicIP()
LOCAL cPubIP := "", cxHtml := "", url, oUrl, oHttp, oErr
url := "http://checkip.dyndns.org"
try
oUrl:=TUrl():New( url ) // From tip.lib
oHttp := TipClientHttp():New( oUrl , .f. ) // From tip.lib
catch oErr
? "Erro: "+oErr:Description
end try
Try
oHttp:Open()
cxHtml := oHttp:ReadAll() // Baixa todo o conteúdo do site.
cPubIP := allTrim( substr( substr( cxHtml, rat( "<body>", cxHtml ) + 26 ), 1, At( "<", substr( cxHtml, rat( "<body>", cxHtml ) + 26 ) ) - 1 ) )
catch oErr
? "Erro: "+oErr:Description
End
oHttp:Close()
DeleteUrlCacheEntry(url) // Lipar Cache
? cPubIP
Return Nil
//----------------------------------------------------------------------------------------------------------------------//
DLL Function DeleteUrlCacheEntry(lpszUrlName AS STRING) AS LONG PASCAL FROM "DeleteUrlCacheEntryA" LIB "wininet.dll"
//----------------------------------------------------------------------------------------------------------------------//
// A DLL fica em c:\Windows\System32\wininet.dll
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha - Posts: 7855
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
5 posts • Page 1 of 1
Return to FiveWin para Harbour/xHarbour
Who is online
Users browsing this forum: Google [Bot] and 63 guests