pb通过摄像头拍照并保存到sqlserver中

最新推荐文章于 2023-01-20 19:51:34 发布

降蛇伏猫喵

最新推荐文章于 2023-01-20 19:51:34 发布

阅读量1.5k

点赞数

分类专栏： pb 文章标签： pb8.0 摄像头保存图片拍照 pb12.5

本文链接：https://blog.csdn.net/jmsl1533/article/details/84645959

版权

本文档描述了在将PowerBuilder 8.0代码升级到12.5时遇到的通过摄像头拍照并保存到SQL Server中的问题。在PB12.5中，使用`send()`函数保存图片到本地失败，通过引入新的外部函数和调整代码，成功实现了图片的抓取和保存，并更新到数据库。

摘要由CSDN通过智能技术生成

业务需求：通过电脑摄像头拍照身份证，并以image格式保存到sqlserver中。

工具：pb8.0 ， sqlserver2008

原代码如下：

1.引入外部函数：function ulong capCreateCaptureWindowA(string lpszWindowName,ulong dwStyle,long x,long y,long nWidth,long nHeight,ulong ParentWin,long nId ) LIBRARY 'AVICAP32.DLL' alias for "capCreateCaptureWindowA;Ansi"

2.初始化窗口，在窗口open事件中设定：

string lpszName
ulong l1
l1=handle(this)

lpszName='攝像頭界面...'
lhand=capCreateCaptureWindowA(lpszName,262144+12582912+1073741824 + 268435456 ,10,10,300,200,l1,0)
if lhand <> 0 then
send(lhand, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0)
send(lhand, WM_CAP_SET_CALLBACK_ERROR, 0, 0)
send(lhand, WM_CAP_SET_CALLBACK_STATUSA, 0, 0)
send(lhand, WM_CAP_DRIVER_CONNECT, 0, 0)
send(lhand, WM_CAP_SET_SCALE, 1, 0)
send(lhand, WM_CAP_SET_PREVIEWRATE, 66, 0) <