IBatchService Interface

Imports Leadtools.Services 
 
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