在用cvHoughCircles检测圆时,最后返回的坐标特别大,检测到的圆的数量倒是正确的,请问大虾问题出在哪里?
procedure TForm1.Button2Click(Sender: TObject);
var
  img, gray: PIplImage;
  storage : PCvMemStorage;
  circles : PCvSeq;
  s : CvSize;
  i : integer;
  r : PCVRect;
  pt:pCVPoint;
begin
  image1.Picture.Bitmap.LoadFromFile('hough1.bmp');
  img := cvLoadImage(pchar('hough1.bmp'),1);   //  OpenPictureDialog1.FileName
  s.width := img.width;
  s.height := img.height;
  gray := cvCreateImage(s,8,1);
  storage := cvCreateMemStorage(0);
  cvCvtColor(PCvArr(img),PCvArr(gray),CV_BGR2GRAY);
  cvSmooth(PCvArr(gray),PCvArr(gray),CV_GAUSSIAN,9,9,0,0);
  r.x:=0;
  r.y:=0;
  circles := cvHoughCircles(PCvArr(gray),storage,CV_HOUGH_GRADIENT,2,gray.height/4,100,50);//200,100,0,0);
  for i:=0 to circles.total-1 do
  begin
    r := PCvRect(cvGetSeqElem(circles,i));
    Image1.Canvas.Brush.Color := clRed;
    Image1.Canvas.Ellipse(r.x,r.y,r.x+r.width,r.y+r.height);
  end;
  self.Image1.Repaint;
end;
 
    •  
    •  
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
回复次数：5
#1 得分：0回复于： 2011-05-09 10:23:09
自己顶一下
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#2 得分：0回复于： 2011-05-15 23:09:36
已经解决了
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#3 得分：0回复于： 2012-04-05 00:53:21
同样遇到了这个问题，楼主怎么解决的，告诉兄弟下啊
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#4 得分：0回复于： 2012-05-10 11:04:31
谁可以帮忙弄一个opencv的程序吗？付费的，价格可以商量，可以加QQ2445834687 联系我，非常感谢啊
 
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

#5 得分：0回复于： 2013-03-26 16:19:14
引用 2 楼 its2000 的回复:
已经解决了
 您好，想问下怎么解决的，谢谢！