<DataContractAttribute(Namespace="http://Leadtools.Services.DataContracts/2009/01", Name="BinaryData")>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.DbBinaryData)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.RawBinaryData)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.FileBinaryData)>
<KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.UrlBinaryData)>
Public MustInherit Class BinaryData 

Dim instance As BinaryData

[DataContractAttribute(Namespace="http://Leadtools.Services.DataContracts/2009/01", Name="BinaryData")]
[KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.DbBinaryData)]
[KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.RawBinaryData)]
[KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.FileBinaryData)]
[KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.UrlBinaryData)]
public abstract class BinaryData 

[DataContractAttribute(Namespace="http://Leadtools.Services.DataContracts/2009/01", Name="BinaryData")]
[KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.DbBinaryData)]
[KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.RawBinaryData)]
[KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.FileBinaryData)]
[KnownTypeAttribute(MethodName="", Type=Leadtools.Services.DataContracts.UrlBinaryData)]
public ref class BinaryData abstract 

Public Sub BinaryDataExample()
      Dim client As RasterServiceClient = New RasterServiceClient()
      Dim sourceBinaryData As RawBinaryData = New RawBinaryData()
      sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "clean.tif"))


      Dim convertOptions As RasterConvertOptions = New RasterConvertOptions()

      convertOptions.Source = sourceBinaryData
      convertOptions.Destination = Nothing
      convertOptions.Format = RasterImageFormat.Cmp
      convertOptions.FirstPage = 1
      convertOptions.LastPage = 1
      convertOptions.BitsPerPixel = 24
      convertOptions.QualityFactor = 2

      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, "clean.cmp"), (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

public void BinaryDataExample()
   {
      RasterServiceClient client = new RasterServiceClient();
      RawBinaryData sourceBinaryData = new RawBinaryData();
      sourceBinaryData.Data = File.ReadAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"clean.tif"));


      RasterConvertOptions convertOptions = new RasterConvertOptions(); 

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

      ConvertRequest request = new ConvertRequest();
      request.ConvertOptions = convertOptions;


      ConvertResponse response = client.Convert(request);
      if (response.Destination != null)
      {
         if(response.Destination is RawBinaryData)
            File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir,"clean.cmp"), (response.Destination as RawBinaryData).Data);
      }

      client.Close();
   }

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