ConvertRequest Class

Imports Leadtools.Services 
 
Public Sub RasterConvertOptionsExample() 
   Dim client As RasterServiceClient = New RasterServiceClient() 
 
   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.RasPdf 
   convertOptions.FirstPage = 1 
   convertOptions.LastPage = 1 
   convertOptions.BitsPerPixel = 24 
   convertOptions.QualityFactor = 2 
   convertOptions.BackColor = "Black" 
   convertOptions.Height = 200 
   convertOptions.Width = 200 
   convertOptions.ResizeFlags = RasterResizeFlags.Bicubic 
   convertOptions.ResizeMode = RasterResizeMode.Fit 
   convertOptions.HorizontalAlignMode = RasterAlignMode.Center 
   convertOptions.VerticalAlignMode = RasterAlignMode.Center 
 
   Dim request As ConvertRequest = New ConvertRequest() 
 
   request.ConvertOptions = convertOptions 
   Dim response As ConvertResponse = client.Convert(request) 
   If Not response.Destination Is Nothing Then 
      If TypeOf response.Destination Is RawBinaryData Then 
         File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "converted_resized.pdf"), (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