【OpenCV 基础知识 17】分离成单通道BGR到HSV

在OpenCV中，cvCvtPixToPlane 函数用于将多通道图像分离成多个单通道图像。具体而言，该函数将一个多通道的源图像（例如，RGB图像）分离成多个单通道的目标图像（例如，分离成三个独立的灰度图像）。这在进行颜色空间转换时非常有用，例如从BGR到HSV。

以下是 cvCvtPixToPlane 函数的基本原型：

void cvCvtPixToPlane(const CvArr* src, CvArr* plane0, CvArr* plane1, CvArr* plane2, CvArr* plane3);

• src: 源图像，可以是多通道的。
• plane0, plane1, plane2, plane3: 分离通道的目标图像。这些图像必须具有相同的大小和深度。

在你提供的 Delphi 代码中，cvCvtPixToPlane 函数的使用如下：

cvCvtPixToPlane(hsv, h_plane, s_plane, v_plane, 0);

这一行代码将一个三通道的 HSV 彩色图像 hsv 分离成三个单通道图像 h_plane、s_plane 和 v_plane。

• h_plane: 包含源图像的H（色调）通道。
• s_plane: 包含源图像的S（饱和度）通道。
• v_plane: 包含源图像的V（亮度）通道。

这样，你就可以在单独的图像中处理每个通道，这对于后续的图像处理步骤非常有用，比如对特定通道进行阈值处理等。

program cv_CvtPixToPlane;

{$APPTYPE CONSOLE}
{$R *.res}

uses
  System.SysUtils,
  ocv.highgui_c,
  ocv.core_c,
  ocv.core.types_c,
  ocv.imgproc_c,
  ocv.imgproc.types_c,
  uResourcePaths;

const
  filename = cResourceMedia + 'roulette-wheel2-small.jpg';

var
  image: pIplImage = nil;
  dst: pIplImage = nil;

  hsv: pIplImage = nil;
  h_plane: pIplImage = nil;
  s_plane: pIplImage = nil;
  v_plane: pIplImage = nil;

  h_range: pIplImage = nil;
  s_range: pIplImage = nil;
  v_range: pIplImage = nil;

  hsv_and: pIplImage = nil;

  Hmin: Integer = 0;
  Hmax: Integer = 256;

  Smin: Integer = 0;
  Smax: Integer = 256;

  Vmin: Integer = 0;
  Vmax: Integer = 256;

  HSVmax: Integer = 256;

procedure myTrackbarHmin(pos: Integer); cdecl;
begin
  Hmin := pos;
  cvInRangeS(h_plane, cvScalar(Hmin), cvScalar(Hmax), h_range);
end;

procedure myTrackbarHmax(pos: Integer); cdecl;
begin
  Hmax := pos;
  cvInRangeS(h_plane, cvScalar(Hmin), cvScalar(Hmax), h_range);
end;

procedure myTrackbarSmin(pos: Integer); cdecl;
begin
  Smin := pos;
  cvInRangeS(s_plane, cvScalar(Smin), cvScalar(Smax), s_range);
end;

procedure myTrackbarSmax(pos: Integer); cdecl;
begin
  Smax := pos;
  cvInRangeS(s_plane, cvScalar(Smin), cvScalar(Smax), s_range);
end;

procedure myTrackbarVmin(pos: Integer); cdecl;
begin
  Vmin := pos;
  cvInRangeS(v_plane, cvScalar(Vmin), cvScalar(Vmax), v_range);
end;

procedure myTrackbarVmax(pos: Integer); cdecl;
begin
  Vmax := pos;
  cvInRangeS(v_plane, cvScalar(Vmin), cvScalar(Vmax), v_range);
end;

Var
  framemin, framemax: Double;
  c: Integer;

begin
  try
    // 加载图像
    image := cvLoadImage(filename, 1);
    WriteLn(Format('[i] image: %s', [filename]));

    // 创建图像和区域图像
    hsv := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 3);
    h_plane := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
    s_plane := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
    v_plane := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
    h_range := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
    s_range := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
    v_range := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);
    hsv_and := cvCreateImage(cvGetSize(image), IPL_DEPTH_8U, 1);

    // 转换图像到 HSV 颜色空间
    cvCvtColor(image, hsv, CV_BGR2HSV);

    // 分离 HSV 图像通道
    cvCvtPixToPlane(hsv, h_plane, s_plane, v_plane, 0);

    // 计算各通道的最小和最大值
    framemin := 0;
    framemax := 0;
    cvMinMaxLoc(h_plane, @framemin, @framemax);
    WriteLn(Format('[H] %f x %f', [framemin, framemax]));
    Hmin := Trunc(framemin);
    Hmax := Trunc(framemax);
    cvMinMaxLoc(s_plane, @framemin, @framemax);
    WriteLn(Format('[S] %f x %f', [framemin, framemax]));
    Smin := Trunc(framemin);
    Smax := Trunc(framemax);
    cvMinMaxLoc(v_plane, @framemin, @framemax);
    WriteLn(Format('[V] %f x %f', [framemin, framemax]));
    Vmin := Trunc(framemin);
    Vmax := Trunc(framemax);

    // 创建窗口和轨迹条
    cvNamedWindow('original', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('H', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('S', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('V', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('H range', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('S range', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('V range', CV_WINDOW_AUTOSIZE);
    cvNamedWindow('hsv and', CV_WINDOW_AUTOSIZE);

    cvCreateTrackbar('Hmin', 'H range', @Hmin, HSVmax, myTrackbarHmin);
    cvCreateTrackbar('Hmax', 'H range', @Hmax, HSVmax, myTrackbarHmax);
    cvCreateTrackbar('Smin', 'S range', @Smin, HSVmax, myTrackbarSmin);
    cvCreateTrackbar('Smax', 'S range', @Smax, HSVmax, myTrackbarSmax);
    cvCreateTrackbar('Vmin', 'V range', @Vmin, HSVmax, myTrackbarVmin);
    cvCreateTrackbar('Vmax', 'V range', @Vmax, HSVmax, myTrackbarVmax);

    // 设置窗口位置
    if (image^.width < 1920 / 4) and (image^.height < 1080 / 2) then
    begin
      cvMoveWindow('original', 0, 0);
      cvMoveWindow('H', image^.width + 10, 0);
      cvMoveWindow('S', (image^.width + 10) * 2, 0);
      cvMoveWindow('V', (image^.width + 10) * 3, 0);
      cvMoveWindow('hsv and', 0, image^.height + 30);
      cvMoveWindow('H range', image^.width + 10, image^.height + 30);
      cvMoveWindow('S range', (image^.width + 10) * 2, image^.height + 30);
      cvMoveWindow('V range', (image^.width + 10) * 3, image^.height + 30);
    end;

    // 进入主循环
    while true do
    begin
      // 显示原始图像
      cvShowImage('original', image);

      // 显示分离的 HSV 通道图像
      cvShowImage('H', h_plane);
      cvShowImage('S', s_plane);
      cvShowImage('V', v_plane);

      // 显示 HSV 范围图像
      cvShowImage('H range', h_range);
      cvShowImage('S range', s_range);
      cvShowImage('V range', v_range);

      // 通过逻辑与操作计算 hsv_and
      cvAnd(h_range, s_range, hsv_and);
      cvAnd(hsv_and, v_range, hsv_and);

      // 显示 hsv_and
      cvShowImage('hsv and', hsv_and);

      // 等待按键输入
      c := cvWaitKey(33);
      if (c = 27) then
        break;
    end;

    // 输出结果
    WriteLn('[i] Results:');
    WriteLn(Format('[H] %d x %d', [Hmin, Hmax]));
    WriteLn(Format('[S] %d x %d', [Smin, Smax]));
    WriteLn(Format('[V] %d x %d', [Vmin, Vmax]));

    // 释放图像资源和关闭窗口
    cvReleaseImage(image);
    cvReleaseImage(hsv);
    cvReleaseImage(h_plane);
    cvReleaseImage(s_plane);
    cvReleaseImage(v_plane);
    cvReleaseImage(h_range);
    cvReleaseImage(s_range);
    cvReleaseImage(v_range);
    cvReleaseImage(hsv_and);

    cvDestroyAllWindows();
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;
end.