delphi xe opencv_core 代码

以下是一个使用 Delphi XE 和 OpenCV 的示例代码，展示了如何使用 opencv_core 进行图像处理：

uses
  cvcore, highgui;

procedure ProcessImage();
var
  img: pIplImage;
begin
  // 加载图像
  img := cvLoadImage('image.jpg', CV_LOAD_IMAGE_COLOR);
  if img = nil then
  begin
    ShowMessage('Failed to load image!');
    Exit;
  end;

  // 创建一个名为 'Input Image' 的窗口，并在其中显示图像
  cvNamedWindow('Input Image', CV_WINDOW_AUTOSIZE);
  cvShowImage('Input Image', img);

  // 转换图像到灰度空间
  cvCvtColor(img, img, CV_RGB2GRAY);

  // 创建一个名为 'Processed Image' 的窗口，并在其中显示处理后的图像
  cvNamedWindow('Processed Image', CV_WINDOW_AUTOSIZE);
  cvShowImage('Processed Image', img);

  // 等待用户按下任意键
  cvWaitKey(0);

  // 释放图像和窗口
  cvReleaseImage(img);
  cvDestroyAllWindows();
end;

这个示例代码加载一张名为 'image.jpg' 的图像，并在名为 'Input Image' 的窗口中显示它。然后，它将图像转换到灰度空间，并在名为 'Processed Image' 的窗口中显示处理后的图像。最后，它等待用户按下任意键，释放图像和窗口。