HttpListenerResponse Daten per POST schicken

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von LaMiy.

    HttpListenerResponse Daten per POST schicken

    Im beziehe mich auf dieses Thema. [VB.NET] Http Listener
    Dazu mache ich einen neuen Thread, da sich das Thema um das es jetzt geht abspaltet.

    Undzwar geht es darum, dass ich mit Hilfe von einem HttpListener reagieren will, und Daten per POST an ein Skript senden will.
    Ohne POST klappt es prima.

    VB.NET-Quellcode

    1. Option Strict on
    2. Imports System.Net
    4. Module Module1
    6. Sub Main()
    7. Listen()
    8. End Sub
    10. Public Sub Listen()
    11. If Not HttpListener.IsSupported Then
    12. Console.WriteLine("Windows XP SP2 or Server 2003 is required to use the HttpListener class.")
    13. Return
    14. End If
    15. Using listener As New HttpListener()
    16. listener.Prefixes.Add("http://*:80/")
    17. listener.Start()
    19. Console.WriteLine("Listening...")
    20. ' Note: The GetContext method blocks while waiting for a request.
    21. Dim context As HttpListenerContext = listener.GetContext()
    22. Dim request As HttpListenerRequest = context.Request
    24. ' Obtain a response object.
    25. Dim response As HttpListenerResponse = context.Response
    27. ' Construct a response.
    28. Dim responseString As String = "x=7"
    29. Dim buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(responseString)
    30. ' Get a response stream and write the response to it.
    32. response.ContentLength64 = buffer.Length
    33. Dim output As System.IO.Stream = response.OutputStream
    34. output.Write(buffer, 0, buffer.Length)
    35. ' You must close the output stream.
    36. output.Close()
    37. 'listener.[Stop]()
    38. End Using
    39. End Sub
    40. End Module


    Ich habe nun die ersten zwei Ergebnisse der Google-Suche durch und bin echt am verzweifeln.
    Weiß jemand da etwas zu ?

    Vielen Dank und ein schönes Restwochenende.

    @slice
    Danke zunächst für dein Bemühen, aber hier handelt es sich um HttpListenerRequest nicht um HttpWebRequest, dementsprechen kann ich z.B nicht die Method="POST" setzten.

    Edit: Ich kann aber ausgehend von meinem Response die URl abrufen und eine Webrequest erzeugen. Das probier ich mal.

    Edit2: Ich hab es so probiert.

    VB.NET-Quellcode

    1. Option Strict on
    2. Imports System.Net
    4. Module Module1
    6. Sub Main()
    7. Listen()
    8. End Sub
    10. Public Sub Listen()
    11. If Not HttpListener.IsSupported Then
    12. Console.WriteLine("Windows XP SP2 or Server 2003 is required to use the HttpListener class.")
    13. Return
    14. End If
    15. Using listener As New HttpListener()
    16. listener.Prefixes.Add("http://*:80/")
    17. listener.Start()
    19. Console.WriteLine("Listening...")
    20. ' Note: The GetContext method blocks while waiting for a request.
    21. Dim context As HttpListenerContext = listener.GetContext()
    22. Dim request As HttpListenerRequest = context.Request
    23. ' Console.WriteLine(request.Url)
    25. Dim webrequest As WebRequest = webrequest.Create(request.Url)
    26. webrequest.Credentials = CredentialCache.DefaultCredentials
    27. webrequest.Method = "POST"
    28. webrequest.ContentType = "application/x-www-form-urlencoded"
    30. Dim responseString As String = "x=7"
    31. Dim buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(responseString)
    33. Dim stream = webrequest.GetRequestStream()
    34. stream.Write(buffer, 0, buffer.Length)
    35. stream.Close()
    37. End Using
    38. End Sub
    39. End Module


    Es kommt aber vom Browser wenn ich eine PHP-Seite aufrufe die Meldung, dass keine Verbindung hergestellt werden konnte. Das ist ja auch logisch da es eine PHP Seite ist und xampp aus ist.
    Weiß jemand weiter ?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „LaMiy“ ()