VB.net PostAsync mit Json Body(Payload)

  • VB.NET
  • .NET (FX) 4.5–4.8

    VB.net PostAsync mit Json Body(Payload)

    Moin,

    ich versuche gerade per VB einen Post anzusetzen, aber mit Json Payload.

    Ich muss diesen Body mitgeben:
    var data = {};
    data["Value"] = value;


    So sieht mein Code aus:

    VB.NET-Quellcode

    1. ​ Async Function POST_Async(ByVal str As String) As Task(Of String)
    3. 'Zertifikat akzeptieren
    4. System.Net.ServicePointManager.ServerCertificateValidationCallback =
    5. Function(se As Object,
    6. cert As System.Security.Cryptography.X509Certificates.X509Certificate,
    7. chain As System.Security.Cryptography.X509Certificates.X509Chain,
    8. sslerror As System.Net.Security.SslPolicyErrors) True
    10. Dim h As System.Net.Http.HttpClientHandler = New System.Net.Http.HttpClientHandler()
    11. Dim c = New Net.NetworkCredential("webapi_ext", "test123_")
    12. h.Credentials = c
    13. Dim values = New Dictionary(Of String, String) From {{"complete", "true"}}
    14. Dim content = New System.Net.Http.FormUrlEncodedContent(values)
    16. Dim client As System.Net.Http.HttpClient = New System.Net.Http.HttpClient(h)
    17. client.Timeout = New TimeSpan(0, 0, 15)
    18. Dim response = Await client.PostAsync("xxxxxxxxxxxxxxxxxx", content)
    19. Dim responseString = response.Headers.ToString
    20. 'Dim responseString = Await response.Content.ReadAsStringAsync()
    21. HierSchreibIchWasRein(responseString)
    22. Return responseString
    23. End Function



    In Javascript habe ich das so gelöst:

    Quellcode

    1. ​var data = {};
    2. data["Value"] = value;
    4. var putUrl = PIWebAPIURL + "streams/" + webid + "/value";
    5. $http.post(putUrl,JSON.stringify(data),{withCredentials: true}).success(function(resp){
    8. });



    Ich habe gelesen das das mit JsonMediaTypeFormatter, aber wie?

    Hat evtl jemand einen Idee dazu?

Facebook
Telefonspende