FiveTech Support Forums

#include "hbapi.h"
#include "hbapierr.h"
#include "hbapiitm.h"
#include "hbstack.h"
#include "curl/curl.h"

FUNCTION GetExchangeRates( cFromCurrency, cToCurrency )
    LOCAL cUrl := "https://api.exchangeratesapi.io/latest?base=" + cFromCurrency + "&symbols=" + cToCurrency
    LOCAL curl := curl_easy_init()
    LOCAL cResult := ""

    IF curl == NIL
        RETURN NIL
    ENDIF

    curl_easy_setopt( curl, CURLOPT_URL, cUrl )
    curl_easy_setopt( curl, CURLOPT_FOLLOWLOCATION, 1 )
    curl_easy_setopt( curl, CURLOPT_WRITEFUNCTION, { |buffer, size, nmemb, userp| buffer } )
    curl_easy_setopt( curl, CURLOPT_WRITEDATA, @cResult )

    IF curl_easy_perform( curl ) == CURLE_OK
        LOCAL oJson := JsonToObj( cResult )
        RETURN oJson.rates[cToCurrency]
    ENDIF

    curl_easy_cleanup( curl )
    RETURN NIL
END FUNCTION

FUNCTION GetExchangeRates( cCurrency, dDate )
    LOCAL cUrl := "https://www.bancaditalia.it/compiti/operazioni-cambi/serie-storiche/" + ;
                  TRANSFORM( YEAR( dDate ) ) + "-" + TRANSFORM( MONTH( dDate ), "@0" ) + "-" + ;
                  TRANSFORM( DAY( dDate ), "@0" ) + "/euro_valute_1/Valute_" + cCurrency + ".csv"
    LOCAL cResult := UrlGet( cUrl )
    LOCAL aLines := {}
    LOCAL nLineCount := 0
    LOCAL nRowIndex := 0

    // Divide la stringa in righe
    aLines := Explode( cResult, CRLF )
    nLineCount := Len( aLines )

    // Cerca la riga contenente i dati dei tassi di cambio
    FOR nRowIndex := 1 TO nLineCount
        IF AT( "data validita'", aLines[nRowIndex] ) > 0
            EXIT
        ENDIF
    NEXT

    // Se la riga è stata trovata, estrai i dati dei tassi di cambio
    IF nRowIndex <= nLineCount
        LOCAL aValues := {}
        LOCAL nValueCount := 0
        LOCAL nValueIndex := 0

        // Divide la riga in colonne
        aValues := Explode( aLines[nRowIndex], ";" )
        nValueCount := Len( aValues )

        // Cerca il valore corrispondente alla valuta richiesta
        FOR nValueIndex := 1 TO nValueCount
            IF AT( cCurrency, aValues[nValueIndex] ) > 0
                RETURN Val( aValues[nValueIndex + 1] )
            ENDIF
        NEXT
    ENDIF

    // Se i dati dei tassi di cambio non sono stati trovati, restituisci 0
    RETURN 0
END FUNCTION

FUNCTION GetExchangeRates( cCurrency, dDate )
    LOCAL cUrl := "https://tassidicambio.bancaditalia.it/terzevalute-wf-web/rest/v1.0/cross/" + ;
                  cCurrency + "/EUR/" + DTOC( dDate, "YYYYMMDD" )
    LOCAL cResult := NetHttpReq( cUrl )
    LOCAL oJson := JsonObj()
    LOCAL aRates := {}
    LOCAL nRateCount := 0
    LOCAL nRateIndex := 0

    // Analizza la risposta JSON della richiesta HTTP
    JsonParse( oJson, cResult )

    // Estrai i dati dei tassi di cambio dalla risposta JSON
    aRates := oJson->rates
    nRateCount := Len( aRates )

    // Cerca il valore corrispondente alla valuta richiesta
    FOR nRateIndex := 1 TO nRateCount
        IF aRates[nRateIndex]->currencyCode == cCurrency
            RETURN aRates[nRateIndex]->rate
        ENDIF
    NEXT

    // Se i dati dei tassi di cambio non sono stati trovati, restituisci 0
    RETURN 0
END FUNCTION

#include "FiveWin.ch"

 
function Main()
    local cWebContent :=  WebPageContents("https://api.exchangerate-api.com/v4/latest/EUR"  )
    ?  cWebContent
 
return nil

#include "FiveWin.ch"
Function main()

   GetCurrency("EUR")

   return nil

function GetCurrency(cCurrency)
        local cRet
        local cData
        local cFile := "test.txt"
        local cBuff
        local nHndl
        local aShow
        local nI
        local cUrl := "https://api.exchangerate-api.com/v4/latest/"+cCurrency
        local ctext,adata


    IF IsInternet()

               cData := WebPageContents( cUrl )

      if Empty( cData )
          ? "Invalid URL"
       else
            cData := subStr( cData, at( "rates",  cData )+8 )
            nHndl := fCreate( cFile )
            fWrite( nHndl,cData )
            fClose( nHndl )
            IF ( nHndl := fOpen( cFile ) ) < 1
                msgStop( "UNABLE TO OPEN: " + cFile  )
             ELSE
                aShow := {}
                cText    := HB_MEMOREAD( cFile)
                cText    := FW_ALLTRIM( cText )
                cText    := StrTran( cText, CRLF,  "," )
                aData    := HB_ATokens( cText,  "," )

                  for n= 1 to len(adata)
                     aadd(aShow, HB_ATokens( adata[n],  ":" )  )
                  next

                xbrowser aShow

     ENDIF
         endif
      else
         MsgAlert("check Internet!","")
          endif
        return nil

//-------------------------------------------------------------------------//

aShow := {}
                cText    := MEMOREAD( cFile)
                
                cText    := ALLTRIM( cText )
                cText    := StrTran( cText, CRLF,  "," )
                
                    cText    := StrTran(cText, '"', '' )    
                
                
                aData    := HB_ATokens( cText,  "," )