Public Sub RectangleRasterRegionDataExample()
         Dim client As EffectsProcessingServiceClient = New EffectsProcessingServiceClient()
         Dim sourceBinaryData As RawBinaryData = New RawBinaryData()
         sourceBinaryData.Data = File.ReadAllBytes(LeadtoolsExamples.Common.ImagesPath.Path & "image1.cmp")

         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 region As RectangleRasterRegionData = New RectangleRasterRegionData()
         region.CombineMode = RasterRegionCombineMode.Set

         Dim rect As LeadRectangle = New LeadRectangle()
         rect.Width = 200
         rect.Height = 200

         region.Bounds = rect

         Dim request As SharpenRequest = New SharpenRequest()

         request.ConvertOptions = convertOptions
         request.RegionData = region
         request.Sharpness = 1000

         Dim response As CommandResponse = client.Sharpen(request)
         If Not response.Destination Is Nothing Then
            If TypeOf response.Destination Is RawBinaryData Then
               File.WriteAllBytes(LeadtoolsExamples.Common.ImagesPath.Path & "RectangleRasterRegionData.bmp", (TryCast(response.Destination, RawBinaryData)).Data)
            End If
         End If

         client.Close()
      End Sub

      public void RectangleRasterRegionDataExample()
      {
         EffectsProcessingServiceClient client = new EffectsProcessingServiceClient();
         RawBinaryData sourceBinaryData = new RawBinaryData();
         sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "image1.cmp"));

         RasterConvertOptions convertOptions = new RasterConvertOptions();

         convertOptions.Source = sourceBinaryData;
         convertOptions.Destination = null;
         convertOptions.Format = RasterImageFormat.Bmp;
         convertOptions.FirstPage = 1;
         convertOptions.LastPage = 1;
         convertOptions.BitsPerPixel = 24;
         convertOptions.QualityFactor = 2;

         RectangleRasterRegionData region = new RectangleRasterRegionData();
         region.CombineMode = RasterRegionCombineMode.Set;

         LeadRectangle rect = new LeadRectangle();
         rect.Width = 200;
         rect.Height = 200;

         region.Bounds = rect;

         SharpenRequest request = new SharpenRequest();

         request.ConvertOptions = convertOptions;
         request.RegionData = region;
         request.Sharpness = 1000;

         CommandResponse response = client.Sharpen(request);
         if (response.Destination != null)
         {
            if(response.Destination is RawBinaryData)
               File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"RectangleRasterRegionData.bmp"), (response.Destination as RawBinaryData).Data);
         }

         client.Close();
      }

   static class LEAD_VARS
   {
      public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
   }

Visual Basic

Copy Code

Public Sub RectangleRasterRegionDataExample() Dim client As EffectsProcessingServiceClient = New EffectsProcessingServiceClient() Dim sourceBinaryData As RawBinaryData = New RawBinaryData() sourceBinaryData.Data = File.ReadAllBytes(LeadtoolsExamples.Common.ImagesPath.Path & "image1.cmp") 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 region As RectangleRasterRegionData = New RectangleRasterRegionData() region.CombineMode = RasterRegionCombineMode.Set Dim rect As LeadRectangle = New LeadRectangle() rect.Width = 200 rect.Height = 200 region.Bounds = rect Dim request As SharpenRequest = New SharpenRequest() request.ConvertOptions = convertOptions request.RegionData = region request.Sharpness = 1000 Dim response As CommandResponse = client.Sharpen(request) If Not response.Destination Is Nothing Then If TypeOf response.Destination Is RawBinaryData Then File.WriteAllBytes(LeadtoolsExamples.Common.ImagesPath.Path & "RectangleRasterRegionData.bmp", (TryCast(response.Destination, RawBinaryData)).Data) End If End If client.Close() End Sub

C#

Copy Code

public void RectangleRasterRegionDataExample() { EffectsProcessingServiceClient client = new EffectsProcessingServiceClient(); RawBinaryData sourceBinaryData = new RawBinaryData(); sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "image1.cmp")); RasterConvertOptions convertOptions = new RasterConvertOptions(); convertOptions.Source = sourceBinaryData; convertOptions.Destination = null; convertOptions.Format = RasterImageFormat.Bmp; convertOptions.FirstPage = 1; convertOptions.LastPage = 1; convertOptions.BitsPerPixel = 24; convertOptions.QualityFactor = 2; RectangleRasterRegionData region = new RectangleRasterRegionData(); region.CombineMode = RasterRegionCombineMode.Set; LeadRectangle rect = new LeadRectangle(); rect.Width = 200; rect.Height = 200; region.Bounds = rect; SharpenRequest request = new SharpenRequest(); request.ConvertOptions = convertOptions; request.RegionData = region; request.Sharpness = 1000; CommandResponse response = client.Sharpen(request); if (response.Destination != null) { if(response.Destination is RawBinaryData) File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"RectangleRasterRegionData.bmp"), (response.Destination as RawBinaryData).Data); } client.Close(); } static class LEAD_VARS { public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images"; }

To update an existing region, specify how the new region is to be combined with the existing one using the RasterRegionData.CombineMode property. For more information, refer to RasterRegionCombineMode.

System.Object
   Leadtools.Services.Raster.DataContracts.RasterRegionData
      Leadtools.Services.Raster.DataContracts.RectangleRasterRegionData
         Leadtools.Services.Raster.DataContracts.EllipseRasterRegionData

Target Platforms: Microsoft .NET Framework 3.0, Windows 2000, Windows XP, Windows Server 2003 family, Windows Server 2008 family, Windows Vista, Windows 7

Reference