Delphi6 用DirectShow 枚举视频设备信息

最新推荐文章于 2024-09-17 13:40:59 发布

筱灬卟叮

最新推荐文章于 2024-09-17 13:40:59 发布

阅读量474

点赞数

分类专栏： Delphi开发文章标签： Delphi6 枚举视频设备信息

本文链接：https://blog.csdn.net/fly_520/article/details/102610247

版权

本文介绍了如何在Delphi 6中利用DirectShow枚举视频设备，提供了一个从Delphi 10示例中提取的枚举函数，并展示了测试结果，包括AVerMedia SD Capture 1、AVerMedia HD Capture 1和USB视频设备等设备。

摘要由CSDN通过智能技术生成

想用Directshow 枚举视频设备信息，但是用的D6，从网上找到了Delphi 10的示例https://download.csdn.net/download/dbyoung/10025100

从中找出枚举函数，从DirectShow9.pas中找到一些const的参数值

unit UtUSBCamera;

interface

uses
     Windows, SysUtils, Classes, ActiveX;
type
  PVideoInputInfo  = ^TVideoInputInfo;
  PVideoFormatInfo = ^TVideoFormatInfo;
  { 视频输入设备 }
  TVideoInputInfo = record
    id: TGUID;
    strName: ShortString;
    index: Integer;
  end;

    { 视频支持格式 }
  TVideoFormatInfo = record
    id: TGUID;
    iWidth, iHeight: Integer;
    iMod: TGUID;
    Frame: Int64;
    format: ShortString;
  end;


  ICreateDevEnum = interface(IUnknown)
    ['{29840822-5B84-11D0-BD3B-00A0C911CE86}']
    (*** ICreateDevEnum methods ***)
    function CreateClassEnumerator(const clsidDeviceClass: TGUID;
        out ppEnumMoniker: IEnumMoniker; dwFlags: DWORD): HResult;