GetInformationRequest Class

Imports Leadtools.Services 
 
Public Sub GetInformationExample() 
   Dim client As IRasterService = New RasterServiceClient() 
 
   Dim sourceBinaryData As RawBinaryData = New RawBinaryData() 
   sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "image1.cmp")) 
 
   Dim informationRequest As GetInformationRequest = New GetInformationRequest() 
 
   informationRequest.Source = sourceBinaryData 
   informationRequest.PageNumber = 1 
   informationRequest.TotalPages = False 
 
   Dim response As GetInformationResponse = client.GetInformation(informationRequest) 
   If Not response Is Nothing Then 
      Console.WriteLine(String.Format("BytesPerLine: {0}", response.BytesPerLine)) 
      Console.WriteLine(String.Format("ColorSpace: {0}", response.ColorSpace.ToString())) 
      Console.WriteLine(String.Format("Compresion: {0}", response.Compression)) 
      Console.WriteLine(String.Format("Format: {0}", response.Format)) 
      Console.WriteLine(String.Format("HasAlpha: {0}", response.HasAlpha)) 
      Console.WriteLine(String.Format("HasResolution: {0}", response.HasResolution)) 
      Console.WriteLine(String.Format("Height: {0}", response.Height)) 
      Console.WriteLine(String.Format("IsRotated: {0}", response.IsRotated)) 
      Console.WriteLine(String.Format("IsSigned: {0}", response.IsSigned)) 
      Console.WriteLine(String.Format("Order: {0}", response.Order)) 
      Console.WriteLine(String.Format("PageNumber: {0}", response.PageNumber)) 
      Console.WriteLine(String.Format("SizeDisk: {0}", response.SizeDisk)) 
      Console.WriteLine(String.Format("SizeMemory: {0}", response.SizeMemory)) 
      Console.WriteLine(String.Format("TotalPages: {0}", response.TotalPages)) 
      Console.WriteLine(String.Format("ViewPerspective: {0}", response.ViewPerspective)) 
      Console.WriteLine(String.Format("Width: {0}", response.Width)) 
      Console.WriteLine(String.Format("XResolution: {0}", response.XResolution)) 
      Console.WriteLine(String.Format("YResolution: {0}", response.YResolution)) 
   End If 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class