vb连接halcon读取图像.docx

halcon基本，vb连接halcon读取图像，视频 halcon学习方法：安装完halcon之后，在开始里出现一些文档 quick_guide.pdf 快速入门halcon hdevelop_users_guide.pdf 详细讲解在hdevelop中使用halcon，及hdevelop的操作 programmers_guide.pdf 详细讲解在高级语言中的使用halconreference_hdevelop.pdf讲解各个算子 、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、vb中使用halcon窗口加载图像1.读取图像 [cpp] view plaincopyprint? 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代码选择文件/导出,弹出注意：此处选择使用halcon窗口3.vb中调用read_image.bas先看一下read_image.bas的内容，可知在需要的地方直接调用main即可 [vb] view plaincopyprint? ...?? ?? ?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?If?? 3.1.新建一个exe的project，然后保存，然后添加read_image.