videocapx.ocx如何选择和更改视频输入设备及视频压缩编码？

[etbjian]

videocapx.ocx如何选择和更改视频输入设备及视频压缩编码？
For F = 0 To Thisform.vcx.GetVideoDeviceCount - 1
Thisform.cboVideoDevice.AddItem (Thisform.vcx.GetVideoDeviceName(F))
Endfor
If Thisform.vcx.GetVideoDeviceCount > 0
Thisform.cboVideoDevice.ListIndex = 1
Endif

如果要枚举音频设备
同理
*!* 查找或枚举音频设备
For F = 0 To Thisform.vcx.GetProfileCount - 1
Thisform.cboAudioDevice.AddItem (Thisform.vcx.GetProfileName(F)) && + " " + Thisform.vcx.GetProfileDesc(F)
Endfor
If Thisform.cboAudioDevice.ListCount > 0
Thisform.cboAudioDevice.ListIndex = 1
Endif

我更改设备后不能切换

[回马枪]

*!* 视频切换 Click *!* 首先关闭当前的视频音频设备 Thisform.vcx.Connected = .F. Thisform.vcx.CaptureAudio = .F. Thisform.vcx.PreviewAudio = .F. Thisform.vcx.DebugMode = 1 *!* 获取所选的设备索引 Thisform.vcx.VideoDeviceIndex = This.ListIndex - 1 Thisform.vcx.AudioDeviceIndex = -1 *!* 连接音频驱动 Thisform.vcx.CaptureAudio = .T. Thisform.vcx.PreviewAudio = .T. *!* 连接视频驱动 Thisform.vcx.Connected = .T. *!* 设置视频大小 *!* Thisform.vcx.SetVideoFormat (640, 480) && (320, 240) *!* 开始预览 Thisform.vcx.UseVideoFilter = .T. Thisform.vcx.Preview = .T. Thisform.vcx.Overlay = .T.

[rknauctj]

不错呦，学习啦

[回马枪]

试了下 接三个摄像头也可以

[回马枪]

使用音频压缩 If thisform.ChkUseAudioCap.Value = 0 thisform.cboAudioCompressor.Enabled = .f. Else thisform.cboAudioCompressor.Enabled = .t. EndIf 使用视频压缩 If thisform.ChkUseVideoCap.Value = 0 thisform.cboVideoCompressor.Enabled = .f. Else thisform.cboVideoCompressor.Enabled = .t. EndIf

[回马枪]

视频分辨率是与摄像头的质量有关 本本自带的摄像头最大支持：640X480 外接的摄像头支持：1280X960X24