| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
大量收QQ微信精准粉/交友粉,非诚勿扰千里之行 始于足下
共有 875 人关注过本帖
标题:VFP如何拍照问题
只看楼主 加入收藏
littlefool1
Rank: 1
等 级:新手上路
帖 子:29
专家分:8
注 册:2018-2-23
结帖率:66.67%
  已结贴   问题点数:20  回复次数:10   
VFP如何拍照问题
就是在表单上做个视频窗口,连接摄像头,当人站在摄像头前,用鼠标在视频窗口上圈定人头像,并选中,获得人物照片
2018-03-03 12:18
wcx_cc
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:20
帖 子:202
专家分:521
注 册:2015-10-2
  得分:4 
我个人实现过.自己做了一个抓图表单,可扩缩,可拖拉.接上摄像头,出现视频后,将抓图表单移到合适处,并适当调节窗口,按确认键,抓取一张照片.感兴趣的就给你一个抓图器.
因为很早时我在此论坛上发布过.





[此贴子已经被作者于2018-3-3 21:17编辑过]

2018-03-03 15:54
吹水佬
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:160
帖 子:6209
专家分:27203
注 册:2014-5-20
  得分:4 
窗口截图
参考示例:
**
** test.prg
**
DECLARE LONG GetDC IN user32 LONG
DECLARE LONG ReleaseDC IN user32 LONG, LONG

DECLARE LONG CreateCompatibleDC IN gdi32 LONG
DECLARE LONG DeleteDC IN gdi32 LONG
DECLARE LONG CreateCompatibleBitmap IN gdi32 LONG, LONG, LONG
DECLARE LONG SelectObject IN gdi32 LONG, LONG
DECLARE LONG DeleteObject IN gdi32 LONG
DECLARE LONG BitBlt IN gdi32 LONG, LONG, LONG, LONG, LONG, LONG, LONG, LONG, LONG

DECLARE LONG GdiplusStartup IN gdiplus LONG@, STRING@, LONG
DECLARE LONG GdiplusShutdown IN gdiplus LONG
DECLARE LONG GdipCreateBitmapFromHBITMAP IN gdiplus LONG, LONG, LONG@
DECLARE LONG GdipDisposeImage IN gdiplus LONG
DECLARE LONG GdipSaveImageToFile IN gdiplus LONG, STRING@, STRING@, LONG

PUBLIC oForm
oForm  = NEWOBJECT("Form1")
oForm.Show
READ EVENTS
CLEAR DLLS
RETURN

DEFINE CLASS Form1 As Form
    Height = 300
    Width  = 300
    AutoCenter = .T.
   
    ADD OBJECT Command1 AS COmmandButton WITH top=100,left=100,height=100,width=100,caption="表单区域截图"

    PROCEDURE UnLoad
        CLEAR EVENTS
    ENDPROC

    PROCEDURE Command1.Click
        LOCAL szOutFile, ppX, ppY, ppWidth, ppHeight,;
              stGSI, lpGDI, hDC, hppDC, hBitmap, lpBitmap

            * 截图文件名
        szOutFile = GETFILE("jpg","截图文件名")
        IF EMPTY(szOutFile)
            RETURN
        ENDIF
            * 截图区域
        ppX = 80
        ppY = 80
        ppWidth  = 140
        ppHeight = 140
            * 初始化GDI
        stGSI = 0h01000000000000000000000000000000
        lpGDI = 0
        GdiplusStartup(@lpGDI, @stGSI, 0)
            * 获取截图设备句柄
        hDC     = GetDC(thisform.hWnd)
        hppDC   = CreateCompatibleDC(hDC)
        hBitmap = CreateCompatibleBitmap(hDC, ppWidth, ppHeight)
            * 获取截图
        SelectObject(hppDC, hBitmap)
        BitBlt(hppDC, 0, 0, ppWidth, ppHeight, hDC, ppX, ppY, 0xCC0020)  && SRCCOPY
            * 保存截图
        szOutFile = STRCONV(szOutFile + 0h00, 5)
        jpgGUID   = 0h01F47C55041AD3119A730000F81EF32E
        lpBitmap  = 0
        GdipCreateBitmapFromHBITMAP(hBitmap, 2, @lpBitmap)
        GdipSaveImageToFile(lpBitmap, @szOutFile, @jpgGUID, 0)
            * 释放资源
        GdipDisposeImage(lpBitmap)
        DeleteObject(hBitmap)
        DeleteDC(hppDC)
        ReleaseDC(thisform.hWnd, hDC)
        GdiplusShutdown(lpGDI)
        MESSAGEBOX("截图文件: " + STRCONV(szOutFile, 6))
    ENDPROC
ENDDEFINE
2018-03-03 16:01
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:16
帖 子:492
专家分:661
注 册:2012-2-29
  得分:4 
@吹水佬,学习啦,谢谢!
2018-03-03 18:27
littlefool1
Rank: 1
等 级:新手上路
帖 子:29
专家分:8
注 册:2018-2-23
  得分:0 
回复 2楼 wcx_cc
发过来,谢谢
2018-03-07 18:16
wcx_cc
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:20
帖 子:202
专家分:521
注 册:2015-10-2
  得分:0 
......

[此贴子已经被作者于2018-3-10 21:09编辑过]

2018-03-07 20:48
wengjl
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:59
帖 子:1388
专家分:2587
注 册:2007-4-27
  得分:4 
以下是引用wcx_cc在2018-3-7 20:48:03的发言:



这个抓图器是vfp 9.0 编译的 exe,可以放在程序中.表单中 等任何地方来启用.(其他的抓图工具可能没这么随便的) 透明的,只是一个4边框.抓图框显示后,也不影响你透过框来点击其他的东西.右上角是放弃按钮,右下角时确认抓图按钮,图片默认放在 C 盘下,如果觉得放的地方不理想,我可以再另改.(怎样启用 exe 的语句,你肯定会的)
(保存2天)   

  


本来我想需要时再下载的。看保存2天字样,赶下了。哈哈哈,谢!

只求每天有一丁点儿的进步就可以了
2018-03-08 10:37
schtg
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:16
帖 子:492
专家分:661
注 册:2012-2-29
  得分:0 
回复 6楼 wcx_cc
学习啦,谢谢!
2018-03-08 13:09
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:344
帖 子:11286
专家分:42359
注 册:2006-5-13
  得分:4 
摄像头有相应的控件可调用的,论坛中也有许多录像、拍照、监控等例子,搜索一下就能找到。

活到老,学到老! http://www.qs98.com E-mail:hu-jj@21cn.com
2018-03-09 08:14
xinhouju2
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2018-4-3
  得分:0 
一个不错的拍照程序,经过试验好用。
附件: 您没有浏览附件的权限,请 登录注册
2018-04-06 12:00







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034673 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved