|
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
(DataFlex) 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.
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Handle hoRest Boolean iSuccess 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 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 |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.