avcap TakePictureToFile 问题
本帖最后由 radiofan 于 2013-10-16 16:04:22 编辑 TakePictureToFile，用高拍仪拍摄图片，默认设置下代码运行正常，就是TakePictureToFile（“D:\test.jpg”）没有图像文件，当设置分辨率到640*480时可以拍摄图片，但也不是很正常，有时也无法生成图像文件，请问各位大侠是否遇到过这个问题，谢谢指点。
总之，无论如何设置，就是takepicturetofile有时可以存取图片，有时不可以存取图片。
[解决办法]
1、保存为 BMP 格式试试，TakePictureToFile（“D:\test.BMP”）
2、不能用 AvCap 的菜单更改分辨率，因为用 AvCap 更改的 分辨率，不一定是照像设备支持的，一旦不支持，就无法拍照生成图片了。
应该用 照像设备 提供的设置程序来更改 分辨率，如：Thisform.oleAVCapture.ShowConfigureDialog(2)
[解决办法]
试试这个：
If File("D:\test.BMP")
Delete File D:\test.BMP
Endif
Do While .T.
Thisform.OleAvCap.TakePictureToFile('D:\test.BMP')
hImg = ImgOpen('D:\test.BMP')
If Not hImg==""
=ImgClose(hImg)
Exit
Endif
Enddo
