FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TUrl()/TIPClientHttp() devuelve NOCONNET
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
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.
Code (fw): Select all Collapse
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
Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
elmoiquique
Posts: 336
Joined: Wed May 16, 2007 09:40 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Mon Sep 11, 2023 05:19 PM

Hola

Cuales son las librerias que estas usando

Fivewin-Xharbour 24.09, Iquique, Chile
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Tue Sep 12, 2023 06:30 AM

echo %fwh%\lib\libcurl.lib + >> b32.bc

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Wed Sep 27, 2023 11:05 PM
El antivirus puede ser? :roll:
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Wed Sep 27, 2023 11:08 PM
y si pruebas de otro modo?
Code (fw): Select all Collapse
 聽 Try

聽 聽 聽 oHttp := CreateObject("winhttp.winhttprequest.5.1")
聽 聽 聽 oHttp:Open("GET","https://www.bcv.org.ve",.f.)
聽 聽 聽 oHttp:Send()
聽 聽 聽 cResp := oHttp:ResponseText()
聽 聽Catch
聽 聽 聽 MsgStop( "Error" )
聽 聽 聽 Return cResp
聽 聽End Try
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Thu Sep 28, 2023 08:08 AM
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.
Could be internet problem with that client.
Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Thu Sep 28, 2023 08:10 AM
sysctrl2 wrote:y si pruebas de otro modo?
Code (fw): Select all Collapse
 聽 Try

聽 聽 聽 oHttp := CreateObject("winhttp.winhttprequest.5.1")
聽 聽 聽 oHttp:Open("GET","https://www.bcv.org.ve",.f.)
聽 聽 聽 oHttp:Send()
聽 聽 聽 cResp := oHttp:ResponseText()
聽 聽Catch
聽 聽 聽 MsgStop( "Error" )
聽 聽 聽 Return cResp
聽 聽End Try
This entire code can be replaced by a single line code, using FWH built-in function:
Code (fw): Select all Collapse
cText := WebPageContents( "https://www.bcv.org.ve" )
Regards



G. N. Rao.

Hyderabad, India
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Thu Sep 28, 2023 08:14 AM
This is a short code:
Code (fw): Select all Collapse
#include "fivewin.ch"

function Main()

聽 聽local cText, cCur
聽 聽local aRates 聽 := {}

聽 聽cText 聽 聽:= WebPageContents( "https://www.bcv.org.ve/" )
聽 聽for each cCur in { "EUR", "CNY", "TRY", "RUB", "USD" }
聽 聽 聽 AAdd( aRates, GetRate( cCur, cText ) )
聽 聽next
聽 聽XBROWSER aRates SETUP oBrw:aCols[ 2 ]:cEditPicture := "999.999999"

return nil

static function GetRate( ccur, cText )

聽 聽local aRate 聽:= { cCur, 0 }
聽 聽local c, n

聽 聽if ( n := At( cCur, cText ) ) > 0
聽 聽 聽 c 聽 聽 := SubStr( cText, n, 200 )
聽 聽 聽 c 聽 聽 := AllTrim( AfterAtNum( "<strong>", BeforAtNum( "</strong>", c, 1 ) ) )
聽 聽 聽 c 聽 聽 := CharRepl( ",", c, "." )
聽 聽 聽 aRate[ 2 ] 聽:= Val( c )
聽 聽endif

return aRate
Result:
Code (fw): Select all Collapse
+---+-----------+
|EUR|36.02077617|
|CNY| 4.68545827|
|TRY| 1.25422399|
|RUB| 0.35547840|
|USD|34.25070000|
+---+-----------+
Regards



G. N. Rao.

Hyderabad, India
acuellar
Posts: 1710
Joined: Tue Oct 28, 2008 06:26 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Thu Sep 28, 2023 01:14 PM
Excelent!! Mr Rao

Everyday you learn something new :D
Saludos,



Adhemar C.
sysctrl2
Posts: 1144
Joined: Mon Feb 05, 2007 07:15 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Thu Sep 28, 2023 03:48 PM
Mr Rao Tanks :o
Cesar Cortes Cruz

