Új hozzászólás Aktív témák

  • Vision

    veterán

    Sziasztok,

    SOAP kapcsolatom paraméterezésével van gondolom. MNB árfolyamokat akarok lekérdezni, de a weboldalon nem találtam épkézláb segédletet hozzá. PHP/Java példa van, de szerintem azzal itt nem sokra megyek!

    Public Sub MNB_arfolyamok()

    Dim sURL As String
    Dim sEnv As String

    Set objHttp = CreateObject("MSXML2.XMLHTTP")
    sURL = "http://www.mnb.hu/arfolyamok.asmx?wsdl"


    sEnv = sEnv & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope"">"
    sEnv = sEnv & " <soap:Header>"
    sEnv = sEnv & " <soap:Body>"
    sEnv = sEnv & " <soap:Request>"
    sEnv = sEnv & " <soap:GetCurrentExchangeRates></soap:GetCurrentExchangeRates>"
    sEnv = sEnv & " </soap:Request>"
    sEnv = sEnv & " </soap:Header>"
    sEnv = sEnv & " </soap:Body>"
    sEnv = sEnv & "</soap:Envelope>"


    objHttp.Open "GET", sURL, False
    objHttp.setRequestHeader "Content-Type", "text/xml"

    objHttp.send sEnv
    MsgBox objHttp.responseText

    End Sub

Új hozzászólás Aktív témák