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