Poseo aplicación que lee esta pagina web y obtiene valores de la divisa.
En varios PC de otros usuarios en diferentes redes funciona sin novedad. En otro usuario en otra red devuelve NOCONNET, agradecemos sus recomendaciones.
- Code: Select all Expand view
DEFAULT cUrl := "https://www.bcv.org.ve"
BEGIN SEQUENCE
oUrl = TUrl():New( cUrl )
IF EMPTY( oUrl )
BREAK
ENDIF
oCli = TIPClientHttp():New( oUrl )
IF EMPTY( oCli )
BREAK
ENDIF
IF !oCli:Open( oUrl )
BREAK
ENDIF
WHILE .T.
cString := oCli:Read()
IF Empty(cString)
EXIT
ENDIF
cMemo:=cMemo+cString
