Imports Leadtools.Services
Imports Leadtools.Services.Raster.ServiceContracts
Imports Leadtools.Services.Raster.ServiceImplementations
Imports leadtools.services.datacontracts._2009._01
Imports leadtools.services.raster.datacontracts._2009._01
Imports leadtools.services.ImageProcessing.datacontracts._2009._01
Public Sub LeadPointExample()
Dim client As EffectsProcessingServiceClient = New EffectsProcessingServiceClient()
Dim sourceBinaryData As RawBinaryData = New RawBinaryData()
sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "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 MagicWandRasterRegionData = New MagicWandRasterRegionData()
region.CombineMode = RasterRegionCombineMode.Set
' Specify a pixel in the upper left of the displayed image
Dim pt As LeadPoint = New LeadPoint()
pt.X = 100
pt.Y = 100
region.Location = pt
' Create a magic wand region at this point
region.LowerToleranceColor = "#00141E96"
region.UpperToleranceColor = "#000F1E0A"
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
File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "magicwandregion.bmp"), (TryCast(response.Destination, RawBinaryData)).Data)
End If
client.Close()
End Sub
Public NotInheritable Class LEAD_VARS
Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class
using Leadtools.Services;
using Leadtools.Services.Raster.ServiceContracts;
using Leadtools.Services.Raster.ServiceImplementations;
using leadtools.services.datacontracts._2009._01;
using leadtools.services.raster.datacontracts._2009._01;
using leadtools.services.imageprocessing.datacontracts._2009._01;
public void LeadPointExample()
{
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;
MagicWandRasterRegionData region = new MagicWandRasterRegionData();
region.CombineMode = RasterRegionCombineMode.Set;
// Specify a pixel in the upper left of the displayed image
LeadPoint pt = new LeadPoint();
pt.X = 100;
pt.Y = 100;
region.Location = pt;
// Create a magic wand region at this point
region.LowerToleranceColor = "#00141E96";
region.UpperToleranceColor= "#000F1E0A";
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,"magicwandregion.bmp"), (response.Destination as RawBinaryData).Data);
}
client.Close();
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}