我想使用dspack来捕捉视频,以下是得到视频输入设备的列表的代码(在dspack的PlayVideoCap中摘的):
var
i: integer;
Device: TMenuItem; SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters > 0 then
for i := 0 to SysDev.CountFilters - 1 do
begin
Device := TMenuItem.Create(Devices);
Device.Caption := SysDev.Filters[i].FriendlyName;
Device.Tag := i;
Device.OnClick := OnSelectDevice;
Devices.Add(Device);
end;1、次段代码只能识别到usb类的摄像头,但视频采集卡却识别不到。
2、视频要保存为avi格式,使用h.263或h.264压缩。
请专家牛人们指点一下,谢过!!
var
i: integer;
Device: TMenuItem; SysDev:= TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
if SysDev.CountFilters > 0 then
for i := 0 to SysDev.CountFilters - 1 do
begin
Device := TMenuItem.Create(Devices);
Device.Caption := SysDev.Filters[i].FriendlyName;
Device.Tag := i;
Device.OnClick := OnSelectDevice;
Devices.Add(Device);
end;1、次段代码只能识别到usb类的摄像头,但视频采集卡却识别不到。
2、视频要保存为avi格式,使用h.263或h.264压缩。
请专家牛人们指点一下,谢过!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货