Public Class LineProfileCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As LineProfileCommand

public class LineProfileCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

public ref class LineProfileCommand : public Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

Public Sub LineProfileCommandExample()
   Dim codecs As New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True

   Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))

   ' Prepare the command
   Dim command As LineProfileCommand = New LineProfileCommand
   Dim redData() As Integer
   Dim greenData() As Integer
   Dim blueData() As Integer

   command.FirstPoint = New LeadPoint(0, 0)
   command.SecondPoint = New LeadPoint(50, 50)
   command.Run(leadImage)
   codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)
   redData = command.RedBuffer
   greenData = command.GreenBuffer
   blueData = command.BlueBuffer

End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void LineProfileCommandExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));

      // Prepare the command
      LineProfileCommand command = new LineProfileCommand();
      int [] redData;
      int [] greenData;
      int [] blueData;
      command.FirstPoint  = new LeadPoint(0,0);
      command.SecondPoint = new LeadPoint(50, 50);
      command.Run(image);
      codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);
      redData    = command.RedBuffer;
      greenData  = command.GreenBuffer;
      blueData   = command.BlueBuffer;

   }

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

public void LineProfileCommandExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   LineProfileCommand command = new LineProfileCommand();
   int [] redData;
   int [] greenData;
   int [] blueData;
   command.FirstPoint  = new LeadPoint(0,0);
   command.SecondPoint = new LeadPoint(50, 50);
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
   image.Dispose();

   redData    = command.RedBuffer;
   greenData  = command.GreenBuffer;
   blueData   = command.BlueBuffer;
}

Public Sub LineProfileCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As LineProfileCommand = New LineProfileCommand()
   Dim redData As Integer()
   Dim greenData As Integer()
   Dim blueData As Integer()
   command.FirstPoint = New LeadPoint(0,0)
   command.SecondPoint = New LeadPoint(50, 50)
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
   image.Dispose()

   redData = command.RedBuffer
   greenData = command.GreenBuffer
   blueData = command.BlueBuffer
End Sub