delphi xe opencv img

如果你想在 Delphi XE 中使用 OpenCV 处理图像，可以按照以下步骤操作：

1. 下载并安装 OpenCV 库，并将其添加到 Delphi XE 的搜索路径中。

2. 在 Delphi XE 中创建一个新的 VCL 应用程序。

3. 添加一个 TImage 组件和一个 TButton 组件。

4. 在 TButton 的 OnClick 事件中编写以下代码：

uses
  cvTypes, cvUtils, cvImgProc, cvHighgui;

procedure TForm1.Button1Click(Sender: TObject);
var
  inputImage, outputImage: pIplImage;
begin
  // 读取图像
  inputImage := cvLoadImage('input.jpg');
  try
    // 进行图像处理
    outputImage := cvCreateImage(cvGetSize(inputImage), IPL_DEPTH_8U, 3);
    try
      cvSmooth(inputImage, outputImage, CV_GAUSSIAN, 3, 3);
      cvSaveImage('output.jpg', outputImage);
    finally
      cvReleaseImage(outputImage);
    end;
  finally
    cvReleaseImage(inputImage);
  end;
  
  // 显示处理后的图像
  Image1.Picture.LoadFromFile('output.jpg');
end;

这段代码中，我们使用了 OpenCV 中的 cvLoadImage 函数读取了一张图像，然后使用 cvSmooth 函数进行高斯滤波处理，并使用 cvSaveImage 函数将处理后的图像保存到文件中。最后，我们使用 TImage 组件显示处理后的图像。

需要注意的是，在使用 OpenCV 函数时，需要包含对应的头文件，并且需要根据函数的参数类型传递正确的参数。在这个例子中，我们使用了 cvTypes、cvUtils、cvImgProc 和 cvHighgui 这几个头文件。