Silverlight POST Request

  • Silverlight

    Silverlight POST Request

    Abend,

    ich versuche derzeit einen einfachen POST in Silverlight durchzuführen, habe jedoch starke Probleme bei der Fehlersuche. Den Code habe ich von der Mircosoft Seite.

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.Net
    3. Imports System.IO
    4. Imports System.Text
    5. Imports System.Threading
    6. Imports Microsoft.VisualBasic
    8. Class HttpWebRequestBeginGetRequest
    9. 'Public Shared allDone As New ManualResetEvent(False)
    11. Public Shared Sub Main()
    13. ' Create a new HttpWebRequest object.
    14. Dim request As HttpWebRequest = CType(WebRequest.Create("http://testseite.de/test.php"), _
    15. HttpWebRequest)
    17. ' Set the ContentType property.
    18. request.ContentType = "application/x-www-form-urlencoded"
    20. ' Set the Method property to 'POST' to post data to the URI.
    21. request.Method = "POST"
    22. ' Start the asynchronous operation.
    23. Dim result As IAsyncResult = _
    24. CType(request.BeginGetRequestStream(AddressOf GetRequestStreamCallback, request), _
    25. IAsyncResult)
    27. ' Keep the main thread from continuing while the asynchronous
    28. ' operation completes. A real world application
    29. ' could do something useful such as updating its user interface.
    30. 'allDone.WaitOne()
    31. End Sub ' Main
    33. Private Shared Sub GetRequestStreamCallback(ByVal asynchronousResult As IAsyncResult)
    34. Dim request As HttpWebRequest = CType(asynchronousResult.AsyncState, HttpWebRequest)
    36. ' End the operation
    37. Dim postStream As Stream = request.EndGetRequestStream(asynchronousResult)
    38. Dim postData As [String] = "user=asdf"
    40. ' Convert the string into byte array.
    41. Dim byteArray As Byte() = Encoding.UTF8.GetBytes(postData)
    43. ' Write to the stream.
    44. postStream.Write(byteArray, 0, postData.Length)
    45. postStream.Close()
    47. ' Start the asynchronous operation to get the response
    48. Dim result As IAsyncResult = _
    49. CType(request.BeginGetResponse(AddressOf GetResponseCallback, request), _
    50. IAsyncResult)
    51. End Sub ' ReadRequestStreamCallback
    53. Private Shared Sub GetResponseCallback(ByVal asynchronousResult As IAsyncResult)
    54. Dim request As HttpWebRequest = CType(asynchronousResult.AsyncState, HttpWebRequest)
    56. ' Get the response.
    57. Dim response As HttpWebResponse = CType(request.EndGetResponse(asynchronousResult), _
    58. HttpWebResponse)
    60. Dim streamResponse As Stream = response.GetResponseStream()
    61. Dim streamRead As New StreamReader(streamResponse)
    62. Dim responseString As String = streamRead.ReadToEnd()
    64. MessageBox.Show(responseString)
    66. ' Close Stream object.
    67. streamResponse.Close()
    68. streamRead.Close()
    70. ' Release the HttpWebResponse.
    71. 'allDone.Set()
    72. response.Close()
    73. End Sub ' ReadResponseCallback
    75. End Class ' HttpWebRequest_BeginGetRequest


    Aufrufen tue ich das ganze über "HttpWebRequestBeginGetRequest.Main()"
    Es tut sich leider nur wenig, habe mit Messageboxen geschaut wie weit das ganze läuft und nach dem Main() Sub war schon Schluss.

Facebook
Telefonspende