(Visual FoxPro) Magyar Nemzeti Bank (MNB) Get Currencies

The Magyar Nemzeti Bank (MNB) is the central bank of Hungary. In this role, its primary objective is to achieve and maintain price stability. The MNB website is available to visitors in both Hungarian and English. The MNB provides the Arfolyam (trans. Exchange Rate) API, which can be used to retrieve current and historic currency exchange rates. This service uses SOAP calls issued in XML format.

This example gets a list of currencies.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loRest
LOCAL lnSuccess
LOCAL lnBTls
LOCAL lnPort
LOCAL lnBAutoReconnect
LOCAL loXml
LOCAL loSbRequestBody
LOCAL loSbResponseBody
LOCAL lnRespStatusCode
LOCAL loXmlResponse
LOCAL lcResultEncoded
LOCAL loSbResult
LOCAL loXmlResult

loRest = CreateObject('Chilkat_9_5_0.Rest')

*  URL: http://www.mnb.hu/arfolyamok.asmx
lnBTls = 0
lnPort = 80
lnBAutoReconnect = 1
lnSuccess = loRest.Connect("www.mnb.hu",lnPort,lnBTls,lnBAutoReconnect)
IF (lnSuccess <> 1) THEN
    ? "ConnectFailReason: " + STR(loRest.ConnectFailReason)
    ? loRest.LastErrorText
    RELEASE loRest
    CANCEL
ENDIF

loXml = CreateObject('Chilkat_9_5_0.Xml')
loXml.Tag = "soapenv:Envelope"
loXml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/")
loXml.AddAttribute("xmlns:web","http://www.mnb.hu/webservices/")
loXml.UpdateChildContent("soapenv:Header","")
loXml.UpdateChildContent("soapenv:Body|web:GetCurrencies","")

loRest.AddHeader("Content-Type","text/xml")
loRest.AddHeader("SOAPAction","/webservices/MNBArfolyamServiceSoap/GetCurrencies")
loRest.AddHeader("Accept","application/xml")

loSbRequestBody = CreateObject('Chilkat_9_5_0.StringBuilder')
loXml.GetXmlSb(loSbRequestBody)
loSbResponseBody = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loRest.FullRequestSb("POST","/arfolyamok.asmx",loSbRequestBody,loSbResponseBody)
IF (lnSuccess <> 1) THEN
    ? loRest.LastErrorText
    RELEASE loRest
    RELEASE loXml
    RELEASE loSbRequestBody
    RELEASE loSbResponseBody
    CANCEL
ENDIF

lnRespStatusCode = loRest.ResponseStatusCode
IF (lnRespStatusCode >= 400) THEN
    ? "Response Status Code = " + STR(lnRespStatusCode)
    ? "Response Header:"
    ? loRest.ResponseHeader
    ? "Response Body:"
    ? loSbResponseBody.GetAsString()
    RELEASE loRest
    RELEASE loXml
    RELEASE loSbRequestBody
    RELEASE loSbResponseBody
    CANCEL
ENDIF

? "response status code = " + STR(lnRespStatusCode)

loXmlResponse = CreateObject('Chilkat_9_5_0.Xml')
loXmlResponse.LoadSb(loSbResponseBody,1)
? loXmlResponse.GetXml()

*  The XML response contains this:
*  <?xml version="1.0" encoding="utf-8" ?>
*  <s:Envelope xmlns:s="http://schemas.xmlsoap.org/soap/envelope/">
*      <s:Body>
*          <GetCurrenciesResponse xmlns="http://www.mnb.hu/webservices/" xmlns:i="http://www.w3.org/2001/XMLSchema-instance">
*              <GetCurrenciesResult>&lt;MNBCurrencies&gt;&lt;Currencies&gt;&lt;Curr&gt;HUF&lt;/Curr&gt;&lt;Curr&gt;EUR&lt;/Curr&gt;&lt;Curr&gt;AUD&lt;/Curr&gt; ... &lt;/MNBCurrencies&gt;</GetCurrenciesResult>
*          </GetCurrenciesResponse>
*      </s:Body>
*  </s:Envelope>

