Amigos:
Es posible leer la cotizaci贸n del D贸lar de un banco.
Por ejemplo de esta p谩gina
https://www.portal.brou.com.uy/cotizaciones
Muchas gracias.
Saludos
Ruben Dario Fernandez
FUNCTION LeeDatosWeb(cUrl, nModo)
LOCAL cPageContent:="Error: " + cUrl + " No Hallado o Tiempo Agotado..."
LOCAL oConn
DEFAULT nModo := 2
IF Upper(Left(cUrl,4))#"HTTP"
cUrl:="http://"+cUrl
ENDIF
TRY
oConn := TipClientHttp():New(TURL():New(cUrl))
oConn:nConnTimeout := 20000
//oConn:nDefaultPort := 9150 // para tor
IF oConn:Open(cURL)
cPageContent := oConn:ReadAll()
oConn:Close()
ENDIF
CATCH
cPageContent:="Error en apertura de " + cUrl
END
RETURN cPageContent // esta variable contiene el texto del web(2788) Error E0030 Syntax error "syntax error at '聽'"
(2793) Error E0030 Syntax error "syntax error at '聽'"
(2794) Error E0030 Syntax error "syntax error at '聽'"
(2795) Error E0030 Syntax error "syntax error at '聽'"
(2797) Error E0030 Syntax error "syntax error at '聽'"
(2798) Error E0030 Syntax error "syntax error at '聽'"
(2799) Error E0030 Syntax error "syntax error at '聽'"
(2800) Error E0030 Syntax error "syntax error at '聽'"
(2802) Error E0030 Syntax error "syntax error at '聽'"
(2807) Error E0030 Syntax error "syntax error at '聽'"
FUNCTION LEERCOTIZACION()
LOCAL curl:="www.portal.brou.com.uy/cotizaciones"
LOCAL nModo:=2 ,cPagina
MsgInfo()
cPagina := LEERDATOSWEB(cUrl,nModo)
MsgList(cPagina)
RETURN(.F.)
//---------------------------------------------------------------------------//
FUNCTION LeeDatosWeb(cUrl, nModo)
LOCAL cPageContent:="Error: " + cUrl + " No Hallado o Tiempo Agotado..."
LOCAL oConn
DEFAULT nModo := 2
IF Upper(Left(cUrl,4))#"HTTP"
聽 聽cUrl:="https://"+cUrl
ENDIF
TRY
聽 聽oConn := TipClientHttp():New(TURL():New(cUrl))
聽 聽oConn:nConnTimeout := 20000
聽 聽//oConn:nDefaultPort := 9150 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 // para tor
聽 聽IF oConn:Open(cURL)
聽 聽 聽 cPageContent := oConn:ReadAll()
聽 聽 聽 oConn:Close()
聽 聽ENDIF
聽 CATCH
聽 聽cPageContent:="Error en apertura de " + cUrl
END
RETURN cPageContentHola,
no hace falta nada,,,,, ve que la url no tenga caracteres raros....
o que el resultado los tenga....
Application
===========
Path and name: C:\Fuentes\omegainmo\omegainmo.Exe (32 bits)
Size: 5,778,944 bytes
Compiler version: Harbour 3.2.0dev (r1703231115)
FiveWin version: FWH 17.06
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 12 secs
Error occurred at: 07/07/2017, 19:09:19
Error description: Error BASE/1081 Operation not supported: TIPCLIENTHTTP:new()
Args:
[ 1] = O TIPCLIENTHTTP
[ 2] = C httpsPuede se, yo utilizo xHarbour, pero hay su equivalente
cUrl:="www.portal.brou.com.uy/cotizaciones"
oHttp:=CreateObject("winhttp.winhttprequest.5.1")
oHttp:SetTimeouts(30000,30000,30000,30000)
oHttp:Open("GET",cUrl,.F.) // tambi茅n se puede usar esto oHttp:Open("PUT",cUrl,.F.)
oHttp:Send()
cTextoHTML:=oHttp:ResponseText()
? cTextoHTMLApplication
===========
Path and name: C:\Fuentes\omegainmo\omegainmo.Exe (32 bits)
Size: 5,713,408 bytes
Compiler version: Harbour 3.2.0dev (r1703231115)
FiveWin version: FWH 17.06
C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
Windows version: 6.2, Build 9200
Time from start: 0 hours 0 mins 7 secs
Error occurred at: 07/07/2017, 20:39:11
Error description: (DOS Error -2147352567) WINOLE/1007 La direcci贸n URL no usa un protocolo reconocido
(0x80072EE6): WinHttp.WinHttpRequest
Args:
[ 1] = C GET
[ 2] = C <!-- w --><a class="postlink" href="http://www.portal.brou.com.uy/cotizaciones">www.portal.brou.com.uy/cotizaciones</a><!-- w -->
[ 3] = L .F.
Stack Calls
===========
Called from: => TOLEAUTO:OPEN( 0 )Gracias Willi, esta solucionado.
Muy amable. Gracias de nuevo.
Saludos
Ruben Dario Fernandez