DataFlex
DataFlex
Magyar Nemzeti Bank (MNB) Get Currencies
See more REST Misc Examples
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 DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoRest
Boolean iBTls
Integer iPort
Boolean iBAutoReconnect
Handle hoXml
Variant vSbRequestBody
Handle hoSbRequestBody
Variant vSbResponseBody
Handle hoSbResponseBody
Integer iRespStatusCode
Handle hoXmlResponse
String sResultEncoded
Variant vSbResult
Handle hoSbResult
Result Handle hoXmlResult
String sTemp1
Integer iTemp1
Move False To iSuccess
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// URL: http://www.mnb.hu/arfolyamok.asmx
Move False To iBTls
Move 80 To iPort
Move True To iBAutoReconnect
Get ComConnect Of hoRest "www.mnb.hu" iPort iBTls iBAutoReconnect To iSuccess
If (iSuccess <> True) Begin
Get ComConnectFailReason Of hoRest To iTemp1
Showln "ConnectFailReason: " iTemp1
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
// --------------------------------------------------------------------------------
// Also see Chilkat's Online WSDL Code Generator
// to generate code and SOAP Request and Response XML for each operation in a WSDL.
// --------------------------------------------------------------------------------
Get Create (RefClass(cComChilkatXml)) To hoXml
If (Not(IsComObjectCreated(hoXml))) Begin
Send CreateComObject of hoXml
End
Set ComTag Of hoXml To "soapenv:Envelope"
Get ComAddAttribute Of hoXml "xmlns:soapenv" "http://schemas.xmlsoap.org/soap/envelope/" To iSuccess
Get ComAddAttribute Of hoXml "xmlns:web" "http://www.mnb.hu/webservices/" To iSuccess
Send ComUpdateChildContent To hoXml "soapenv:Header" ""
Send ComUpdateChildContent To hoXml "soapenv:Body|web:GetCurrencies" ""
Get ComAddHeader Of hoRest "Content-Type" "text/xml" To iSuccess
Get ComAddHeader Of hoRest "SOAPAction" "/webservices/MNBArfolyamServiceSoap/GetCurrencies" To iSuccess
Get ComAddHeader Of hoRest "Accept" "application/xml" To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbRequestBody
If (Not(IsComObjectCreated(hoSbRequestBody))) Begin
Send CreateComObject of hoSbRequestBody
End
Get pvComObject of hoSbRequestBody to vSbRequestBody
Get ComGetXmlSb Of hoXml vSbRequestBody To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
Send CreateComObject of hoSbResponseBody
End
Get pvComObject of hoSbRequestBody to vSbRequestBody
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComFullRequestSb Of hoRest "POST" "/arfolyamok.asmx" vSbRequestBody vSbResponseBody To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComResponseStatusCode Of hoRest To iRespStatusCode
If (iRespStatusCode >= 400) Begin
Showln "Response Status Code = " iRespStatusCode
Showln "Response Header:"
Get ComResponseHeader Of hoRest To sTemp1
Showln sTemp1
Showln "Response Body:"
Get ComGetAsString Of hoSbResponseBody To sTemp1
Showln sTemp1
Procedure_Return
End
Showln "response status code = " iRespStatusCode
Get Create (RefClass(cComChilkatXml)) To hoXmlResponse
If (Not(IsComObjectCreated(hoXmlResponse))) Begin
Send CreateComObject of hoXmlResponse
End
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComLoadSb Of hoXmlResponse vSbResponseBody True To iSuccess
Get ComGetXml Of hoXmlResponse To sTemp1
Showln sTemp1
// 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><MNBCurrencies><Currencies><Curr>HUF</Curr><Curr>EUR</Curr><Curr>AUD</Curr> ... </MNBCurrencies></GetCurrenciesResult>
// </GetCurrenciesResponse>
// </s:Body>
// </s:Envelope>
// Get the GetCurrenciesResult
Get ComGetChildContent Of hoXmlResponse "s:Body|GetCurrenciesResponse|GetCurrenciesResult" To sResultEncoded
Showln sResultEncoded
// Entity decode the result to get XML.
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResult
If (Not(IsComObjectCreated(hoSbResult))) Begin
Send CreateComObject of hoSbResult
End
Get ComAppend Of hoSbResult sResultEncoded To iSuccess
Get ComEntityDecode Of hoSbResult To iSuccess
// Load it into XML.
Get Create (RefClass(cComChilkatXml)) To hoXmlResult
If (Not(IsComObjectCreated(hoXmlResult))) Begin
Send CreateComObject of hoXmlResult
End
Get pvComObject of hoSbResult to vSbResult
Get ComLoadSb Of hoXmlResult vSbResult True To iSuccess
Get ComGetXml Of hoXmlResult To sTemp1
Showln sTemp1
// 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>
//
End_Procedure