*  Get the GetCurrenciesResult
lcResultEncoded = loXmlResponse.GetChildContent("s:Body|GetCurrenciesResponse|GetCurrenciesResult")
? lcResultEncoded

*  Entity decode the result to get XML.
loSbResult = CreateObject('Chilkat_9_5_0.StringBuilder')
loSbResult.Append(lcResultEncoded)
loSbResult.EntityDecode()

*  Load it into XML.
loXmlResult = CreateObject('Chilkat_9_5_0.Xml')
loXmlResult.LoadSb(loSbResult,1)
? loXmlResult.GetXml()

*  The result is this:

*  <?xml version="1.0" encoding="utf-8" ?>
*  <MNBCurrencies>
*      <Currencies>
*          <Curr>HUF</Curr>
*          <Curr>EUR</Curr>
*          <Curr>AUD</Curr>
*          <Curr>BGN</Curr>
*          <Curr>BRL</Curr>
*          <Curr>CAD</Curr>
*          <Curr>CHF</Curr>
*          <Curr>CNY</Curr>
*          <Curr>CZK</Curr>
*          <Curr>DKK</Curr>
*          <Curr>GBP</Curr>
*          <Curr>HKD</Curr>
*          <Curr>HRK</Curr>
*          <Curr>IDR</Curr>
*          <Curr>ILS</Curr>
*          <Curr>INR</Curr>
*          <Curr>ISK</Curr>
*          <Curr>JPY</Curr>
*          <Curr>KRW</Curr>
*          <Curr>MXN</Curr>
*          <Curr>MYR</Curr>
*          <Curr>NOK</Curr>
*          <Curr>NZD</Curr>
*          <Curr>PHP</Curr>
*          <Curr>PLN</Curr>
*          <Curr>RON</Curr>
*          <Curr>RSD</Curr>
*          <Curr>RUB</Curr>
*          <Curr>SEK</Curr>
*          <Curr>SGD</Curr>
*          <Curr>THB</Curr>
*          <Curr>TRY</Curr>
*          <Curr>UAH</Curr>
*          <Curr>USD</Curr>
*          <Curr>ZAR</Curr>
*          <Curr>ATS</Curr>
*          <Curr>AUP</Curr>
*          <Curr>BEF</Curr>
*          <Curr>BGL</Curr>
*          <Curr>CYN</Curr>
*          <Curr>CSD</Curr>
*          <Curr>CSK</Curr>
*          <Curr>DDM</Curr>
*          <Curr>DEM</Curr>
*          <Curr>EEK</Curr>
*          <Curr>EGP</Curr>
*          <Curr>ESP</Curr>
*          <Curr>FIM</Curr>
*          <Curr>FRF</Curr>
*          <Curr>GHP</Curr>
*          <Curr>GRD</Curr>
*          <Curr>IEP</Curr>
*          <Curr>ITL</Curr>
*          <Curr>KPW</Curr>
*          <Curr>KWD</Curr>
*          <Curr>LBP</Curr>
*          <Curr>LTL</Curr>
*          <Curr>LUF</Curr>
*          <Curr>LVL</Curr>
*          <Curr>MNT</Curr>
*          <Curr>NLG</Curr>
*          <Curr>OAL</Curr>
*          <Curr>OBL</Curr>
*          <Curr>OFR</Curr>
*          <Curr>ORB</Curr>
*          <Curr>PKR</Curr>
*          <Curr>PTE</Curr>
*          <Curr>ROL</Curr>
*          <Curr>SDP</Curr>
*          <Curr>SIT</Curr>
*          <Curr>SKK</Curr>
*          <Curr>SUR</Curr>
*          <Curr>VND</Curr>
*          <Curr>XEU</Curr>
*          <Curr>XTR</Curr>
*          <Curr>YUD</Curr>
*      </Currencies>
*  </MNBCurrencies>
* 

RELEASE loRest
RELEASE loXml
RELEASE loSbRequestBody
RELEASE loSbResponseBody
RELEASE loXmlResponse
RELEASE loSbResult
RELEASE loXmlResult