<OperationContractAttribute("IntensityDetect")>
<FaultContractAttribute(DetailType=Leadtools.Services.Raster.FaultContracts.RasterFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=False)>
Function IntensityDetect( _
   ByVal request As IntensityDetectRequest _
) As CommandResponse

Dim instance As IColorProcessingService
Dim request As IntensityDetectRequest
Dim value As CommandResponse
 
value = instance.IntensityDetect(request)

[OperationContractAttribute("IntensityDetect")]
[FaultContractAttribute(DetailType=Leadtools.Services.Raster.FaultContracts.RasterFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
CommandResponse IntensityDetect( 
   IntensityDetectRequest request
)

[OperationContractAttribute("IntensityDetect")]
[FaultContractAttribute(DetailType=Leadtools.Services.Raster.FaultContracts.RasterFault, 
   Action="", 
   Name="", 
   Namespace="", 
   ProtectionLevel=ProtectionLevel.None, 
   HasProtectionLevel=false)]
CommandResponse^ IntensityDetect( 
   IntensityDetectRequest^ request
) 

Public Sub IntensityDetectExample()
      Dim client As ColorProcessingServiceClient = New ColorProcessingServiceClient()
      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 request As IntensityDetectRequest = New IntensityDetectRequest()

      request.Channel = IntensityDetectCommandFlags.Master
      request.ConvertOptions = convertOptions
      request.HighThreshold = 255
      request.LowThreshold = 12
      request.InColor = "white"
      request.OutColor = "black"
      request.RegionData = Nothing

      Dim response As CommandResponse = client.IntensityDetect(request)
      If Not response.Destination Is Nothing Then
         If TypeOf response.Destination Is RawBinaryData Then
            File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "IntensityDetect.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

public void IntensityDetectExample()
   {
      ColorProcessingServiceClient client = new ColorProcessingServiceClient();
      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;

      IntensityDetectRequest request = new IntensityDetectRequest();

      request.Channel = IntensityDetectCommandFlags.Master;
      request.ConvertOptions = convertOptions;
      request.HighThreshold = 255;
      request.LowThreshold = 12;
      request.InColor = "white";
      request.OutColor = "black";
      request.RegionData = null;

      CommandResponse response = client.IntensityDetect(request);
      if (response.Destination != null)
      {
         if (response.Destination is RawBinaryData)
            File.WriteAllBytes(Path.Combine(LEAD_VARS.ImagesDir, "IntensityDetect.bmp"), (response.Destination as RawBinaryData).Data);
      }

      client.Close();
   }

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