【OpenCV 基础知识 16】霍夫变换检测直线

最新推荐文章于 2024-07-23 16:48:13 发布

D-Nolan

最新推荐文章于 2024-07-23 16:48:13 发布

阅读量382

点赞数 4

分类专栏： Delphi OpenCV 文章标签： opencv 人工智能计算机视觉

本文链接：https://blog.csdn.net/gust2013/article/details/139178183

版权

Delphi OpenCV 专栏收录该内容

22 篇文章 0 订阅

订阅专栏

program cv_HoughLines2;

{$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 + 'opencv_logo_with_text_sm.png';

var
  src: pIplImage = Nil;
  dst: pIplImage = Nil;
  color_dst: pIplImage = Nil;
  storage: pCvMemStorage;
  i: Integer;
  lines: pCvSeq;
  line: pCvPointArray;

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

    // 创建内存存储器和线段序列
    storage := cvCreateMemStorage(0);
    lines := nil;
    i := 0;

    // 创建输出图像和彩色图像
    dst := cvCreateImage(cvGetSize(src), 8, 1);
    color_dst := cvCreateImage(cvGetSize(src), 8, 3);

    // 使用 Canny 边缘检测算法处理图像
    cvCanny(src, dst, 50, 200, 3);

    // 转换灰度图像为彩色图像
    cvCvtColor(dst, color_dst, CV_GRAY2BGR);

    // 使用霍夫变换检测直线
    lines := cvHoughLines2(dst, storage, CV_HOUGH_PROBABILISTIC, 1, CV_PI / 180, 50, 50, 10);

    // 在彩色图像上绘制检测到的直线
    for i := 0 to lines^.total - 1 do
    begin
      line := pCvPointArray(cvGetSeqElem(lines, i));
      cvLine(color_dst, line^[0], line^[1], CV_RGB(255, 0, 0), 3, CV_AA, 0);
    end;

    // 创建并显示原始图像窗口
    cvNamedWindow('Source', 1);
    cvShowImage('Source', src);

    // 创建并显示霍夫变换结果图像窗口
    cvNamedWindow('Hough', 1);
    cvShowImage('Hough', color_dst);

    // 等待按键输入
    cvWaitKey(0);

    // 释放内存存储器和图像资源，关闭所有窗口
    cvReleaseMemStorage(storage);
    cvReleaseImage(src);
    cvReleaseImage(dst);
    cvReleaseImage(color_dst);
    cvDestroyAllWindows();
  except
    on E: Exception do
      WriteLn(E.ClassName, ': ', E.Message);
  end;
end.