zoukankan      html  css  js  c++  java
  • VFP调用API来控制USB摄像头,实现拍照或录像

    *--前提:VFP7.0以上;Windows 2K及以上
    *--控件:AVICAP32.DLL

    *--定义:一般放到主程序或表单(集)的Load事件中
    Public WM_CAP_DRIVER_DISCONNECT
    Public hwndc,WM_CAP_SAVEDIB,WM_CAP_FILE_SET_CAPTURE_FILEA,WM_CAP_SEQUENCE,WM_CAP_STOP
    Declare Integer capCreateCaptureWindowA In "AVICAP32.DLL" String lpszWindowName ,Integer dwStyle ,;
    Integer x, Integer Y, Integer nWidth ,Integer nHeight,Integer ParentWin,Integer nId
    Declare Integer SendMessage In "user32" Integer HWnd, Integer wmsg,Integer wpar1, Integer wpar2
    Declare Integer SendMessage In "user32" As SendMessageA Integer HWnd, Integer wmsg,Integer wpar1, String wpar2

    *--显示:可以放到按钮或表单(集)的Init事件中
    WM_USER = 1024
    WM_CAP_START = WM_USER
    WM_CAP_STOP = WM_CAP_START + 68
    WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10
    WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11
    WM_CAP_SAVEDIB = WM_CAP_START + 25
    WM_CAP_GRAB_FRAME = WM_CAP_START + 60
    WM_CAP_SEQUENCE = WM_CAP_START + 62
    WM_CAP_FILE_SET_CAPTURE_FILEA = WM_CAP_START + 20
    WM_CAP_SEQUENCE_NOFILE =WM_CAP_START+ 63
    WM_CAP_SET_OVERLAY =WM_CAP_START+ 51
    WM_CAP_SET_PREVIEW =WM_CAP_START+ 50
    WM_CAP_SET_CALLBACK_VIDEOSTREAM = WM_CAP_START +6
    WM_CAP_SET_CALLBACK_ERROR=WM_CAP_START +2
    WM_CAP_SET_CALLBACK_STATUSA= WM_CAP_START +3
    WM_CAP_SET_CALLBACK_FRAME= WM_CAP_START +5
    WM_CAP_SET_SCALE=WM_CAP_START+ 53
    WM_CAP_SET_PREVIEWRATE=WM_CAP_START+ 52
    *第3、4个参数是定义显示位置,第5、6个参数是定义显示大小。
    hWndC = capCreateCaptureWindowA('My Own Capture Window',1342177280,0,0,320,240,Thisform.HWnd ,0)
    If hWndC <> 0
    SendMessage(hWndC, WM_CAP_SET_CALLBACK_VIDEOSTREAM, 0, 0)
    SendMessage(hWndC, WM_CAP_SET_CALLBACK_ERROR, 0, 0)
    SendMessage(hWndC, WM_CAP_SET_CALLBACK_STATUSA, 0, 0)
    SendMessage(hWndC, WM_CAP_DRIVER_CONNECT, 0, 0)
    SendMessage(hWndC, WM_CAP_SET_SCALE, 1, 0)
    SendMessage(hWndC, WM_CAP_SET_PREVIEWRATE, 66, 0)
    SendMessage(hWndC, WM_CAP_SET_OVERLAY, 1, 0)
    SendMessage(hWndC, WM_CAP_SET_PREVIEW, 1, 0)
    * THISFORM.ACTIVATE
    Endif

    *--关闭显示:
    SendMessage(hWndC,WM_CAP_DRIVER_DISCONNECT, 0, 0)
    hWndC=0

    *--保存图像:
    *--无法控制生成的文件尺寸,因为是由摄像头本身默认的,不过可用Image控件显示时进行等比缩小的。
    ss=Getfile("bmp;Jpg")
    If !Empty(ss)
    SendMessageA(hWndC,WM_CAP_SAVEDIB,0,ss)
    Endif

    *--录像:
    ss = Getfile("avi")
    If !Empty(ss)
    SendMessageA(hWndC,WM_CAP_FILE_SET_CAPTURE_FILEA,0,ss)
    SendMessageA(hWndC, WM_CAP_SEQUENCE, 0, 0)
    This.Enabled=.F.
    Thisform.MousePointer= 0
    Thisform.停止录像按钮.Enabled=.T.
    Endif

    *--停止录像:
    SendMessage(hWndC, WM_CAP_STOP, 0, 0)
    Thisform.开始录像按钮.Enabled=.T.
    This.Enabled=.F.

  • 相关阅读:
    PHP官方文档之————secure.php.net.while
    设计模式之————依赖注入(Dependency Injection)与控制反转(Inversion of Controller)
    【精选】Ubuntu 14.04 安装Nginx、php5-fpm、ThinkPHP5.0(已经测试上线)
    PHP 命令行模式实战之cli+mysql 模拟队列批量发送邮件(在Linux环境下PHP 异步执行脚本发送事件通知消息实际案例)
    Visual Studio Code 教程之————入门篇
    Composer学习之————Ubuntu14.04下安装Composer
    Golang入门教程(一)GOPATH与工作空间(Windows)
    流媒体技术学习笔记之(十六)H264编码profile & level控制
    H264编码profile & level控制
    海康中间件测试
  • 原文地址:https://www.cnblogs.com/hnllhq/p/12286782.html
Copyright © 2011-2022 走看看