delphi中使用opencv进行bmp转pIplimage的问题.

[IsTrueMan]

在delphi利用opencv进行boost算法时,对同一张图片进行检测的过程中,对bmp转pIplimage采用了2种方法:

一种是利用cvLoadImage('1.bmp'),该方法能准确进行检测;但当我利用bmp2IplImg的方法时,却不能进行精准的检测,各位大虾我的程序到底哪里的问题啊?代码部分附下:
boostbmp:= tbitmap.create;
boostbmp.LoadFromFile(getcurrentdir+'\1.bmp');
boostbmp.Width := 320;
boostbmp.Height := 240;
boostbmp.PixelFormat := pf24bit;
//////////////////////////////////////////////////////////////////////////////////////bmp转iplimg
///////////////////////////////////////////////////////////////////////////////(问题就出现这部分)
dest := cvCreateImage(cvSize_(320,240), IPL_DEPTH_8U,3);
dest.Origin := IPL_ORIGIN_BL;
CopyMemory(dest.ImageData, boostbmp.ScanLine[boostbmp.Height - 1], dest.ImageSize);
///////////////////////////////////////////////////////////////////////////////////////////////
storage := cvCreateMemStorage(0);
doHaar(dest,bmp);//此过程cvHaarDetectObjects检测物体
self.formImage.width := bmp.width;
self.formImage.height := bmp.height;
self.formImage.canvas.StretchDraw(self.formImage.canvas.ClipRect , bmp);

[IsTrueMan]

转换是成功的,但是检测效果与cvLoadImage方法比,就完全不同了,急求大虾答疑!

[山东蓝鸟贵薪]

占位置学习学习
帮顶了！

[omagic]

说实话不是很懂，但还要帮楼主顶下，学习了！

[lhs203203]

up 学习

[mdejtod]

楼主可以将delphi 版的opencv调用代码分享一下不？

[DelphiTeacher]

boostbmp.PixelFormat := pf24bit;会不会是这句问题，，
PNG是32位的，包含透明度Alpha的，占一个字节。

[究天人之际]

帮忙顶一个

[jdbca]

ding

[RYwZhA]

好久没更新了，楼主问题解决了没有

[RYwZhA]

[Quote=引用 9 楼 wqcw6lf 的回复:]

好久没更新了，楼主问题解决了没有
[/Quote]

昨天试了楼主的代码，发现是拷贝时，图像上下翻转了。于是我一行一行的拷贝就正常了。
行拷贝可以看OpenCV.pas里的procedure IplImage2Bitmap(iplImg: PIplImage; var bitmap: TBitmap);里的代码

[都先生]

这种转换是需要好好考虑的。转换应该没有那么容易的。是一种假转换