FiveTech Software tech support forums

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

 

Code: Select all  Expand view

  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
 

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.

sysctrl2 wrote:y si pruebas de otro modo?

Code: Select all  Expand view

  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
 

Code: Select all  Expand view

cText := WebPageContents( "https://www.bcv.org.ve" )

Code: Select all  Expand view

#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

Code: Select all  Expand view

+---+-----------+
|EUR|36.02077617|
|CNY| 4.68545827|
|TRY| 1.25422399|
|RUB| 0.35547840|
|USD|34.25070000|
+---+-----------+

Code: Select all  Expand view

   oHttp:Open("GET","https://www.bcv.org.ve",.f.)
    oHttp:Send()
    cMemo:= oHttp:ResponseText()
 

Code: Select all  Expand view

    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()

 

nageswaragunupudi wrote:This is a short code:

Code: Select all  Expand view

#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: Select all  Expand view

+---+-----------+
|EUR|36.02077617|
|CNY| 4.68545827|
|TRY| 1.25422399|
|RUB| 0.35547840|
|USD|34.25070000|
+---+-----------+

Con version trabaja este ejemplo ?