要抓取摄像头视频,或者摄像头截图源码???急要在线等
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