LineRemove 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 LineRemoveExample()
   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 LineRemoveRequest = New LineRemoveRequest()

   request.ConvertOptions = convertOptions
   request.RegionData = Nothing
   request.Flags = LineRemoveCommandFlags.UseGap Or LineRemoveCommandFlags.GetRegion
   request.MinimumLineLength = 200
   request.MaximumLineWidth = 5
   request.Wall = 7
   request.MaximumWallPercent = 10
   request.GapLength = 2
   request.Variance = 0
   request.Type = LineRemoveCommandType.Horizontal

   Dim response As DocumentResponse = client.LineRemove(request)
   If Not response.Destination Is Nothing Then
      If TypeOf response.Destination Is RawBinaryData Then
         File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "LineRemove.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, "LineRemove.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, "LineRemoveRegion.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