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 BatchExample()
Dim client As BatchServiceClient = New BatchServiceClient()
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 requests As Requests = New Requests()
Dim flipData As RequestData = New RequestData()
Dim flip As FlipRequest = New FlipRequest()
flip.Horizontal = True
flipData.Operation = OperationType.Flip
flipData.Request = flip
requests.Add(flipData)
Dim invertData As RequestData = New RequestData()
Dim invert As InvertRequest = New InvertRequest()
invertData.Operation = OperationType.Invert
invertData.Request = invert
requests.Add(invertData)
Dim request As BatchRequest = New BatchRequest()
request.ConvertOptions = convertOptions
request.Requests = requests
request.RegionData = Nothing
Dim response As CommandResponse = client.Batch(request)
If Not response.Destination Is Nothing Then
If TypeOf response.Destination Is RawBinaryData Then
File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "Batch.bmp"), (TryCast(response.Destination, RawBinaryData)).Data)
End If
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.datacontracts._2009._01;
using leadtools.services.raster.datacontracts._2009._01;
using leadtools.services.imageprocessing.datacontracts._2009._01;
public void BatchExample()
{
BatchServiceClient client = new BatchServiceClient();
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;
Requests requests = new Requests();
RequestData flipData = new RequestData();
FlipRequest flip = new FlipRequest();
flip.Horizontal = true;
flipData.Operation = OperationType.Flip;
flipData.Request = flip;
requests.Add(flipData);
RequestData invertData = new RequestData();
InvertRequest invert = new InvertRequest();
invertData.Operation = OperationType.Invert;
invertData.Request = invert;
requests.Add(invertData);
BatchRequest request = new BatchRequest();
request.ConvertOptions = convertOptions;
request.Requests = requests;
request.RegionData = null;
CommandResponse response = client.Batch(request);
if (response.Destination != null)
{
if(response.Destination is RawBinaryData)
File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"Batch.bmp"), (response.Destination as RawBinaryData).Data);
}
//client.Close();
}
static class LEAD_VARS
{
public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}