HttpRequestEncoder Class

Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.Jpip 
Imports Leadtools.Jpip.Caching 
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 HttpClientCommunication 
   Public Sub SendClientRequest() 
      Dim fields As RequestFields = New RequestFields() 
      Dim cacheModleItem As ModelItem 
      Dim binDescriptor As ExplicitBinDescriptor 
      Dim cacheModleElement As ModelElement 
 
      fields.RequestTargetFields = New TargetFields("0", "image1.jp2", Nothing) 
 
      fields.RequestChannelFields.NewChannel = New String() {"http"} 
 
      fields.RequestDataLimitFields.DataLength = 16384 
 
      cacheModleItem = New ModelItem() 
      binDescriptor = New ExplicitBinDescriptor(ExplicitBin.MetaBin, 0, Nothing) 'indicate that metadata bin 0 is locally cached and need not be sent. 
      cacheModleElement = New ModelElement(False, binDescriptor) 
 
      cacheModleItem.BinDescriptors.Add(cacheModleElement) 
      cacheModleItem.CodeStreamRange.Add(New Range(0, 0)) 
 
      fields.RequestCacheManagementFields.ModelItems.Add(cacheModleItem) 
 
      Dim imageType As ImageReturnType = New ImageReturnType(ImageTypes.JppStream, False) 
 
      fields.RequestServerControlFields.ImageReturnTypes = New ImageReturnType() {imageType} 
 
      fields.RequestViewWindowFields.FrameSize = New LeadSize(500, 300) 
      fields.RequestViewWindowFields.RegionOffset = New LeadPoint(0, 100) 
      fields.RequestViewWindowFields.FrameSizeRoundingDirection = RoundingDirection.Closest 
 
      Dim codeStreamRange As SampleRange = New SampleRange() 
 
      codeStreamRange.Range = New Range(0, 0) 
 
      fields.RequestViewWindowFields.CodeStream.Add(codeStreamRange) 
 
      Dim encoder As HttpRequestEncoder = New HttpRequestEncoder(IPAddress.Parse("127.0.0.1"), 49201) 
 
      Dim request As HttpWebRequest = encoder.Encode(fields, "jpip", Nothing) 
 
      Console.WriteLine(request.Address.ToString()) 
 
      Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse) 
 
      Console.WriteLine("Server response received.") 
 
      Console.WriteLine(response.Headers.ToString()) 
   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