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

• #42431 sztanozs veterán szőröscica #42427

  Új Válasz 2019-12-10 10:08:34 #42431

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz szőröscica #42427 üzenetére

  1) nem látom, hogy a boundary definiálva lenne
  2) nem xml adat amit átadsz (nem beszédes a változónév)
  3) nincsenek definiálva a változók
  Nem bonyolítod el ezt egy kicsit?

  Én így küldök GET/POST ützenetet:
  Public Function CMD_ServiceXML(ByRef Vars As Variant, Query As String, Optional Method As String = "GET") As Object
    Dim strResponse As String
    Dim objHTTP As Object
    Set objHTTP = CreateObject("Microsoft.XMLHTTP")
    
    If IsArray(Vars) Then
        Dim var, vx
        vx = 0
        For Each var In Vars
            Query = Replace(Query, "{" & vx & "}", URLEncode(CStr(var)))
            vx = vx + 1
        Next
    Else
        Query = Replace(Query, "{0}", UCase(Vars))
    End If
    
    If UCase(Method) = "GET" Then
        objHTTP.Open "GET", Query, False
        objHTTP.Send
    ElseIf UCase(Method) = "POST" Then
        Dim URI
        URI = Split(Query, "?")
        objHTTP.Open "GET", URI(0), False
        objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
        objHTTP.Send URI(1)
    Else
        Set CMD_ServiceXML = Nothing
    End If
    
    If objHTTP.statusText = "OK" Then
        strResponse = objHTTP.ResponseText
        Set objHTTP = Nothing
    Else
        Set CMD_ServiceXML = Nothing
        Set objHTTP = Nothing
        Exit Function
    End If
    
    Set CMD_ServiceXML = CreateObject("Msxml2.DOMDocument.3.0")     ''// Using MSXML 3.0
    
    On Error Resume Next
    CMD_ServiceXML.LoadXML strResponse
    If err Then
        Debug.Print "<CMD XML>", Vars, strResponse
        err.Clear
        Set CMD_ServiceXML = Nothing
    End If
    On Error GoTo 0
    
End Function

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