That would work,
but i want to modify the server code a bit, so then that won't work anymore
:(
Here is what i have converted:
Imports System
Imports System.IO
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Threading
Namespace WebServer
Class WebServer
Private sMyWebServerRoot As String
Private mySocket As Socket
Public Sub New(ByVal s As Socket, ByVal Location As String)
mySocket = s
sMyWebServerRoot = Location + "\"
End Sub
Private Function GetMimeType(ByVal fileName As String) As String
If fileName.EndsWith(".htm") OrElse fileName.EndsWith(".html") Then
Return "text/html"
Else
If fileName.EndsWith(".jpg") OrElse fileName.EndsWith(".jpeg") Then
Return "image/jpeg"
Else
If fileName.EndsWith(".gif") Then
Return "image/gif"
Else
If fileName.EndsWith(".txt") Then
Return "text/plain"
Else
Return "application/octet-stream"
End If
End If
End If
End If
End Function
Private Sub SendHeader(ByVal sHttpVersion As String, ByVal sMIMEHeader As String, ByVal iTotBytes As Integer, ByVal sStatusCode As String)
Dim sBuffer As String = ""
If sMIMEHeader.Length = 0 Then
sMIMEHeader = "text/html"
End If
sBuffer = sBuffer + sHttpVersion + sStatusCode + "" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + ""
sBuffer = sBuffer + "Server: MyWebServer-b" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + ""
sBuffer = sBuffer + "Content-Type: " + sMIMEHeader + "" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + ""
sBuffer = sBuffer + "Accept-Ranges: bytes" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + ""
sBuffer = sBuffer + "Content-Length: " + iTotBytes + "" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + "" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + ""
Dim bSendData As Byte = Encoding.ASCII.GetBytes(sBuffer)
SendToBrowser(bSendData)
End Sub
Private Sub SendToBrowser(ByVal sData As String)
SendToBrowser(Encoding.ASCII.GetBytes(sData))
End Sub
Private Sub SendToBrowser(ByVal bSendData() As Byte)
Dim numBytes As Integer = 0
Try
If mySocket.Connected Then
If (numBytes = mySocket.Send(bSendData, bSendData.Length, 0)) = -1 Then
Form1.WriteToConsole("Socket Error cannot Send Packet" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + "")
Else
Form1.WriteToConsole("No. of bytes send " + numBytes + "" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + "")
End If
Else
Form1.WriteToConsole("Connection Dropped....")
End If
Catch e As Exception
Form1.WriteToConsole("Error Occurred : " + e + "" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + "")
End Try
End Sub
Public Sub HandleConnection()
Dim iStartPos As Integer = 0
Dim sRequest As String
Dim sDirName As String
Dim sRequestedFile As String
Dim sErrorMessage As String
Dim sLocalDir As String
Dim sPhysicalFilePath As String = ""
Dim bReceive(1024) As Byte
Dim i As Integer = mySocket.Receive(bReceive, bReceive.Length, 0)
Dim sBuffer As String = Encoding.ASCII.GetString(bReceive)
If Not (sBuffer.Substring(0, 3) = "GET") Then
Form1.WriteToConsole("Only Get Method is supported.." + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + "")
mySocket.Close()
Return
End If
iStartPos = sBuffer.IndexOf("HTTP", 1)
Dim sHttpVersion As String = sBuffer.Substring(iStartPos, 8)
sRequest = sBuffer.Substring(0, iStartPos - 1)
Form1.WriteToConsole("File Requested : " + sRequest + "" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + "")
sRequest.Replace("\", "/")
If (sRequest.IndexOf(".") < 1) AndAlso (Not sRequest.EndsWith("/")) Then
sRequest = sRequest + "/"
End If
iStartPos = sRequest.LastIndexOf("/") + 1
sRequestedFile = sRequest.Substring(iStartPos)
sDirName = sRequest.Substring(sRequest.IndexOf("/"), sRequest.LastIndexOf("/") - 3)
sLocalDir = sMyWebServerRoot
If sRequestedFile.Length = 0 Then
If sRequestedFile = "" Then
sRequestedFile = "index.htm"
End If
End If
Dim sMimeType As String = GetMimeType(sRequestedFile)
sPhysicalFilePath = sLocalDir + sDirName + sRequestedFile
If File.Exists(sPhysicalFilePath) = False Then
sErrorMessage = "<H2>404 Error! File Does Not Exist...</H2>"
SendHeader(sHttpVersion, "", sErrorMessage.Length, " 404 Not Found")
SendToBrowser(sErrorMessage)
Form1.WriteToConsole("File Not found" + Microsoft.VisualBasic.Chr(13) + "" + Microsoft.VisualBasic.Chr(10) + "")
Else
Dim fs As FileStream = New FileStream (sPhysicalFilePath, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim reader As BinaryReader = New BinaryReader (fs)
Dim bytes(fs.Length) As Byte
bytes = reader.ReadBytes(CType(fs.Length, Integer))
Dim totbytes As Integer = CType(fs.Length, Integer)
reader.Close()
fs.Close()
SendHeader(sHttpVersion, sMimeType, totbytes, " 200 OK")
SendToBrowser(bytes)
End If
mySocket.Close()
End Sub
End Class
End Namespace
but that doesnt work :confused:
