Как прикрутить OpenCV к билдеру?

[Как прикрутить OpenCV к билдеру?]

Пока использую OpenCV_1.1pre1a.exe

Вопросы такие:

1. как скомпилировать нормально приложение, чтоб не просило лишнего. если установить опции компиляции в билдере для работы без установленного билдера, то требует неизвестную библиотеку VIDEOINPUT.DLL

2. если скомпилировать как указанотут, то приложение (перенес как понял из примеров facedetect.c) после закрытия не выгружается из памяти, в диспетчере задач видно. хотя если на кнопку нажать и отменить выбор картинки, то тоже не выгружается, хотя ни одна функция опенцв не успевает выполниться. пример тут (только без длл)пример.rar

это код примера. функция detect_and_draw не изменялась.

//---------------------------------------------------------------------------


#include <vcl.h>

#pragma hdrstop


#include "Unit1.h"


#include "cv.h"

#include "highgui.h"


#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include <assert.h>

#include <math.h>

#include <float.h>

#include <limits.h>

#include <time.h>

#include <ctype.h>


#ifdef _EiC

#define WIN32

#endif


//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

		: TForm(Owner)

{

}

//---------------------------------------------------------------------------


static CvMemStorage* storage = 0;

static CvHaarClassifierCascade* cascade = 0;

static CvHaarClassifierCascade* nested_cascade = 0;

double scale = 1;


void detect_and_draw( IplImage* img )

{

	static CvScalar colors[] = 

	{

		{{0,0,255}},

		{{0,128,255}},

		{{0,255,255}},

		{{0,255,0}},

		{{255,128,0}},

		{{255,255,0}},

		{{255,0,0}},

		{{255,0,255}}

	};


	IplImage *gray, *small_img;

	int i, j;


	gray = cvCreateImage( cvSize(img->width,img->height), 8, 1 );

	small_img = cvCreateImage( cvSize( cvRound (img->width/scale),

						 cvRound (img->height/scale)), 8, 1 );


	cvCvtColor( img, gray, CV_BGR2GRAY );

	cvResize( gray, small_img, CV_INTER_LINEAR );

	cvEqualizeHist( small_img, small_img );

	cvClearMemStorage( storage );


	if( cascade )

	{

		double t = (double)cvGetTickCount();

		CvSeq* faces = cvHaarDetectObjects( small_img, cascade, storage,

											1.1, 2, 0

											//|CV_HAAR_FIND_BIGGEST_OBJECT

											//|CV_HAAR_DO_ROUGH_SEARCH

											|CV_HAAR_DO_CANNY_PRUNING

											//|CV_HAAR_SCALE_IMAGE

											,

											cvSize(30, 30) );

		t = (double)cvGetTickCount() - t;

		printf( "detection time = %gms\n", t/((double)cvGetTickFrequency()*1000.) );

		for( i = 0; i < (faces ? faces->total : 0); i++ )

		{

			CvRect* r = (CvRect*)cvGetSeqElem( faces, i );

			CvMat small_img_roi;

			CvSeq* nested_objects;

			CvPoint center;

			CvScalar color = colors[i%8];

			int radius;

			center.x = cvRound((r->x + r->width*0.5)*scale);

			center.y = cvRound((r->y + r->height*0.5)*scale);

			radius = cvRound((r->width + r->height)*0.25*scale);

			cvCircle( img, center, radius, color, 3, 8, 0 );

			if( !nested_cascade )

				continue;

			cvGetSubRect( small_img, &small_img_roi, *r );

			nested_objects = cvHaarDetectObjects( &small_img_roi, nested_cascade, storage,

										1.1, 2, 0

										//|CV_HAAR_FIND_BIGGEST_OBJECT

										//|CV_HAAR_DO_ROUGH_SEARCH

										//|CV_HAAR_DO_CANNY_PRUNING

										//|CV_HAAR_SCALE_IMAGE

										,

										cvSize(0, 0) );

			for( j = 0; j < (nested_objects ? nested_objects->total : 0); j++ )

			{

				CvRect* nr = (CvRect*)cvGetSeqElem( nested_objects, j );

				center.x = cvRound((r->x + nr->x + nr->width*0.5)*scale);

				center.y = cvRound((r->y + nr->y + nr->height*0.5)*scale);

				radius = cvRound((nr->width + nr->height)*0.25*scale);

				cvCircle( img, center, radius, color, 3, 8, 0 );

			}

		}

	}


	cvShowImage( "result", img );

	cvReleaseImage( &gray );

	cvReleaseImage( &small_img );

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

		if(OpenDialog1->Execute())

		{

				AnsiString s=Application->ExeName;

				s=s.SubString(1,s.LastDelimiter("\\"))+"haarcascade_frontalface_alt.xml";

				IplImage *image = 0;

				cascade = (CvHaarClassifierCascade*)cvLoad( s.c_str(), 0, 0, 0 );

				storage = cvCreateMemStorage(0);

				image = cvLoadImage( OpenDialog1->FileName.c_str(), 1 );

				cvNamedWindow( "result", 1 );

				detect_and_draw( image );

				cvWaitKey(0);

				cvReleaseImage( &image );

				cvDestroyWindow("result");

		}

}

//--------------------------------------------------------------------------

-

3. можно ли добавить в проект на билдере *.CPP или скомпилировать библиотеки в билдере, а то после конвертации либов в них остаются только ссылки на длл.

Спасибо за советы.

[Как прикрутить OpenCV к билдеру?]

У меня вопрос такого плана: после использования библиотеки опенсв, даже если просто загрузить изображение из файла и уничтожить его, приложение висит. После его закрытия, форма исчезает, а процесс в диспетчере висит. Как быть? Что делать?