Con win 10 funciona perfecto, pero en win 7 no. Me explico Antonio en el post mio anterior, que .NET (dotNet) no es compatible con Windows 7.
dejo el código que funciona en win 10 por si alguine le sirve.
Gracias.
- Code: Select all Expand view
- FUNCTION BROUCOTIZA()
LOCAL cTipodecambio:= " " ,ct4, ctx := "D.lar\s*<.+?(\d+,\d+).+?(\d+,\d+)" ,cHora:= Time(), lConect:=.T.
If Val( SubStr(cHora,1,2 ) ) > 22
RETURN.F.
Endif
cTipodecambio := LEERCOTIZACION()
ct4 := HB_RegExAtx( ctx, cTipodecambio,.F.,.T. )
Try
cCotiCompra := SubStr( xTrim( ct4[2][1]),1,6)
cCotiVenta := SubStr( xTrim( ct4[3][1]),1,6)
Catch
lConect:= .F.
End Try
If !lConect
MsgInfo("El mensaje de la página del BROU es:" + CRLF+;
"Información no disponible."+CRLF+;
"Por favor, inténtalo mas tarde.","Informe" )
cCotiCompra := "00,000"
cCotiVenta := "00,000"
Endif
RETURN(.T.)
//---------------------------------------------------------------------------//
FUNCTION LEERCOTIZACION()
LOCAL curl:="https://www.portal.brou.com.uy/cotizaciones/"
LOCAL oHttp:= CreateObject("winhttp.winhttprequest.5.1")
oHttp:SetTimeouts(30000, 30000, 30000, 30000 )
oHttp:Open("GET", cUrl, .f. ) <<<<<<<<<<<<<<<<<CREO QUE AQUI SE GENERA EL ERROR EN WIN 7
oHttp:Send()
cTexToHTML:= oHttp:ResponseText()
RETURN(cTexToHTML)
