windows程序显示opencv的IplImage

先贴下关键代码,后面来完善

void ShowMFC( IplImage *img, CDC *pDC,CRect dets_rect, CVideoPlayDlg* video_tmp )
{
	DWORD height=img->height;	
	DWORD width=img->width;

	int widNew = width - width % 4; //  凑成4的倍数,否则宽度不是4的倍数导致播放不正常
	IplImage *realBgrImg = cvCreateImage(cvSize(widNew, height), IPL_DEPTH_8U, 3);
	cvResize(img, realBgrImg);

	BITMAPINFO bi;
	memset(&bi.bmiHeader, 0, sizeof(BITMAPINFOHEADER));
	bi.bmiHeader.biBitCount=24;

	bi.bmiHeader.biCompression= BI_RGB;
	bi.bmiHeader.biHeight= -height;
	bi.bmiHeader.biPlanes=1;
	bi.bmiHeader.biSize=sizeof(BITMAPINFOHEADER);

	bi.bmiHeader.biWidth=widNew;


	if(video_tmp->FLAG_C){
		::SetStretchBltMode(pDC->m_hDC, COLORONCOLOR);
		::StretchDIBits(pDC->GetSafeHdc(), 0, 0, dets_rect.Width(),dets_rect.Height(), 
			0, 0, widNew, height, realBgrImg->imageData,
			(BITMAPINFO*)&bi,DIB_RGB_COLORS,SRCCOPY);
	}

}


Delphi 7是一个古老的RAD (快速应用开发) 工具,主要用于开发Windows应用程序,而OpenCV是一个开源计算机视觉库。在Delphi 7时代,OpenCV尚未提供官方支持,通常需要通过第三方库或者自定义适配来集成。 如果你想将位图转换为IplImageOpenCV早期使用的图像数据结构),这通常是通过创建一个自定义函数或者模块来完成的,因为Delphi 7没有内置的直接转换方法。下面是一个简单的示例代码片段,展示如何手动进行这种转换,但这需要你自己处理内存分配、错误检查等细节: ```pascal uses ImgUtils, // 假设有一个名为ImgUtils的自定义单元,包含了一些图像操作函数 type IplImage = ...; // 假定已知IplImage类型的声明 function BitmapToIplImage(Bitmap: TBitmap): IplImage; var Width, Height: Integer; begin Result := nil; // 获取位图尺寸 Width := Bitmap.Width; Height := Bitmap.Height; try // 创建一个新的IplImage,并分配内存 Result := TCustomIplImage.Create(Width, Height, BI_RGB); if Assigned(Result) then begin // 将位图像素复制到IplImage FillRect(Result.Image, ImageRect(Bitmap), Bitmap.Canvas.Handle); // 转换颜色空间(如果需要) // 这里假设BI_RGB已经正确 // 若不是,则需要调用其他函数如CvtColor等 end; except // 处理可能出现的错误,例如内存分配失败 FreeAndNil(Result); end; end; ``` 请注意,这个例子仅供参考,实际的实现可能需要根据你使用的自定义ImgUtils模块或者OpenCV版本进行调整。同时,由于Delphi 7的过时,现在更推荐使用Delphi XE及以上版本,或者直接使用Delphi与现代OpenCV库的集成工具。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值