MFC，halcon混合编程 遍历目录文件夹下的图像并显示在对话框上

配置略，可参考这篇博客 点击打开链接

http://blog.csdn.net/bettyshasha/article/details/51544203

1.新建一个基于对话框的工程，在对话框类中定义如下变量

	// Local iconic variables
	HObject  ho_Image;

	// Local control variables
	HTuple  hv_ImageFiles, hv_Index;
	afx_msg void OnBnClickedButton1();

	//open window and show 
	HTuple hv_WindowHandle;

2.在初始化函数中，添加如下代码，打开控件窗口，窗口大小可设置，我设置的是200，150.读者可根据需要设定成需要的大小。

BOOL CshowTestDlg::OnInitDialog()
{
	CDialogEx::OnInitDialog();

//openWindowOpenWindow(0, 0, 200, 150, (Hlong)m_hWnd, "", "", &hv_WindowHandle);

	
}

3.新建一个按钮，并在按钮响应函数中添加如下代码：

void CshowTestDlg::OnBnClickedButton1()
{

//在此添加读入图像和显示代码
}

将这段代码嵌入到OnBnClickedButton1()
函数

//手动添加图片所在文件夹路径，遍历该文件夹下图像
	char* pfilefilter= "图片文件(*.bmp *.png *.jpg)|*.bmp;*.png;*jpg|All Files (*.*)|*.*||";
	CFileDialog  OpenDialog(TRUE, NULL, 0, OFN_OVERWRITEPROMPT, pfilefilter, NULL);
	CString str;
	if (OpenDialog.DoModal() == IDOK)
	{
		str = OpenDialog.GetPathName();
		int nIndex = str.ReverseFind('\\');
		str = str.Left(nIndex);	// 获取当前打开文件的所在目录
	}
	char* ch = (char*)LPCTSTR(str);

	HTuple htp;
	htp = ch; /*"E:/course/solder/6"*/
	//Image Acquisition 01: Code generated by Image Acquisition 01
	ListFiles(htp, ((HTuple("files").Append("follow_links")).Append("recursive")),
		&hv_ImageFiles);
	TupleRegexpSelect(hv_ImageFiles, (HTuple("\\.(tif|tiff|gif|bmp|jpg|jpeg|jp2|png|pcx|pgm|ppm|pbm|xwd|ima|hobj)$").Append("ignore_case")),
		&hv_ImageFiles);
	{
		HTuple end_val3 = (hv_ImageFiles.TupleLength()) - 1;
		HTuple step_val3 = 1;
		for (hv_Index = 0; hv_Index.Continue(end_val3, step_val3); hv_Index += step_val3)
		{
			ReadImage(&ho_Image, HTuple(hv_ImageFiles[hv_Index]));
			//Image Acquisition 01: Do something
			
			//clear window
			ClearWindow(hv_WindowHandle);
			//SetPart(hv_WindowHandle, 0, 0, hv_Width, hv_Height);
			
			//display image
			DispObj(ho_Image, hv_WindowHandle);
			Sleep(1000);

		}
	}

效果如图

如果要在控件如，picture control里面实现，将1，2修改如下：

配置略，可参考

1.新建一个基于对话框的工程，在对话框类中定义如下变量

	// Local iconic variables
	HObject  ho_Image;

	// Local control variables
	HTuple  hv_ImageFiles, hv_Index;
	afx_msg void OnBnClickedButton1();

	//open window and show 
	HTuple hv_WindowHandle;

 	//pcture control 控件上显示图像
	 CRect rtWindow;
 	HWND hImgWnd;

2.在对话框中添加picture control控件，并将ID号改为，IDC_MY_PIC.

在初始化函数中，添加如下代码，打开控件窗口，窗口大小可设置，我设置的是200，150.读者可根据需要设定成需要的大小。

BOOL CshowTestDlg::OnInitDialog()
{
	CDialogEx::OnInitDialog();

//在picture control上显示
 hImgWnd = GetDlgItem(IDC_MY_PIC)->m_hWnd;
 GetDlgItem(IDC_MY_PIC)->GetClientRect(&rtWindow);
 OpenWindow(rtWindow.left, rtWindow.top, rtWindow.Width(), rtWindow.Height(), (Hlong)hImgWnd, "visible", "", &hv_WindowHandle);

	
}

效果如图