怎样在自己的程序中设置采集的制式、分辨率等信息?(不通过调用系统的对话框)
另外,我现在用的是dspack控件,有没有更好的directshow控件能够更好的实现视频采集?
另外,我现在用的是dspack控件,有没有更好的directshow控件能够更好的实现视频采集?
解决方案 »
- delphi用WebBrowser控件的时候 360报木马错误
- 我写的一个delphi服务程序,其他都可以了,就是调用excel,把数据显示在excel表格后,打印预览时,打印窗口的打印机列表中,只显示本地打印机,不显示网络打印机,但单独打印预览时excel里面是
- QQ珊瑚虫版的安装文件是什么软件打包的
- windows中对文件的操作会不会发出什么消息?
- 自己做组件的问题
- 这样的程序该怎么处理
- 请问idhttp如何模拟提交一个带同意按钮的协议页面?
- 系统问题? MSSQL问题? 请高手解惑。(问题内详)
- Delphi怎么调试程序?
- 如何通过delphi打开rdp协议里磁盘映射的开关,谢谢
- 菜鸟问一下,怎么在当前目录下创建文件夹?
- 郁闷,delphi干吗这么难用啊
begin
PinLIst := TPinList.Create;
PinList.Assign(BaseF);
for I := 0 to PinList.Count - 1 do
begin
if Succeeded(PinList.Items[I].QueryInterface(IID_IAMStreamConfig, VStreamConf)) then
begin
VStreamConf.GetFormat(pf);
if IsEqualGUID(pf^.formattype, FORMAT_VideoInfo) then
begin
FVideoFormat := PVideoInfoHeader(pf^.pbFormat)^;
FVideoFormat.bmiHeader.biCompression := BI_RGB;
FVideoFormat.bmiHeader.biWidth := VIDEO_MODES[VideoMode].Width;
FVideoFormat.bmiHeader.biHeight := VIDEO_MODES[VideoMode].Height;
FVideoFormat.bmiHeader.biBitCount := 24;
FVideoFormat.bmiHeader.biSizeImage := FVideoFormat.bmiHeader.biWidth *
FVideoFormat.bmiHeader.biHeight *
FVideoFormat.bmiHeader.biBitCount
div 8;
pf^.pbFormat := @FVideoFormat;
result := Succeeded(VStreamConf.SetFormat(pf^));
end
else pf := nil;
end;
end;
PinList.Free;
BaseF := nil;
end;