delphi中使用opencv检测圆的问题.

[its2000]

在用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;

[its2000]

自己顶一下

[its2000]

已经解决了

[holding300]

同样遇到了这个问题，楼主怎么解决的，告诉兄弟下啊

[s421600]

谁可以帮忙弄一个opencv的程序吗？付费的，价格可以商量，可以加QQ2445834687 联系我，非常感谢啊

[yanjueniku]

引用 2 楼 its2000 的回复:

已经解决了

您好，想问下怎么解决的，谢谢！