halcon基本,vb,vc连接halcon读取图像,视频
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
halcon学习方法:安装完halcon之后,在开始里出现一些文档
halcon学习方法:安装完halcon之后,在开始里出现一些文档
看完solution_guide_i.pdf就算是入门了,里面讲了大部分应用的需要的步骤及所用算法
quick_guide.pdf
快速入门halcon
hdevelop_users_guide.pdf
详细讲解在hdevelop中使用halcon,及hdevelop的操作
programmers_guide.pdf
详细讲解在高级语言中的使用halcon
reference_hdevelop.pdf
讲解各个算子
安装完halcon会自动添加一个环境变量%HALCONROOT%,比如指向C:\Program Files\MVTec\HALCON-10.0
在%HALCONROOT%\examples目录下是各种高级语言使用halcon的源码例子
http://blog.csdn.net/wgluser/article/category/1183275
http://blog.sina.com.cn/s/articlelist_1143733774_0_1.html
reference_hdevelop.pdf
讲解各个算子
安装完halcon会自动添加一个环境变量%HALCONROOT%,比如指向C:\Program Files\MVTec\HALCON-10.0
在%HALCONROOT%\examples目录下是各种高级语言使用halcon的源码例子
http://blog.csdn.net/wgluser/article/category/1183275
http://blog.sina.com.cn/s/articlelist_1143733774_0_1.html
vb中使用halcon窗口加载图像
1.读取图像
read_image (Lena, 'F:/image/lena.jpg') get_image_size (Lena, Width, Height) dev_close_window () dev_open_window (0, 0, Width/2, Height/2, 'black', WindowHandle) set_display_font (WindowHandle, 14, 'mono', 'true', 'false') dev_display (Lena) disp_continue_message (WindowHandle, 'black', 'true') stop ()2.导出vb的bas代码
选择文件/导出,弹出
![](http://my.csdn.net/uploads/201204/06/1333719830_3903.jpg)
注意:此处选择使用halcon窗口
3.vb中调用read_image.bas
先看一下read_image.bas的内容,可知在需要的地方直接调用main即可
... ' Main procedure Private Sub action() ' Local iconic variables Dim ho_Lena As HUntypedObjectX ' Local control variables Dim hv_Width As Variant, hv_Height As Variant Dim hv_WindowHandle As Variant Call Op.ReadImage(ho_Lena, "F:/image/lena.jpg") Call Op.GetImageSize(ho_Lena, hv_Width, hv_Height) If COMExpWinHandleStack.IsOpen() Then Op.CloseWindow (COMExpWinHandleStack.Pop()) End If Call Op.SetWindowAttr("background_color", "black") Call Op.OpenWindow(0, 0, Tuple.TupleDiv( _ hv_Width, 2), Tuple.TupleDiv(hv_Height, 2), 0, "", "", hv_WindowHandle) COMExpWinHandleStack.Push (hv_WindowHandle) Call set_display_font(hv_WindowHandle, 14, "mono", "true", "false") If COMExpWinHandleStack.IsOpen() Then Call Op.DispObj(ho_Lena, COMExpWinHandleStack.GetActive()) End If Call disp_continue_message(hv_WindowHandle, "black", "true") HDevelopStop End Sub #If Not NO_EXPORT_APP_MAIN Then Sub InitHalcon() ' Default settings used in HDevelop Call Op.SetSystem("do_low_error", "false") End Sub Sub Main() Call InitHalcon Call action End Sub #End If3.1.新建一个exe的project,然后保存,然后添加read_image.bas文件到此project
3.2.添加halcon/com控件:选择project/components,弹出的菜单中
![](http://my.csdn.net/uploads/201204/07/1333760883_3425.jpg)
3.3.在工具箱中会出现HWindowXCtrl控件,拖进form1,然后再拖一个commandbutton,
![](http://my.csdn.net/uploads/201204/07/1333761193_7851.jpg)
双击commanbutton,加入代码
Private Sub Command1_Click() Call Main End Sub3.4.按F5运行程序,然后单击command1,弹出
![](http://my.csdn.net/uploads/201204/06/1333721097_2377.jpg)
这是一个halcon界面库构造的窗口,脱离vb窗口的。
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
vb中使用hwindowxctrl的窗口加载图像
在上面第2步选择使用导出模板。
导出的代码如下,可知需要调用的过程是inithalcon和runhalcon
... ' Main procedure Private Sub action() ' Local iconic variables Dim ho_Lena As HUntypedObjectX ' Local control variables Dim hv_Width As Variant, hv_Height As Variant Dim hv_WindowHandle As Variant Call Op.ReadImage(ho_Lena, "F:/image/lena.jpg") Call Op.GetImageSize(ho_Lena, hv_Width, hv_Height) 'dev_close_window(...); 'dev_open_window(...); Call set_display_font(hv_ExpDefaultWinHandle, 14, "mono", "true", "false") Call Op.DispObj(ho_Lena, hv_ExpDefaultWinHandle) Call disp_continue_message(hv_ExpDefaultWinHandle, "black", "true") HDevelopStop End Sub Sub InitHalcon() ' Default settings used in HDevelop Call Op.SetSystem("do_low_error", "false") End Sub Sub RunHalcon(ByRef Window As HWindowX) hv_ExpDefaultWinHandle = Window.HalconID Call action End Sub在上面的3.3中拖入一个commandbutton2,双击添加代码
Private Sub Form_Load() Call InitHalcon End Sub Private Sub Command2_Click() Call RunHalcon(HWindowXCtrl.HalconWindow) End Sub
![](http://my.csdn.net/uploads/201204/07/1333761769_2432.jpg)
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
vb中使用hwindowxctrl的窗口加载视频
1.插入摄像头,只要qq视频模块可以使用的摄像头,halcon基本都可以使用吧
2.在halcon中新建一个工程,文件/新程序
3.选择助手/打开新的imageaquisition,点击检测,会检测到directshow
![](http://my.csdn.net/uploads/201204/07/1333762285_5233.jpg)
观察连接标签栏里已经识别出中微星的摄像头,可以点击连接,实时查看一下。
颜色空间中可以选择以灰度方式采集图像。
![](http://my.csdn.net/uploads/201204/07/1333762613_3078.jpg)
4.选择生成代码标签,如下。同步采集。
![](http://my.csdn.net/uploads/201204/07/1333764782_1267.jpg)
选择插入代码,如下
* Code generated by Image Acquisition 01 open_framegrabber ('DirectShow', 1, 1, 0, 0, 0, 0, 'default', 8, 'rgb', -1, 'false', 'default', 'Vimicro USB PC Camera (ZC030x)', 0, -1, AcqHandle) while (true) grab_image (Image, AcqHandle) * Do something endwhile close_framegrabber (AcqHandle)其中
open_framegrabber用于打开摄像头并配置,此函数在调用时会测试要指定的设备,并锁定该设备。之后可以使用grab_image, grab_data, grab_image_async, or grab_data_async获取图像,然后处理。使用完之后需要用close_framegrabber释放,否则别的进程无法使用
grab_image采集图像到Image
close_framegrabber 关闭设备
在grab_image (Image, AcqHandle)后面加一句dev_display(Image),把图像显示出来
5.导出vb代码
![](http://my.csdn.net/uploads/201204/07/1333763871_6655.jpg)
如下,
... ' Main procedure Private Sub action() ' Local iconic variables Dim ho_Image As HUntypedObjectX ' Local control variables Dim hv_AcqHandle As Variant 'Code generated by Image Acquisition 01 Call Op.OpenFramegrabber("DirectShow", 1, 1, 0, 0, 0, 0, "default", 8, "rgb", -1, _ "false", "default", "Vimicro USB PC Camera (ZC030x)", 0, -1, hv_AcqHandle) Do While 1 Call Op.GrabImage(ho_Image, hv_AcqHandle) Call Op.DispObj(ho_Image, hv_ExpDefaultWinHandle) 'Do something #If USE_DO_EVENTS Then ' Please note: The call of DoEvents() is only a hack to ' enable VB to react on events. Please change the code ' so that it can handle events in a standard way. DoEvents #End If Loop Call Op.CloseFramegrabber(hv_AcqHandle) End Sub Sub InitHalcon() ' Default settings used in HDevelop Call Op.SetSystem("do_low_error", "false") End Sub Sub RunHalcon(ByRef Window As HWindowX) hv_ExpDefaultWinHandle = Window.HalconID Call action End Subvb中调用方式很简单仍然是inithalocn和runhalcon
把read_camera.bas加进vb,添加代码
Private Sub Form_Load() Call InitHalcon End Sub Private Sub Command3_Click() Call RunHalcon(HWindowXCtrl.HalconWindow) End Sub
![](http://my.csdn.net/uploads/201204/07/1333764544_7356.jpg)
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
需要注意的问题,
在hdevelop中的stop命令导入到vb.bas就变成HDevelopStop
HDevelopStop有两个版本实现,一个是空函数(使用halcon窗口导出时),一个是如下(使用导出模板时)
Public Sub HDevelopStop() Call MsgBox("Press button to continue", vbYes, "Program stop", "", 1000) End Sub
在采集视频时,程序退出之前需要close_framegrabber,否则会出错
halcon error#5322:image aquisition:timeout.
此时需要重插一下camera
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
halcon播放avi视频
![](http://my.csdn.net/uploads/201204/08/1333862494_3000.jpg)
/******************************************************************/
vc使用halcon
使用hdevelop导出halcon程序的c++代码之后,比如
read_image (image, 'C:/Documents and Settings/Administrator/桌面/vision/IMG_20121015_091436.bmp') rgb1_to_gray (image, GrayImage) dev_set_color('blue') *bin_threshold (GrayImage, Region) threshold(GrayImage,Region,100,255) area_center (Region, Area, Row, Column)生成c++代码
/////////////////////////////////////////////////////////////////////////////// // File generated by HDevelop for HALCON/C++ Version 10.0 /////////////////////////////////////////////////////////////////////////////// #include "HalconCpp.h" using namespace Halcon; #ifndef NO_EXPORT_MAIN // Main procedure void action() { using namespace Halcon; // Local iconic variables Hobject image, GrayImage, Region; // Local control variables HTuple Area, Row, Column; read_image(&image, "C:/Documents and Settings/Administrator/桌面/vision/IMG_20121015_091436.bmp"); rgb1_to_gray(image, &GrayImage); if (HDevWindowStack::IsOpen()) set_color(HDevWindowStack::GetActive(),"blue"); bin_threshold(GrayImage, &Region); area_center(Region, &Area, &Row, &Column); } #ifndef NO_EXPORT_APP_MAIN int main(int argc, char *argv[]) { using namespace Halcon; // Default settings used in HDevelop (can be omitted) set_system("do_low_error","false"); action(); return 0; } #endif #endif
新建一个对话框mfc程序(vc2008),添加一个按钮button1,加入如下代码(我将action函数稍微改了一下)
当然先要#include "HalconCpp.h"
// Main procedure double action( char * p) { using namespace Halcon; // Local iconic variables Hobject image, GrayImage, Region; // Local control variables HTuple Area, Row, Column; read_image(&image, p); rgb1_to_gray(image, &GrayImage); if (HDevWindowStack::IsOpen()) set_color(HDevWindowStack::GetActive(),"blue"); //bin_threshold(GrayImage, &Region); threshold(GrayImage, &Region,50,255); area_center(Region, &Area, &Row, &Column); double d=Area[0]; return d; } void CabcDlg::OnBnClickedButton1() { // TODO: 在此添加控件通知处理程序代码 double d=action("C:/Documents and Settings/Administrator/桌面/vision/IMG_20121015_091436.bmp"); CString str; str.Format("%f",d); AfxMessageBox(str); }
编译程序之前需要先设置一下include和链接环境,对于vc2008
工具/选项/项目解决方案/vc++目录/包含文件/ 添加
C:\Program Files\MVTec\HALCON-10.0\include
C:\Program Files\MVTec\HALCON-10.0\include\cpp
工具/选项/项目解决方案/vc++目录/库文件/ 添加
C:\Program Files\MVTec\HALCON-10.0\lib\x86sse2-win32
然后执行即可。
vc使用picture control显示halcon采集的图像
1.在对话框中添加一个picture control,比如IDC_PIC_HWINDOW
2.在xxdlg.h中添加
HTuple m_HWindowID;//picture control经过处理之后标示符,以后显示图像时,直接显示在m_HWindowID即可。
HTuple m_FGHandle,m_ImageWidth, m_ImageHeight;//m_FGHandle是视频设备
Hobject m_LiveImage;//从图片或视频中抓取图像到这个变量里面
3.在xxdlg.cpp中添加初始化picture control的函数。可以在OnInitDialog函数中调用之。
// 初始化HALCON显示窗口 void CabcdDlg::InitHalconWindow(void) { //定义显示的起点和长宽高 HTuple HWindowRow,HWindowColumn,HWindowWidth,HWindowHeight; //定义窗口ID HTuple HWindowID; //定义一个CRect类的对象,用于获取图像框的尺寸和位置 CRect Rect; CWnd *pWnd = GetDlgItem(IDC_PIC_HWINDOW); CDC *pDC = pWnd->GetDC(); pWnd->GetWindowRect(&Rect); //设置显示窗口的起点和宽高 HWindowRow = 0; HWindowColumn = 0; HWindowWidth = Rect.Width(); HWindowHeight = Rect.Height(); //设定固定的窗口大小,而不是根据控件大小设定 //GetDlgItem(IDC_PIC_HWINDOW)->SetWindowPos(NULL,0,0,322,242,SWP_NOZORDER | SWP_NOMOVE); try { set_window_attr("border_width",0); HWindowID = (Hlong)pWnd->m_hWnd; open_window(HWindowRow,HWindowColumn,HWindowWidth,HWindowHeight,HWindowID,"visible","",&m_HWindowID); set_draw(m_HWindowID,"margin");//设置显示模式是margin(边缘) } catch (HException& except) { TRACE(except.message); } }
如果要显示图像,
read_image(&m_LiveImage, "C:/Documents and Settings/Administrator/桌面/164226715_126870_3.jpg"); disp_obj(m_LiveImage, m_HWindowID);
如果要显示视频
try { //open_framegrabber("DirectShow", 1, 1, 0, 0, 0, 0, "default", 8, "rgb", -1, "false", "default", "USB 视频设备", 0, -1, &m_FGHandle); open_framegrabber ("DirectShow", 1, 1, 0, 0, 0, 0, "default", 8, "rgb", -1, "false", "default", "Vimicro USB PC Camera (ZC030x)", 0, -1, &m_FGHandle); //打开异步采集 grab_image_start (m_FGHandle, -1); while (1) { grab_image_async(&m_LiveImage, m_FGHandle, -1);//采集一副图像 get_image_pointer1(m_LiveImage, NULL, NULL, &m_ImageWidth, &m_ImageHeight);//得到图像的宽高和指针 set_part(m_HWindowID, 0, 0, m_ImageHeight - 1, m_ImageWidth -1);//使图像显示适应窗口大小 disp_obj(m_LiveImage, m_HWindowID); //窗口中显示图像 } close_framegrabber(m_FGHandle); } catch (HException& except) { TRACE(except.message); }源码 halcon 显示图像