Delphi xe opencv 人脸识别代码

以下是一个简单的 Delphi XE OpenCV 实现人脸识别的代码示例：

uses
  CvTypes, CvImgProc, CvHaarTraining, CvObjDetect, CvUtils, Windows;

var
  classifier: TCvHaarClassifierCascade;
  storage: TCvMemStorage;
  faces: PCvSeq;
  rect: TCvRect;
  src, dst, gray: pIplImage;

begin
  // 加载分类器
  classifier := cvLoad('haarcascade_frontalface_default.xml', nil, nil, nil);

  // 加载图像
  src := cvLoadImage('test.jpg', CV_LOAD_IMAGE_UNCHANGED);

  // 创建临时图像
  dst := cvCreateImage(cvSize(src.width div 2, src.height div 2), src.depth, src.nChannels);
  gray := cvCreateImage(cvSize(src.width div 2, src.height div 2), IPL_DEPTH_8U, 1);

  // 缩放和灰度化处理
  cvResize(src, dst, CV_INTER_LINEAR);
  cvCvtColor(dst, gray, CV_BGR2GRAY);

  // 检测人脸
  storage := cvCreateMemStorage(0);
  faces := cvHaarDetectObjects(gray, classifier, storage, 1.2, 2, CV_HAAR_DO_CANNY_PRUNING, cvSize(30, 30));
  for i := 0 to faces.total - 1 do
  begin
    rect := PCvRect(cvGetSeqElem(faces, i))^;
    cvRectangle(src, cvPoint(rect.x * 2, rect.y * 2), cvPoint((rect.x + rect.width) * 2, (rect.y + rect.height) * 2), CV_RGB(255, 0, 0), 2, CV_AA, 0);
  end;

  // 显示图像
  cvNamedWindow('Face Detection', CV_WINDOW_AUTOSIZE);
  cvShowImage('Face Detection', src);
  cvWaitKey(0);

  // 释放内存
  cvReleaseImage(src);
  cvReleaseImage(dst);
  cvReleaseImage(gray);
  cvReleaseHaarClassifierCascade(classifier);
  cvReleaseMemStorage(@storage);
end.

请注意，这只是一个基本的示例代码，需要根据具体需求进行调整和优化。在使用此代码之前，需要确保已经正确安装和配置了 OpenCV 库。