Webserver erstellen?

  • VB.NET

Es gibt 23 Antworten in diesem Thema. Der letzte Beitrag () ist von Thunderbolt.

    HTML Dateien anzeigen?
    Ich würde sagen, du musst zuerst mal verstehen, was überhaupt ein Webserver ist.
    Der besteht nämlich nicht nur aus dem "HTML Dateien anzeigen".
    Du musst bspw. auch mittels einem PHP-Parser den PHP-Code in HTML umwandeln.

    Dann musst du den HTML-Code parsen, d.h. alle Elemente der Datei in eine sichtbare Website umwandeln.
    MrLee hat mal einen kleinen Parser gepostet, auch ich habe schon mal versucht einen HTML Parser zu schreiben.
    Lief anfangs sehr gut, doch spätestens beim Javascript und/oder beim anzeigen von Flash-Dateien wird es scheitern.

    Hab ich gesagt das ein Webserver nur aus html dateien anzeigen besteht? Mit ist schon klar was ein webserver ist und für den server kann ich auch den multiserver von kevin nehmen. aber wie kann ich html dateien anzeigen? danke für jede hilfe.

    Dann musst du den HTML-Code parsen, d.h. alle Elemente der Datei in eine sichtbare Website umwandeln.

    Parsen und Interpretieren tut der Browser. Der Server stellt die reinen Daten bereit, d.h. du überträgst die HTML wie alle anderen Dateien auch.
    Ablauf in etwa so: Der Request beim Aufruf geht ein, als Antwort sendest du den Header, damit der Browser weiß, was mit dem folgenden zu tun ist, dann sendest du die HTML. Der Browser wird diese interpretieren und Bilder und andere externe Inhalte jedes mal als neuen Request an den Server stellen. Auch diese muss der Server mit dem richtigen Header in einem unabhängigen Vorgang beantworten. Irgendwann ist dann alles geladen, die Website ist vollständig.
    Nur Serverseitiges wie PHP wirst du wie bereits erwähnt selbst implementieren müssen, wenn du es überhaupt brauchst.

    Danke. @SystemUnknown hier mal der Code:

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Net.Sockets
    3. Imports System.Threading
    4. Imports System.Text
    5. Imports System.IO
    6. Public Class Module1
    8. Public Shared Sub Main()
    9. Try
    10. Dim hostName As String = Dns.GetHostName()
    11. Dim serverIP As IPAddress = Dns.Resolve(hostName).AddressList(0)
    13. ' Web Server Port = 80
    14. Dim Port As String = "80"
    16. Dim tcpListener As New TcpListener(serverIP, Int32.Parse(Port))
    18. tcpListener.Start()
    20. Console.WriteLine("Web server started at: " & serverIP.ToString() & ":" & Port)
    22. Dim httpSession As New HTTPSession(tcpListener)
    24. Dim serverThread As New Thread(New ThreadStart(AddressOf httpSession.ProcessThread))
    26. serverThread.Start()
    28. Catch ex As Exception
    29. Console.WriteLine(ex.StackTrace.ToString())
    30. End Try
    31. End Sub
    32. End Class
    37. Public Class HTTPSession
    39. Private tcpListener As System.Net.Sockets.TcpListener
    40. Private clientSocket As System.Net.Sockets.Socket
    42. Public Sub New(ByVal tcpListener As System.Net.Sockets.TcpListener)
    43. Me.tcpListener = tcpListener
    44. End Sub
    46. Public Sub ProcessThread()
    47. While (True)
    48. Try
    49. clientSocket = tcpListener.AcceptSocket()
    51. ' Socket Information
    52. Dim clientInfo As IPEndPoint = CType(clientSocket.RemoteEndPoint, IPEndPoint)
    54. Console.WriteLine("Client: " + clientInfo.Address.ToString() + ":" + clientInfo.Port.ToString())
    56. ' Set Thread for each Web Browser Connection
    57. Dim clientThread As New Thread(New ThreadStart(AddressOf ProcessRequest))
    59. clientThread.Start()
    61. Catch ex As Exception
    62. Console.WriteLine(ex.StackTrace.ToString())
    64. If clientSocket.Connected Then
    65. clientSocket.Close()
    66. End If
    68. End Try
    69. End While
    70. End Sub
    72. Protected Sub ProcessRequest()
    73. Dim recvBytes(1024) As Byte
    74. Dim htmlReq As String = Nothing
    75. Dim bytes As Int32
    77. Try
    78. ' Receive HTTP Request from Web Browser
    79. bytes = clientSocket.Receive(recvBytes, 0, clientSocket.Available, SocketFlags.None)
    80. htmlReq = Encoding.ASCII.GetString(recvBytes, 0, bytes)
    82. Console.WriteLine("HTTP Request: ")
    83. Console.WriteLine(htmlReq)
    85. ' Set WWW Root Path
    86. Dim rootPath As String = Directory.GetCurrentDirectory() & "\WWWRoot\"
    88. ' Set default page
    89. Dim defaultPage As String = "index.html"
    91. Dim strArray() As String
    92. Dim strRequest As String
    94. strArray = htmlReq.Trim.Split(" ")
    96. ' Determine the HTTP method (GET only)
    97. If strArray(0).Trim().ToUpper.Equals("GET") Then
    98. strRequest = strArray(1).Trim
    100. If (strRequest.StartsWith("/")) Then
    101. strRequest = strRequest.Substring(1)
    102. End If
    104. If (strRequest.EndsWith("/") Or strRequest.Equals("")) Then
    105. strRequest = strRequest & defaultPage
    106. End If
    108. strRequest = rootPath & strRequest
    110. sendHTMLResponse(strRequest)
    112. Else ' Not HTTP GET method
    113. strRequest = rootPath & "Error\" & "400.html"
    115. sendHTMLResponse(strRequest)
    116. End If
    118. Catch ex As Exception
    119. Console.WriteLine(ex.StackTrace.ToString())
    121. If clientSocket.Connected Then
    122. clientSocket.Close()
    123. End If
    124. End Try
    125. End Sub
    127. ' Send HTTP Response
    128. Private Sub sendHTMLResponse(ByVal httpRequest As String)
    129. Try
    130. ' Get the file content of HTTP Request
    131. Dim streamReader As StreamReader = New StreamReader(httpRequest)
    132. Dim strBuff As String = streamReader.ReadToEnd()
    133. streamReader.Close()
    134. streamReader = Nothing
    136. ' The content Length of HTTP Request
    137. Dim respByte() As Byte = Encoding.ASCII.GetBytes(strBuff)
    139. ' Set HTML Header
    140. Dim htmlHeader As String = _
    141. "HTTP/1.0 200 OK" & ControlChars.CrLf & _
    142. "Server: WebServer 1.0" & ControlChars.CrLf & _
    143. "Content-Length: " & respByte.Length & ControlChars.CrLf & _
    144. "Content-Type: " & getContentType(httpRequest) & _
    145. ControlChars.CrLf & ControlChars.CrLf
    147. ' The content Length of HTML Header
    148. Dim headerByte() As Byte = Encoding.ASCII.GetBytes(htmlHeader)
    150. Console.WriteLine("HTML Header: " & ControlChars.CrLf & htmlHeader)
    152. ' Send HTML Header back to Web Browser
    153. clientSocket.Send(headerByte, 0, headerByte.Length, SocketFlags.None)
    155. ' Send HTML Content back to Web Browser
    156. clientSocket.Send(respByte, 0, respByte.Length, SocketFlags.None)
    158. ' Close HTTP Socket connection
    159. clientSocket.Shutdown(SocketShutdown.Both)
    160. clientSocket.Close()
    162. Catch ex As Exception
    163. Console.WriteLine(ex.StackTrace.ToString())
    165. If clientSocket.Connected Then
    166. clientSocket.Close()
    167. End If
    168. End Try
    169. End Sub
    171. ' Get Content Type
    172. Private Function getContentType(ByVal httpRequest As String) As String
    173. If (httpRequest.EndsWith("html")) Then
    174. Return "text/html"
    175. ElseIf (httpRequest.EndsWith("htm")) Then
    176. Return "text/html"
    177. ElseIf (httpRequest.EndsWith("txt")) Then
    178. Return "text/plain"
    179. ElseIf (httpRequest.EndsWith("gif")) Then
    180. Return "image/gif"
    181. ElseIf (httpRequest.EndsWith("jpg")) Then
    182. Return "image/jpeg"
    183. ElseIf (httpRequest.EndsWith("jpeg")) Then
    184. Return "image/jpeg"
    185. ElseIf (httpRequest.EndsWith("pdf")) Then
    186. Return "application/pdf"
    187. ElseIf (httpRequest.EndsWith("pdf")) Then
    188. Return "application/pdf"
    189. ElseIf (httpRequest.EndsWith("doc")) Then
    190. Return "application/msword"
    191. ElseIf (httpRequest.EndsWith("xls")) Then
    192. Return "application/vnd.ms-excel"
    193. ElseIf (httpRequest.EndsWith("ppt")) Then
    194. Return "application/vnd.ms-powerpoint"
    195. Else
    196. Return "text/plain"
    197. End If
    198. End Function
    199. End Class
    Ich habe jetzt zwar den Code verstehe ihn aber nicht richtig wo soll ich jetzt meine Daten hin packen und wie funktioniert das mit dem HTML??

    Vielen Dank

    Du hast da jetzt doch einen code um die anfragen des browsers zu handeln
    Mehr brauchst du fur einen apache server eigentlich nicht(ausser php villeicht)

    Mit dem anzeigen hat der server nichts zu tun

    Ps: kleine sicherheitslucke
    Wenn jm das request auf irgendeine datei schickt dann bekommt er auch diese das heist dizr system dateien sind nicht sicher

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

    Na wundervoll, ein super Zeitvertreib :D. Naja mal was anderes geht auch ein Verzeichnisbrowsing so wie bei Apache wenns keine index.html gibt? Ich habe versucht mehrere Standart Dateien zu erlauben das geht aber nicht also ich meine das statt index.html auch index.htm geht.

    Danke

    du kannst einfach mit

    VB.NET-Quellcode

    1. If IO.File.Exsits(rootPath+"Index.html") Then
    2. defaultPage = "index.html"
    3. End IF

    überprüfen

    und für das browser system musst du eben die html files mit einer for each schleife durchgehen und dann eine html datei schreiben und senden

    Danke. Jetzt hab ich alles was ich will ich habe ein Usersystem hinbekommen jedoch läuft das sehr sehr unsicher. Da im prinzip alles per Datei übergeben wird also alles in der Browser url steht. Wie kann man sowas wie bei https machen das der Browser so ein Formular anzeigt?

    Vielen Dank

    Okey.. Wie implentier ich Https ich schau mal ich meld mich dann wieder.


    edit: Bei vielen anderen Websites ists doch auch so das dies ohne https geht.

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

Facebook
Telefonspende