TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Fri Sep 08, 2023 12:05 pm
Saludos,
Esta funcionalidad funciona (lectura del valor del Dólar en el BCV) en diversos usuarios en otras plataformas (redes), en un usuario específico devuelve NOCONNET, agradecemos sugerencias para resolver esta incidencia.
Esta funcionalidad funciona (lectura del valor del Dólar en el BCV) en diversos usuarios en otras plataformas (redes), en un usuario específico devuelve NOCONNET, agradecemos sugerencias para resolver esta incidencia.
- Code: Select all Expand view
FUNCTION WebPageSource(cUrl)
local oIE,cTXT,cHTML,cMemo:=""
local cString
LOCAL cString1,cString2
LOCAL oUrl, oCli,lOk
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
ENDDO
cString:=cMemo
oCli:Close()
oUrl:Close()
END SEQUENCE
//MEMOWRIT("BCV.TXT",cMemo)
//MsgInfo( cString )
// MemoEdit( cString )
return cString