SysCtrl Software

Mexico



' Sin +- FWH es mejor "
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Fri Sep 29, 2023 04:41 PM

Saludos y agradecido por su apoyo,

Estar茅 experimentando esta implementaci贸n en el usuario donde no se puede ejecutar la pagina web.

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Fri Jan 05, 2024 01:57 PM
Saludos y agradecidos por su aporte, a continuaci贸n el codigo que me funcionado, sin embargo aleatoriamente genera incidencia, considero que la p谩gina tiene alto tr谩fico debido a que es utilizada en venezuela por la actividad comercial debido a que nuestra economia esta dolarizada.

Error WinHttp.WinHttpRequest/-1 El dato necesario para completar esta operaci贸n no est谩 disponible todav铆a.
https://learn.microsoft.com/es-es/windows/win32/winhttp/what-s-new-in-winhttp-5-1
otras literaturas. https://stackoverflow.com/questions/77320961/http-request-in-vba-using-winhttp-winhttprequest-5-1-basic-authentication-401-a
Code (fw): Select all Collapse
聽 聽oHttp:Open("GET","https://www.bcv.org.ve",.f.)
聽 聽 oHttp:Send()
聽 聽 cMemo:= oHttp:ResponseText()
Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Fri Jan 05, 2024 03:31 PM
Saludos,
Estoy experimentado el siguiente codigo, y no me genera incidencia, esto sucede mayormente 8am, local cuando los comercios estan leyendo el valor del U$S.
Code (fw): Select all Collapse
聽 聽 oHttp:Open("GET","https://www.bcv.org.ve",.f.)
聽 聽 oHttp:SetTimeouts(0, 60000, 30000, 120000) // https://www.autohotkey.com/boards/viewtopic.php?t=9136
聽 聽 oHttp:Send()
聽 聽 oHttp:WaitForResponse(90)
聽 聽 cMemo:= oHttp:ResponseText()
Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
CARLOS ATUNCAR
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Tue Jan 09, 2024 06:14 PM
nageswaragunupudi wrote:This is a short code:
Code (fw): Select all Collapse
#include "fivewin.ch"

function Main()

聽 聽local cText, cCur
聽 聽local aRates 聽 := {}

聽 聽cText 聽 聽:= WebPageContents( "https://www.bcv.org.ve/" )
聽 聽for each cCur in { "EUR", "CNY", "TRY", "RUB", "USD" }
聽 聽 聽 AAdd( aRates, GetRate( cCur, cText ) )
聽 聽next
聽 聽XBROWSER aRates SETUP oBrw:aCols[ 2 ]:cEditPicture := "999.999999"

return nil

static function GetRate( ccur, cText )

聽 聽local aRate 聽:= { cCur, 0 }
聽 聽local c, n

聽 聽if ( n := At( cCur, cText ) ) > 0
聽 聽 聽 c 聽 聽 := SubStr( cText, n, 200 )
聽 聽 聽 c 聽 聽 := AllTrim( AfterAtNum( "<strong>", BeforAtNum( "</strong>", c, 1 ) ) )
聽 聽 聽 c 聽 聽 := CharRepl( ",", c, "." )
聽 聽 聽 aRate[ 2 ] 聽:= Val( c )
聽 聽endif

return aRate
Result:
Code (fw): Select all Collapse
+---+-----------+
|EUR|36.02077617|
|CNY| 4.68545827|
|TRY| 1.25422399|
|RUB| 0.35547840|
|USD|34.25070000|
+---+-----------+

Con version trabaja este ejemplo ?
Carlos Atuncar - CaSoftSystem
Chincha - Per煤
+51983478218
carlosalbatun@gmail.com
nageswaragunupudi
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: TUrl()/TIPClientHttp() devuelve NOCONNET
Posted: Wed Jan 10, 2024 05:56 AM
Con version trabaja este ejemplo ?
All versions from 1701 onwards. (from year 2017 onwards)
Regards



G. N. Rao.

Hyderabad, India

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions