directshow 9 编程

转载 2007年10月10日 21:36:00

定义

    CB_VideoCapFilters: TComboBox;
    CB_AudioCapFilters: TComboBox;
    CB_VideoFormats: TComboBox;
    CB_AudioFormats: TComboBox;
    CB_InputLines: TComboBox;

     AudioSourceFilter: TFilter;
    VideoSourceFilter: TFilter;
    FilterGraph: TFilterGraph;   

    VideoSysDev: TSysDevEnum;
    AudioSysDev: TSysDevEnum;
    VideoMediaTypes: TEnumMediaType;
    AudioMediaTypes: TEnumMediaType;

枚举端口

var
  i: integer;
begin
  VideoSysDev := TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
  for i := 0 to VideoSysDev.CountFilters - 1 do
    CB_VideoCapFilters.Items.Add(VideoSysDev.Filters[i].FriendlyName);
  CB_VideoCapFilters.ItemIndex := 0;
 

  AudioSysDev := TSysDevEnum.Create(CLSID_AudioInputDeviceCategory);
  for i := 0 to AudioSysDev.CountFilters - 1 do
    CB_AudioCapFilters.Items.Add(AudioSysDev.Filters[i].FriendlyName);
  CB_AudioCapFilters.ItemIndex := 0;

 

  VideoMediaTypes := TEnumMediaType.Create;
  AudioMediaTypes := TEnumMediaType.Create;

 

end;

选择视频源

var
  i: integer;
begin
  VideoSysDev := TSysDevEnum.Create(CLSID_VideoInputDeviceCategory);
  for i := 0 to VideoSysDev.CountFilters - 1 do
    CB_VideoCapFilters.Items.Add(VideoSysDev.Filters[i].FriendlyName);
  CB_VideoCapFilters.ItemIndex := 0;
 

  AudioSysDev := TSysDevEnum.Create(CLSID_AudioInputDeviceCategory);
  for i := 0 to AudioSysDev.CountFilters - 1 do
    CB_AudioCapFilters.Items.Add(AudioSysDev.Filters[i].FriendlyName);
  CB_AudioCapFilters.ItemIndex := 0;

 

  VideoMediaTypes := TEnumMediaType.Create;
  AudioMediaTypes := TEnumMediaType.Create;

 

end;

 

选择音频源

var
  PinList: TPinList;
  i, LineIndex: integer;
  ABool: LongBool;
begin
  AudioSysDev.SelectGUIDCategory(CLSID_AudioInputDeviceCategory);
  if CB_AudioCapFilters.ItemIndex <> -1 then
  begin
    AudioSourceFilter.BaseFilter.Moniker := AudioSysDev.GetMoniker(CB_AudioCapFilters.ItemIndex);
    AudioSourceFilter.FilterGraph := FilterGraph;
    FilterGraph.Active := true;
    PinList := TPinList.Create(AudioSourceFilter as IBaseFilter);
    CB_AudioFormats.Clear;
    i := 0;
    while i < PinList.Count do
      if PinList.PinInfo[i].dir = PINDIR_OUTPUT then
      begin
        AudioMediaTypes.Assign(PinList.Items[i]);
        PinList.Delete(i);
      end else inc(i);

    for i := 0 to AudioMediaTypes.Count - 1 do
    begin
      CB_AudioFormats.Items.Add(AudioMediaTypes.MediaDescription[i]);
    end;
    CB_AudioFormats.ItemIndex := 0;

    FilterGraph.Active := false;
    CB_InputLines.Clear;
    LineIndex := -1;
    for i := 0 to PinList.Count - 1 do
    begin
      CB_InputLines.Items.Add(PinList.PinInfo[i].achName);
      with (PinList.Items[i] as IAMAudioInputMixer) do get_Enable(ABool);
      if ABool then LineIndex := i;
    end;
    CB_InputLines.ItemIndex := LineIndex;
    PinList.Free;
  end;
end;

显示属性

  ShowFilterPropertyPage(Self.Handle, VideoSourceFilter as IBaseFilter);

  ShowFilterPropertyPage(Self.Handle, AudioSourceFilter as IBaseFilter);

 

DirectShow9

  • 2009年06月12日 08:47
  • 4.27MB
  • 下载

使用BCB进行DirectShow开发(一)SDK和配置开发环境

最近用BCB刚刚写了一个视频直播的应用。 DirectX9 SDK下载与安装: 有两个办法,去下标准的DirectX SDK来安装,并完成必须的定制过程,这是一个很惨的过程,至少对了我这样的菜鸟而言,...
  • Afile
  • Afile
  • 2007-07-21 03:45:00
  • 3433

【视频处理工程】3、DirectShow基本开发过程(一)

DiectShow工程的开发需要提前编译相关的两个静态库,具体方法在前文【视频处理工程】1、DirectShow基本概念中已有叙述。这里假设我们的开发环境是Windows 7+Visual Stud...
  • shaqoneal
  • shaqoneal
  • 2014-03-04 11:43:31
  • 3125

[DirectShow] vmr-9(Video Mixing Renderer 9) Filter (视频混合渲染处理器9 filter)

由此翻译纯属自己的笔记及练习一下英语阅读。翻译错和翻译得极烂的地方要是我今后水平得到提到的话会来修改修改的。 翻译源:http://msdn.microsoft.com/en-us/library/w...
  • misskissC
  • misskissC
  • 2013-05-18 14:00:49
  • 3434

VC++ DirectShow的使用

需要知道DirectShow是DirectX中的一部分。DirectX是Microsoft公司推出的一套底层应用程序编程接口,主要用于游戏和其它高性能多媒体应用。这些接口包含对二维图形、三维图形、声效...
  • hunterlew
  • hunterlew
  • 2014-11-20 10:32:19
  • 1275

DirectShow编程(3.4) - 关于DirectShow - Filter Graph中的数据流

3.4. Filter Graph中的数据流    这一节主要描述媒体数据是如何在filter graph中流动的。如果你只是为了编写DirectShow应用程序,你不需要知道这些细节,当然,知道这些...
  • eyes4
  • eyes4
  • 2004-10-12 10:02:00
  • 5851

一个清华学子写的关于directshow的学习心得【转】

学习DirectShow有一段时间了,把这段学习过程中翻译出来的SDK与大家分享,同时也希望专家们指出我理解上的错误,万分感谢。 1. DirectShow介绍     DirectShow是一个wi...
  • wishfly
  • wishfly
  • 2015-11-18 10:30:43
  • 11114

分享DirectShow编程的一点经验

尽管DirectShow的架构已经不再主流,MediaFoundation也许才是更好的架构,但微软似乎没有完全把它抛弃,在Windows SDK 7.1里也包括DirectShow,以前很多播放器也...
  • qiuchangyong
  • qiuchangyong
  • 2016-09-16 22:49:22
  • 199

最简单的基于DirectShow的示例:视频播放器自定义版

本文记录一个简单的基于DirectShow的自定义的视频播放器。这里所说的“自定义播放器”,实际上指的是自己在Filter Graph中手动逐个添加Filter,并且连接这些Filter的后运行的播放...
  • leixiaohua1020
  • leixiaohua1020
  • 2015-01-11 18:05:19
  • 10446

利用DirectShow开发C#版的视频播放器

    今天这里要给各位朋友介绍的是本人利用业余时间使用C#编写的一个视频播放器,开发环境为Microsoft Visual Studio 2008/C#、Microsoft DirectX 9.0 ...
  • huangxinfeng
  • huangxinfeng
  • 2010-09-19 19:58:00
  • 9586
收藏助手
不良信息举报
您举报文章:directshow 9 编程
举报原因:
原因补充:

(最多只允许输入30个字)