HttpClientRequest Class

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.Jpip 
Imports Leadtools.Jpip.HttpServer 
Imports Leadtools.Jpip.RequestDecoder 
Imports Leadtools.Jpip.RequestEncoder 
Imports Leadtools.Jpip.Client.WinForms 
Imports Leadtools.Jpip.Client.InteractiveDecoder 
Imports Leadtools.Jpip.Server 
Imports Leadtools.Jpip.Logging 
 
Public Class HttpServerCommunication 
   Public Sub ProcessClientRequests() 
 
      Dim clientRequest As HttpClientRequest = Nothing 
      Dim decoder As HttpRequestDecoder = Nothing 
      Dim client As Socket 
 
      client = GetClientSocket() 
      clientRequest = New HttpClientRequest() 
      Dim clientData As Byte() 
 
      Dim received As Integer 
 
      Do 
         clientData = New Byte(client.ReceiveBufferSize - 1) {} 
 
         received = client.Receive(clientData) 
 
 
         clientRequest.Process(clientData, 0, received) 
 
      Loop While clientRequest.Execute 'receive data until a complete request is received 
 
      Console.WriteLine("Client request received: {0}", clientRequest.CompleteMessage) 
 
      File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "ServerRequests.dat"), clientRequest.BodyData) 
      decoder = New HttpRequestDecoder(clientRequest) 
 
      Console.WriteLine("Server will process client image {0}", decoder.Fields.RequestTargetFields.Target) 
 
 
      'Process client request... 
      '... 
 
      client.Close() 
   End Sub 
 
   Private Function GetClientSocket() As Socket 
 
      Dim listenSocket As Socket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) 
 
      Dim hostIP As IPAddress = IPAddress.Parse("127.0.0.1") 
      Dim port As Integer = 107 
 
      Dim ep As IPEndPoint = New IPEndPoint(hostIP, port) 
 
      listenSocket.Bind(ep) 
 
      ' start listening 
      listenSocket.Listen(10) 
 
      'a client should send a request to the listening address 
      Dim client As Socket = listenSocket.Accept() 
 
      listenSocket.Close() 
 
      Return client 
   End Function 
End Class 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class