Webserver - Es kommt nix zurück

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von gfcwfzkm.

    Webserver - Es kommt nix zurück

    Hi,

    ich habe auf vbarchiv.net einen Beispielcode gefunden, jedoch will dieser nicht so richtig.
    Egal, wie oft ich es versuche, es wird beim browser nix angezeigt.
    Hier mal den Code:

    VB.NET-Quellcode

    1. Imports System.Threading
    2. Imports System.Net
    3. Public Class MainForm
    4. Private Const basePath As String = "HttpServerRequest"
    5. Private Const Port As Integer = 80
    6. Private Const baseDirectory As String = "C:\SERVER\Test"
    8. Private Shared validExtensions As String() = {".HTM", ".HTML"}
    10. Private listener As HttpListener
    11. Private mainThread As Thread
    13. Protected Overrides Sub OnFormClosing(ByVal e As _
    14. System.Windows.Forms.FormClosingEventArgs)
    16. ' ToDo: ensure all worker threads are ended
    17. listener.Abort()
    18. mainThread.Join()
    19. End Sub
    21. Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
    22. mainThread = New Thread(AddressOf mainRequestLoop)
    23. mainThread.Start()
    24. End Sub
    26. Private Delegate Sub updateListBoxHandler(ByVal msg As String)
    28. Public Sub UpdateListBox(ByVal msg As String)
    29. If InvokeRequired Then
    30. Invoke(New updateListBoxHandler(AddressOf UpdateListBox), New String() {msg})
    31. Else
    32. ListBox1.Items.Add(msg)
    33. End If
    34. End Sub
    36. Private Sub mainRequestLoop()
    37. listener = New HttpListener()
    39. ' Use Http://hostName:9090/HttpServerRequest/datei.htm
    41. listener.Prefixes.Add("Http://*:" & Port.ToString() & "/" & basePath & "/")
    42. listener.Start()
    43. Try
    44. Do
    45. Dim ctx As HttpListenerContext = listener.GetContext()
    46. Dim worker As New HttpRequestWorker(ctx, Me)
    47. ' ToDo: use threadpool threads probably better
    48. Dim t As New Thread(AddressOf worker.ProcessRequest)
    49. t.Start()
    50. Loop
    51. Catch ex As Exception
    52. MsgBox(ex.ToString())
    53. End Try
    54. End Sub
    56. Private Class HttpRequestWorker
    58. Private context As HttpListenerContext
    59. Private caller As MainForm
    61. Public Sub New(ByVal context As HttpListenerContext, ByVal f As MainForm)
    62. Me.context = context
    63. caller = f
    64. End Sub
    66. ' Handle the request
    67. Public Sub ProcessRequest()
    69. Dim msg As String = context.Request.HttpMethod & " " & _
    70. context.Request.Url.ToString()
    72. caller.UpdateListBox(msg)
    74. Dim url As System.Uri = context.Request.Url
    76. Dim path As String = url.GetComponents(UriComponents.Path, _
    77. UriFormat.SafeUnescaped)
    78. Debug.WriteLine(path)
    80. ' Dim query As String = url.GetComponents(UriComponents.Query, UriFormat.SafeUnescaped)
    81. ' Debug.WriteLine(query)
    83. Dim parts(-1) As String
    84. Dim file As String = String.Empty
    85. Dim ext As String = String.Empty
    86. Dim response As HttpListenerResponse = context.Response
    88. Try
    89. Dim requestError As Boolean
    91. requestError = context.Request.HttpMethod.ToUpper() <> "GET" _
    92. OrElse String.IsNullOrEmpty(path)
    94. If Not requestError Then
    95. parts = path.Split("/")
    96. requestError = parts.Count <> 2 OrElse parts(0) <> basePath
    97. End If
    99. If Not requestError Then
    100. file = IO.Path.Combine(baseDirectory, parts(1))
    101. ext = IO.Path.GetExtension(parts(1).ToUpper())
    102. requestError = Not validExtensions.Contains(ext) OrElse Not IO.File.Exists(file)
    103. End If
    105. If Not requestError Then
    106. response.AddHeader("Cache-Control", "no-cache")
    107. response.AddHeader("Pragma", "no-cache")
    108. response.StatusCode = 200
    110. Dim encoding As System.Text.Encoding = System.Text.Encoding.Default
    111. response.ContentEncoding = encoding
    112. response.ContentType = "text/html"
    114. Dim responseHtml As String = IO.File.ReadAllText(file)
    115. Dim responseHtmlBytes() As Byte = encoding.GetBytes(responseHtml)
    116. response.ContentLength64 = responseHtmlBytes.Length
    118. Dim stream As IO.Stream = response.OutputStream
    119. stream.Write(responseHtmlBytes, 0, responseHtmlBytes.Length)
    120. stream.Close()
    121. Else
    122. response.StatusCode = 404
    123. End If
    124. Catch ex As Exception
    125. response.StatusCode = 500
    126. Finally
    127. response.Close()
    128. End Try
    129. End Sub
    130. End Class
    132. Private Sub StopButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles StopButton.Click
    133. Me.Close()
    134. End Sub
    135. End Class


    Es kommt kein Fehler unter VB.
    nur kann z.B. IE die Datei nicht finden.

    Bitte um hilfe...

    mfg

    Ja? Hab ich ihn etwa falsch getestet?

    hab Browser geöffnet, localhost/HttpServerRequest/datei.htm
    Es kommt: Nix


    Kapiers nicht. Hast du's anders gemacht?

    Edit:// Hier meine .htm Datei:

    HTML-Quellcode

    1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 transitional//EN">
    2. <html>
    3. <head>
    4. Hallo
    5. </head>
    6. <body>
    7. Hallo Welt
    9. </body>
    10. </html>

    hmm... kapiers einfach nicht.

    Auch beim schliessen kommt einen Fehler:
    Edit: Hier die Meldung vom IE

    EditEdit:::/// Lol, ich kann nicht local testen, nur von einem anderen Browser aus, also nicht local ^^

    Server funzt, entschuldigung für den unnötigen thread :S
    Bilder

    • Unbenannt.PNG

      36,03 kB, 489×228, 132 mal angesehen

    • Unbenannt1.PNG

      25,42 kB, 758×327, 92 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „gfcwfzkm“ ()

Facebook
Telefonspende