|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(Classic ASP) Magyar Nemzeti Bank (MNB) Get CurrenciesThe 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.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% set rest = Server.CreateObject("Chilkat_9_5_0.Rest") ' URL: http://www.mnb.hu/arfolyamok.asmx bTls = 0 port = 80 bAutoReconnect = 1 success = rest.Connect("www.mnb.hu",port,bTls,bAutoReconnect) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( "ConnectFailReason: " & rest.ConnectFailReason) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If set xml = Server.CreateObject("Chilkat_9_5_0.Xml") xml.Tag = "soapenv:Envelope" success = xml.AddAttribute("xmlns:soapenv","http://schemas.xmlsoap.org/soap/envelope/") success = xml.AddAttribute("xmlns:web","http://www.mnb.hu/webservices/") xml.UpdateChildContent "soapenv:Header","" xml.UpdateChildContent "soapenv:Body|web:GetCurrencies","" success = rest.AddHeader("Content-Type","text/xml") success = rest.AddHeader("SOAPAction","/webservices/MNBArfolyamServiceSoap/GetCurrencies") success = rest.AddHeader("Accept","application/xml") set sbRequestBody = Server.CreateObject("Chilkat_9_5_0.StringBuilder") success = xml.GetXmlSb(sbRequestBody) set sbResponseBody = Server.CreateObject("Chilkat_9_5_0.StringBuilder") success = rest.FullRequestSb("POST","/arfolyamok.asmx",sbRequestBody,sbResponseBody) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( rest.LastErrorText) & "</pre>" Response.End End If respStatusCode = rest.ResponseStatusCode If (respStatusCode >= 400) Then Response.Write "<pre>" & Server.HTMLEncode( "Response Status Code = " & respStatusCode) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response Header:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( rest.ResponseHeader) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "Response Body:") & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( sbResponseBody.GetAsString()) & "</pre>" Response.End End If Response.Write "<pre>" & Server.HTMLEncode( "response status code = " & respStatusCode) & "</pre>" set xmlResponse = Server.CreateObject("Chilkat_9_5_0.Xml") success = xmlResponse.LoadSb(sbResponseBody,1) Response.Write "<pre>" & Server.HTMLEncode( xmlResponse.GetXml()) & "</pre>" ' 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 resultEncoded = xmlResponse.GetChildContent("s:Body|GetCurrenciesResponse|GetCurrenciesResult") Response.Write "<pre>" & Server.HTMLEncode( resultEncoded) & "</pre>" ' Entity decode the result to get XML. set sbResult = Server.CreateObject("Chilkat_9_5_0.StringBuilder") success = sbResult.Append(resultEncoded) success = sbResult.EntityDecode() ' Load it into XML. set xmlResult = Server.CreateObject("Chilkat_9_5_0.Xml") success = xmlResult.LoadSb(sbResult,1) Response.Write "<pre>" & Server.HTMLEncode( xmlResult.GetXml()) & "</pre>" ' 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> ' %> </body> </html> |
||||
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.