读书人

要抓取摄像头视频或者摄像头截图源码

发布时间: 2011-12-18 22:54:38 作者: rapoo

要抓取摄像头视频,或者摄像头截图源码???急要在线等
anncesky@163.com

[解决办法]
up
[解决办法]
帮顶一下。
[解决办法]
Flash中有调用底部端口的方法。去Flash去看看吧。
[解决办法]
MARK
[解决办法]
Backup
[解决办法]
已发邮件到你邮件


VB源码:

ezVidCap1 为 ezVidc60.OCX 控件
picPhoto 为picture 控件


开始预览
Private Sub cmdStart_Click()

Me.ezVidCap1.Preview = True

Me.ezVidCap1.Visible = True
Me.picPhoto.Visible = False

Me.cmdStop.Enabled = True
Me.cmdStart.Enabled = False
Me.cmdSave.Enabled = False
Me.cmdCancel.Enabled = False

End Sub


停止预览
Private Sub cmdStop_Click()

Me.ezVidCap1.Visible = True
Me.picPhoto.Visible = False
Me.ezVidCap1.Preview = False

With Me.picPhoto
.AutoRedraw = True
Me.ezVidCap1.EditCopy
.Picture = Clipboard.GetData
.PaintPicture .Picture, 0, 0, .ScaleWidth, .ScaleHeight
End With

Me.cmdStop.Enabled = False
Me.cmdStart.Enabled = True
Me.cmdSave.Enabled = True
Me.cmdCancel.Enabled = True

End Sub


保存

Private Sub cmdSave_Click()
Dim toFile As String
toFile = GetSpecialFolder(2) + "\HR_Photo\ " & lngPerID & ".bmp "
SavePicture Me.picPhoto.Image, toFile
If WriteImageToDB(lngPerID, toFile, False) Then
Me.Hide
End If
End Sub


[解决办法]
mark
[解决办法]
学习的时候,也要顶一下,
[解决办法]

[解决办法]
学习。。。
[解决办法]
FMS
[解决办法]
activex or flash
[解决办法]
up
[解决办法]
Windows 平台需要 ActiveX 插件, Flash 亦是 AX
[解决办法]
up
[解决办法]
你可以用flash实现
[解决办法]
学习

[解决办法]
给你把
我朋友开发的blog上用到的一个拍照 插件
http://www.bfor.cn/download/MakePic.rar
你拿去改一下
顺便说下 这个blog程序不错
[解决办法]
mark

读书人网 >asp.net

热点推荐