、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
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


、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
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代碼
選擇文件/導出,彈出

注意：此處選擇使用halcon窗口
3.vb中調用read_image.bas
先看一下read_image.bas的內容，可知在需要的地方直接調用main即可
...' Main procedure Private Sub action()' Local iconic variablesDim ho_Lena As HUntypedObjectX' Local control variablesDim hv_Width As Variant, hv_Height As VariantDim hv_WindowHandle As VariantCall Op.ReadImage(ho_Lena, "F:/image/lena.jpg")Call Op.GetImageSize(ho_Lena, hv_Width, hv_Height)If COMExpWinHandleStack.IsOpen() ThenOp.CloseWindow (COMExpWinHandleStack.Pop())End IfCall 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() ThenCall Op.DispObj(ho_Lena, COMExpWinHandleStack.GetActive())End IfCall disp_continue_message(hv_WindowHandle, "black", "true")HDevelopStop End Sub#If Not NO_EXPORT_APP_MAIN Then Sub InitHalcon()' Default settings used in HDevelopCall Op.SetSystem("do_low_error", "false") End SubSub Main()Call InitHalconCall action End Sub#End If3.1.新建一個exe的project，然后保存，然后添加read_image.bas文件到此project

3.2.添加halcon/com控件：選擇project/components，彈出的菜單中

3.3.在工具箱中會出現HWindowXCtrl控件，拖進form1,然后再拖一個commandbutton,

雙擊commanbutton,加入代碼
Private Sub Command1_Click() Call Main End Sub3.4.按F5運行程序，然后單擊command1，彈出

這是一個halcon界面庫構造的窗口，脫離vb窗口的。

、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
vb中使用hwindowxctrl的窗口加載圖像
在上面第2步選擇使用導出模板。
導出的代碼如下，可知需要調用的過程是inithalcon和runhalcon
... ' Main procedure Private Sub action()' Local iconic variablesDim ho_Lena As HUntypedObjectX' Local control variablesDim hv_Width As Variant, hv_Height As VariantDim hv_WindowHandle As VariantCall 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 SubSub InitHalcon()' Default settings used in HDevelopCall Op.SetSystem("do_low_error", "false") End SubSub RunHalcon(ByRef Window As HWindowX)hv_ExpDefaultWinHandle = Window.HalconIDCall action End Sub在上面的3.3中拖入一個commandbutton2，雙擊添加代碼
Private Sub Form_Load()Call InitHalcon End SubPrivate Sub Command2_Click() Call RunHalcon(HWindowXCtrl.HalconWindow) End Sub
、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
vb中使用hwindowxctrl的窗口加載視頻
1.插入攝像頭，只要qq視頻模塊可以使用的攝像頭，halcon基本都可以使用吧
2.在halcon中新建一個工程，文件/新程序
3.選擇助手/打開新的imageaquisition，點擊檢測，會檢測到directshow

觀察連接標簽欄里已經識別出中微星的攝像頭，可以點擊連接,實時查看一下。
顏色空間中可以選擇以灰度方式采集圖像。

4.選擇生成代碼標簽，如下。同步采集。


選擇插入代碼，如下
* 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代碼

如下，
... ' Main procedure Private Sub action()' Local iconic variablesDim ho_Image As HUntypedObjectX' Local control variablesDim hv_AcqHandle As Variant'Code generated by Image Acquisition 01Call 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 1Call 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 IfLoopCall Op.CloseFramegrabber(hv_AcqHandle) End SubSub InitHalcon()' Default settings used in HDevelopCall Op.SetSystem("do_low_error", "false") End SubSub RunHalcon(ByRef Window As HWindowX)hv_ExpDefaultWinHandle = Window.HalconIDCall action End Subvb中調用方式很簡單仍然是inithalocn和runhalcon
把read_camera.bas加進vb,添加代碼
Private Sub Form_Load()Call InitHalcon End SubPrivate Sub Command3_Click() Call RunHalcon(HWindowXCtrl.HalconWindow) End Sub

、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
需要注意的問題，
在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視頻







/******************************************************************/




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;//定義窗口IDHTuple 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 顯示圖像

轉載于:https://www.cnblogs.com/-song/archive/2012/03/29/3331878.html

總結

以上是生活随笔為你收集整理的halcon基本，vb，vc连接halcon读取图像，视频的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。