HolePunchRemove Method

Imports Leadtools.Services 
Imports leadtools.services.datacontracts._2009._01 
Imports leadtools.services.raster.datacontracts._2009._01 
Imports leadtools.services.imageprocessing.datacontracts._2009._01 
 
Public Sub HolePunchRemoveExample() 
   Dim client As DocumentProcessingServiceClient = New DocumentProcessingServiceClient() 
   Dim sourceBinaryData As RawBinaryData = New RawBinaryData() 
   sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "clean.tif")) 
 
   Dim convertOptions As RasterConvertOptions = New RasterConvertOptions() 
 
   convertOptions.Source = sourceBinaryData 
   convertOptions.Destination = Nothing 
   convertOptions.Format = RasterImageFormat.Bmp 
   convertOptions.FirstPage = 1 
   convertOptions.LastPage = 1 
   convertOptions.BitsPerPixel = 24 
   convertOptions.QualityFactor = 2 
 
   Dim request As HolePunchRemoveRequest = New HolePunchRemoveRequest() 
 
   request.ConvertOptions = convertOptions 
   request.RegionData = Nothing 
   request.Flags = HolePunchRemoveCommandFlags.GetRegion Or HolePunchRemoveCommandFlags.UseDpi Or HolePunchRemoveCommandFlags.UseCount Or HolePunchRemoveCommandFlags.UseLocation 
   request.MinimumHoleCount = 2 
   request.MaximumHoleCount = 4 
   request.MinimumHoleWidth = 0 
   request.MinimumHoleHeight = 0 
   request.MaximumHoleWidth = 0 
   request.MaximumHoleHeight = 0 
   request.Location = HolePunchRemoveCommandLocation.Left 
 
   Dim response As DocumentResponse = client.HolePunchRemove(request) 
   If Not response.Destination Is Nothing Then 
      If TypeOf response.Destination Is RawBinaryData Then 
         File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "HolePunchRemove.bmp"), (TryCast(response.Destination, RawBinaryData)).Data) 
      End If 
   End If 
 
   If Not response.Region Is Nothing Then 
      Dim bitmap As Bitmap = New Bitmap(Path.Combine(LEAD_VARS.ImagesDir, "HolePunchRemove.bmp")) 
      Dim graphics As Graphics = graphics.FromImage(bitmap) 
 
      Dim region1 As Region = New Region() 
      Dim regionData As RegionData = region1.GetRegionData() 
      regionData.Data = response.Region.Data 
 
      Dim region2 As Region = New Region(regionData) 
 
      graphics.FillRegion(Brushes.Red, region2) 
 
      bitmap.Save(Path.Combine(LEAD_VARS.ImagesDir, "HolePunchRemoveRegion.bmp")) 
 
      region2.Dispose() 
      region1.Dispose() 
      bitmap.Dispose() 
      graphics.Dispose() 
   End If 
 
   client.Close() 
End Sub 
 
Public NotInheritable Class LEAD_VARS 
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images" 
End Class