delphi11 Delphi-OpenCV 图片转灰度

您可以使用OpenCV中的cv::cvtColor函数将彩色图像转换为灰度图像。以下是使用Delphi-OpenCV实现此操作的示例代码：

uses
  opencv_core, opencv_imgproc;

procedure ConvertToGrayScale(const inputImg: pIplImage; const grayImg: pIplImage);
begin
  cvCvtColor(inputImg, grayImg, CV_BGR2GRAY);
end;

// 使用示例
var
  inputImg, grayImg: pIplImage;
begin
  inputImg := cvLoadImage('input.jpg', CV_LOAD_IMAGE_COLOR);
  grayImg := cvCreateImage(cvGetSize(inputImg), IPL_DEPTH_8U, 1);
  ConvertToGrayScale(inputImg, grayImg);
  cvSaveImage('output.jpg', grayImg);
  cvReleaseImage(inputImg);
  cvReleaseImage(grayImg);
end;

在上面的示例中，我们使用cvLoadImage函数从磁盘加载彩色图像，然后创建一个与输入图像尺寸相同的灰度图像。最后，我们使用ConvertToGrayScale函数将彩色图像转换为灰度图像，并使用cvSaveImage函数将输出保存到磁盘。请注意，我们必须使用cvReleaseImage函数释放我们创建的图像。