社区
VB
帖子详情
用capCreateCaptureWindowA来控控制摄像头时可不可以调整摄像头的亮度或对比色之类的
wzckr
2011-10-20 09:12:05
因为程序是用来拍照,在拍照之前可能要把照片的效果调的好一点,所以可能要调整视频的亮度或颜色的鲜艳之类的,
我现在是用capCreateCaptureWindowA来控制摄像头
...全文
503
4
打赏
收藏
用capCreateCaptureWindowA来控控制摄像头时可不可以调整摄像头的亮度或对比色之类的
因为程序是用来拍照,在拍照之前可能要把照片的效果调的好一点,所以可能要调整视频的亮度或颜色的鲜艳之类的, 我现在是用capCreateCaptureWindowA来控制摄像头
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
plum小梅
2013-12-28
打赏
举报
回复
能帮我写个拍图的代码不?
happytonice
2011-10-21
打赏
举报
回复
可以。
jshi123
2011-10-21
打赏
举报
回复
MCI_DGV_SETVIDEO_PARAMS params;
params.dwValue = -1;
mciSendCommand(deviceID, MCI_SETVIDEO, MCI_DGV_SETVIDEO_BRIGHTNESS, ref params);
http://msdn.microsoft.com/en-us/library/dd798401(v=vs.85).aspx
wzckr
2011-10-20
打赏
举报
回复
SendMessage(hWndC, WM_CAP_DLG_VIDEOSOURCE, 0, 0)
这条命令不要,我是想在界面上自己设置几个参数输入框,直接输入值来实现这些亮度,或对比度等的值的变动,
不是用这个命令打开系统的自带的对话框来设置
易语言
摄像头
编程
易语言
摄像头
编程源码,
摄像头
编程,
ca
pC
reat
e
Ca
pture
WindowA
,SetParent,SendMessage
处理
摄像头
图像的动态库
能录像和抓拍图像。您可以使用函数function ulong
ca
pC
reat
e
Ca
pture
WindowA
(string lpszWindowName,ulong dwStyle,long x,long y,long nWidth,long nHeight,ulong ParentWin,long nId ) LIBRARY 'AVI
CA
P32.DLL' ; ///开始事件: string lpszName ulong l1 l1=handle(win_test) lpszName='
摄像头
界面...' //
ca
pC
reat
e
Ca
pture
WindowA
(string lpszWindowName,ulong dwStyle,long x,long y,long nWidth,long nHeight,ulong ParentWin,long nId ) lhand=
ca
pC
reat
e
Ca
pture
WindowA
(lpszName,262144+12582912+1073741824 + 268435456 ,60,0,150,200,l1,0) if lhand <> 0 then send(lhand, WM_
CA
P_SET_
CA
LLBACK_VIDEOSTREAM, 0, 0) send(lhand, WM_
CA
P_SET_
CA
LLBACK_ERROR, 0, 0) send(lhand, WM_
CA
P_SET_
CA
LLBACK_STATUSA, 0, 0) send(lhand, WM_
CA
P_DRIVER_CONNECT, 0, 0) send(lhand, WM_
CA
P_SET_S
CA
LE, 1, 0) send(lhand, WM_
CA
P_SET_PREVIEWRATE, 66, 0) send(lhand, WM_
CA
P_SET_OVERLAY, 1, 0) send(lhand, WM_
CA
P_SET_PREVIEW, 1, 0) end if ////录像事件 string s s='c:\save.avi' if lhand<>0 then Send(lhand,WM_
CA
P_FILE_SET_
CA
PTURE
_FILEA,0, s); Send(lhand,WM_
CA
P_SEQUENCE, 0, 0) //开始捕捉 end if //停止保存 send(lhand, WM_
CA
P_STOP, 0, 0) /////保存图像 //保存为图片(按钮的clicked事件中) string s s='c:\save.bmp' if lhand <> 0 then Send(lhand,WM_
CA
P_SAVEDIB,0,s); end if
简易
摄像头
监控程序(VB源代码)
摘要:VB源码,多媒体技术,
摄像头
监控程序 简易
摄像头
监控程序(VB),关键代码如下: 创建视频窗口 ‘读取驱动程序列表
ca
pGetDriverDescriptionA 0, lpszName, 100, lpszVer, 100 ‘创建视频窗口程序 lwndC =
ca
pC
reat
e
Ca
pture
WindowA
(lpszName, WS_
CA
PTION Or WS_THICKFRAME Or WS_VISIBLE Or WS_CHILD, -5, -30, Pic.Width, Pic.Height, Pic.hwnd, 0)
C++the project filea single project or subproject 4
This file (the project file) contains information at the project level and is used to build a single project or subproject.
VB SQL
摄像头
照相模块源代码
Private Declare Function
ca
pC
reat
e
Ca
pture
Window Lib "avi
ca
p32.dll" _ Alias "
ca
pC
reat
e
Ca
pture
WindowA
" ( _ ByVal lpszWindowName As String, _ ByVal dwStyle As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWidth As Long, _ ByVal nHeight As Long, _ ByVal hWndParent As Long, _ ByVal nID As Long) As Long Private Const WS_CHILD = &H40000000 Private Const WS_VISIBLE = &H10000000 Private Const WM_USER = &H400 Private Const WM_
CA
P_START = &H400 Private Const WM_
CA
P_EDIT_COPY = (WM_
CA
P_START + 30) Private Const WM_
CA
P_DRIVER_CONNECT = (WM_
CA
P_START + 10) Private Const WM_
CA
P_SET_PREVIEWRATE = (WM_
CA
P_START + 52) Private Const WM_
CA
P_SET_OVERLAY = (WM_
CA
P_START + 51) Private Const WM_
CA
P_SET_PREVIEW = (WM_
CA
P_START + 50) Private Const WM_
CA
P_DRIVER_DISCONNECT = (WM_
CA
P_START + 11) Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" ( _ ByVal hWnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Preview_Handle As Long Public Function C
reat
e
Ca
pture
Window( _ hWndParent As Long, _ Optional x As Long = 0, _ Optional y As Long = 0, _ Optional nWidth As Long = 320, _ Optional nHeight As Long = 240, _ Optional n
ca
meraid As Long = 0) As Long Preview_Handle =
ca
pC
reat
e
Ca
pture
Window("Video", _ WS_CHILD + WS_VISIBLE, x, y, _ nWidth, nHeight, hWndParent, 1) SendMessage Preview_Handle, WM_
CA
P_DRIVER_CONNECT, n
ca
meraid, 0 SendMessage Preview_Handle, WM_
CA
P_SET_PREVIEWRATE, 30, 0 SendMessage Preview_Handle, WM_
CA
P_SET_OVERLAY, 1, 0 SendMessage Preview_Handle, WM_
CA
P_SET_PREVIEW, 1, 0 C
reat
e
Ca
pture
Window = Preview_Handle End Function Public Function
Ca
pture
Picture(n
ca
pture
handle As Long) As StdPicture Clipboard.Clear SendMessage n
ca
pture
handle, WM_
CA
P_EDIT_COPY, 0, 0 Set
Ca
pture
Picture = Clipboard.GetData End Function Public Sub Disconnect(n
ca
pture
handle As Long, _ Optional n
ca
meraid = 0) SendMessage n
ca
pture
handle, WM_
CA
P_DRIVER_DISCONNECT, _ n
ca
meraid, 0 End Sub Dim video_handle As Long Private Sub form_load() Me.Top = 840 Me.Left = 11240 Me.Width = 4800 Me.Height = 4380 On Error Resume Next video_handle = C
reat
e
Ca
pture
Window(Form1.hWnd) End Sub Private Sub Command1_Click() 员工信息.Enabled = True On Error Resume Next If Dir$("D:\kkk.jpg") <> "" Then Kill "D:\kkk.jpg" End If Dim x As StdPicture Set x =
Ca
pture
Picture(video_handle) SavePicture x, "D:\kkk.jpg" Disconnect (video_handle) video_handle = 0 Unload Form1 员工信息.SetFocus If Dir$("D:\kkk.jpg") = "" Then MsgBox "请先采集照片!" Command1.SetFocus Else Set 员工信息.Image1.Picture = LoadPicture("D:\kkk.jpg") Text1.Text = "" Clipboard.Clear End If Unload Me End Sub
VB
16,552
社区成员
110,526
社区内容
发帖
与我相关
我的任务
VB
VB技术相关讨论,主要为经典vb,即VB6.0
复制链接
扫一扫
分享
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章