Delphi 7 下 DSPACK 2.3.4 实战：DirectShow 视频采集与播放指南

简介DSPACK 2.3.4 for Delphi 5/6/7 是一套面向老版本 Delphi 开发者的 DirectShow 与 DirectX 封装库主要解决音视频捕获、播放、录制以及摄像头控制等多媒体开发难题。压缩包共 277 个文件大小仅 1.78MB其中以 pas 源文件、dpr 工程、dfm 窗体、dpk 包文件为主也包含 lib 静态库、bat 脚本、h 头文件等分类清晰便于在 Delphi 5/6/7 中直接加载或修改。资源覆盖 DirectShow 过滤器图操作、DirectSound 音频混音、AVI/WMV/MP3 等格式读写、摄像头分辨率与帧率调节等核心功能并附带示例工程和帮助文档能让开发者直观理解视频聊天、监控采集、简单播放器等应用的搭建流程。目前已有 498 人学习下载对于仍在使用经典 Delphi 环境并希望引入多媒体能力的开发者来说是一份轻量实用、参考价值较高的工具库。1. 项目概述DSPACK 2.3.4 到底是什么如果你混过 Delphi 的多媒体开发圈子应该对 DSPACK 不陌生。这个开源组件库从 2001 年左右开始活跃专门把微软 DirectShow 那套庞大的多媒体框架封装成 Delphi 能直接调用的 VCL 组件。简单说有了它你可以在 Delphi 5、6、7 里像拖个 Button 一样拖一个 TFilterGraph 到窗体上然后几行代码就能实现摄像头采集、视频播放、音频处理这些功能。DSPACK 2.3.4 是这套组件库在 Delphi 5/6/7 时代的一个经典稳定版本。我知道今天还有不少人在纠结——都 2024 年了还有人用 Delphi 7 吗实际情况是很多工业控制、医疗设备、老系统维护项目里Delphi 7 依然在跑而且跑得稳。尤其是一些需要对接 USB 摄像头、采集卡、音视频流的项目DSPACK 几乎是唯一一个能靠得住的开源选择。这篇博文我打算围绕 DSPACK 2.3.4 在 Delphi 5/6/7 下的实际使用把环境配置、视频采集、播放、滤镜处理这几个核心场景讲透再把当年踩过的坑一并列出来。适合三类人看一是刚接手老项目需要补课的新手二是想在 Delphi 里做音视频功能的开发者三是还在维护 Delphi 7 代码的老兵。2. 环境准备与安装配置2.1 下载与目录结构解读DSPACK 2.3.4 的发布包是一个压缩文件解压后目录结构大致如下DSPACK_2.3.4/ ├───packages/ │ ├───D5/ │ ├───D6/ │ └───D7/ ├───source/ │ ├───DirectShow9/ │ ├───DSPack/ │ └───BaseClass/ └───demos/packages目录下按 Delphi 版本分了三个子目录里面是 .dpk 包文件直接用对应版本的 Delphi 打开编译即可。source目录是核心源码其中DirectShow9是 DirectShow 接口的 Pascal 翻译版本DSPack是封装好的组件源码BaseClass是 C 基类的 Pascal 移植。这里有一个关键点DSPACK 2.3.4 依赖 DirectX 9 的运行时和开发头文件。在 Windows 2000/XP 时代DirectX 9 几乎是标配但如果你在 Windows 7 以上的系统里装需要确保系统里有 DirectX 9 的运行库。Windows 10/11 自带 DirectX 12向下兼容到 DirectX 9所以一般没问题。但编译器那头需要能读到 DirectX 的 Pascal 头文件——DSPACK 源码里自带了一套翻译好的头文件不需要额外装 DirectX SDK这点比很多老库要省心。2.2 Delphi 7 环境下的安装步骤我自己主要在 Delphi 7 下用安装顺序是固定的照着走不会出问题第一步打开 Delphi 7在File Open里定位到packages/D7/目录先打开dspack_d7.dpk。第二步右键 Project Manager 里的包名选择Compile。编译过程大概十几秒如果报错九成是源码路径没加对——需要在Tools Environment Options Library Library Path里把source/DirectShow9、source/DSPack、source/BaseClass这三个目录都加进去。第三步编译通过后在包管理器里点Install。这时组件面板会多出一页叫DSPack里面有 TFilterGraph、TSampleGrabber、TVideoWindow、TAudioCapture 等十几个组件。第四步如果你需要用 TDSVideoCaptureProperties 这类属性编辑器还得把source/DSPack目录下的 .dfm 文件也纳入搜索路径不然 IDE 会提示找不到资源文件。我在实测中遇到过一个问题某些精简版 Delphi 7 缺少adstunits.pas这个单元编译 DPK 时直接报“File not found”。解决方法是源码包里搜索这个文件把它复制到lib目录下。这就是老库的典型脾气——依赖文件不全需要手动补。2.3 新建项目注意的搜索路径安装完组件只是第一步实际建项目的时候很多新手在Project Options Directories/Conditionals里忘了把 DSPACK 的源码路径加进去导致编译时提示找不到DirectShow9.pas。我的建议是配置以下路径C:\DSPACK_2.3.4\source\DirectShow9 C:\DSPACK_2.3.4\source\DSPack C:\DSPACK_2.3.4\source\BaseClass同时如果编译 64 位目标——这又是一个老库的老问题——DSPACK 2.3.4 源代码基于 32 位指针假设写的在 Delphi XE 以上版本里编译 Win64 目标会直接报错。如果你的机器是 64 位系统务必把项目目标平台设为 32 位Win32。这点我在第四节会再展开。3. 核心功能实操详解3.1 用 TFilterGraph 搭建视频播放通道TFilterGraph 是 DSPACK 中最核心的组件它的作用是管理 DirectShow 滤镜图Filter Graph的整个生命周期。滤镜图这个概念初学者可能要绕一下——我打个比方一个视频播放任务就像一条流水线源文件是原材料分离器把原料拆成视频流和音频流解码器把压缩流解成原始帧渲染器把帧画到屏幕上。TFilterGraph 就是这个流水线的总调度员。要在 Delphi 7 里实现播放视频文件代码非常简单uses DSPack, DirectShow9; procedure TForm1.PlayVideo(AFileName: string); begin FilterGraph1.Active : False; FilterGraph1.ClearGraph; FilterGraph1.RenderFile(AFileName, nil); FilterGraph1.Play; end;这段代码的背后RenderFile方法会自动检测文件类型并选择匹配的分离器和解码器不需要你手动搭建滤镜链——这是 DSPACK 提供封装的意义。实际使用中我发现几个细节值得注意第一ClearGraph之后必须等一两帧时间再RenderFile否则在某些显卡驱动下会出现画面撕裂第二播放前建议设置FilterGraph1.VideoWindow : Panel1来指定视频渲染窗口不然系统会弹出一个独立的播放窗很突兀第三播放结束后要手动调用FilterGraph1.Stop否则音频设备会被占用别的程序放不出声。3.2 TSampleGrabber 实现视频帧捕获如果你想做视频帧的实时处理——比如抓取画面保存成 BMP、做运动检测、传给图像识别算法——TSampleGrabber 是绕不开的组件。它可以在滤镜链的任意位置插入一个窃听点把经过的媒体样本复制一份给应用程序。配置 SampleGrabber 有两种方式。第一种是直接在窗体上放一个 TSampleGrabber然后手动连接第二种是通过代码创建并插入滤镜图。我推荐用代码方式灵活度更高var Grabber: TSampleGrabber; MediaType: TAMMediaType; begin Grabber : TSampleGrabber.Create(Self); with Grabber do begin FilterCategory : CLSID_LegacyAmFilterCategory; FilterName : SampleGrabber; end; FilterGraph1.AddFilter(Grabber, SampleGrabber); // 设置抓取格式为 RGB24 FillChar(MediaType, SizeOf(TAMMediaType), 0); MediaType.majortype : MEDIATYPE_Video; MediaType.subtype : MEDIASUBTYPE_RGB24; Grabber.MediaType : MediaType; Grabber.BufferSize : 1024 * 1024; Grabber.SetOneShot(False); Grabber.SetBufferSamples(True); end;这段代码的核心是MediaType的设定。如果要抓取 24 位真彩色画面subtype 必须是MEDIASUBTYPE_RGB24如果你想在回调里拿到 YUV 原始数据就要设成对应的 YUY2 或 NV12。这个选择直接影响后续图像处理的复杂度——RGB24 好处理但内存占用高YUV 省带宽但需要做颜色空间转换。3.3 摄像头采集与预览的实现思路USB 摄像头采集是 DSPACK 另一大常用场景。老式 Delphi 项目里对接海康、大华等品牌采集卡很多走的是厂商 SDK但普适的 USB 摄像头UVC 协议用 DirectShow 就能通吃。DSPACK 提供了 TVideoCapture 组件封装了采集卡和 USB 相机的大部分操作procedure TForm1.StartCamera; begin VideoCapture1.FilterGraph : FilterGraph1; VideoCapture1.VideoWindow : Panel1; VideoCapture1.VideoDisplay : True; VideoCapture1.DeviceIndex : 0; // 第一个视频设备 VideoCapture1.StartPreview; end;关键点是DeviceIndex的选择。系统里可能同时存在多个摄像头或者虚拟摄像头比如 OBS 的虚拟输出DeviceIndex从 0 开始对应系统设备枚举顺序。你可以通过TVideoCapture.DeviceCount属性来遍历可用设备在界面上做成下拉框供用户选择。另外我强烈建议在调用StartPreview之前先检查设备是否被占用if VideoCapture1.DeviceCount 0 then ShowMessage(没有检测到视频设备);因为很多摄像头驱动在同一时刻只允许一个进程独占如果其他程序正在使用摄像头DSPACK 会抛出EInterfaceCastException这个异常信息比较隐晦容易让人一时间摸不着头脑。4. 常见问题与排查技巧实录4.1 编译期间报错的几种典型场景我把这几年在群里帮人排查 DSPACK 相关问题的经验整理成了几张速查表先看编译期报错信息原因解决办法File not found: DirectShow9.dcu源码路径未加入 Library Path在 Tools Environment Options Library 里添加三个源码目录F2048 Bad unit format: xxx.dcu用了其他 Delphi 版本编译出的 DCU删除所有 .dcu 文件重新编译整个包E2010 Incompatible types: PChar and PAnsiChar非 Unicode 库在 Unicode 版 Delphi 下的经典错误尽量使用 Delphi 7 环境或在源码里把 PChar 改成 PAnsiCharE1026 File not found: adstunits.pas发布包缺文件解压完整包从其他版本目录复制缺失文件第二行那个F2048是我见过最多的坑。很多人下载了源码包先在 Delphi 6 里编了一下后来换了 Delphi 7没清理旧 DCU 直接编译就会报Bad unit format。解决办法非常简单——把整个 source 目录下的 .dcu 文件删干净再重新编译。4.2 运行期典型的崩溃与黑屏编译通过只是第一步运行期才是真正考验 DSPACK 的地方。我遇到过黑屏、闪退、音画不同步、崩溃重启等各种问题问题现象具体原因处理方式播放视频黑屏但声音正常视频渲染器与显卡驱动不兼容调用FilterGraph1.RenderFile(AFileName, IID_IVMRWindowlessControl)强制使用 VMR 模式窗口关闭后程序崩溃没有停止滤镜图就释放组件在 FormDestroy 里先执行FilterGraph1.Active : False; FilterGraph1.ClearGraph;采集画面卡顿严重缓冲设置太小或 CPU 占用过高调大Grabber.BufferSize帧率回调里别做耗时操作播放 RTSP 流超时网络情况复杂、DirectShow 默认超时较短使用链接方式FilterGraph1.RenderFile(rtsp://..., nil)前先设置FilterGraph1.DefaultSyncSource为 0黑屏那个问题值得展开。老显卡和 DirectShow 的 EVR 渲染器之间经常有兼容性问题表现就是有声音没画面。DSPACK 2.3.4 的时代还没有 EVR用的是 VMR7/VMR9如果你在 Windows 7 以后的系统上跑建议干脆用RenderFile的重载形式手动指定渲染方式。4.3 Delphi 版本跨代迁移的注意点最后聊一个老生常谈的话题如果把 DSPACK 2.3.4 用在更高版本的 Delphi比如 Delphi 10.4、11、12上会碰见什么问题第一个是字符类型的变化。Delphi 2009 之后默认Char类型从 AnsiChar 变成了 WideChar而 DSPACK 源码里的 PChar 大量用于 DirectShow 接口参数不兼容就会报E2010 Incompatible types。可能的做法是把源码中所有 PChar 声明改为 PAnsiChar工作量不小。第二个是CheckDlgResult之类的老 API 被移除。这在 Delphi 2009 之后的版本会直接编译失败需要找到替代实现或者自己补齐。第三个是上面提到的 Win64 兼容问题。DSPACK 2.3.4 源码里的记录类型大量使用LongWord表示指针在 Win64 下会截断地址。如果你一定要在 64 位 Delphi 里编译需要手工把所有指针相关字段类型改成NativeUInt。综合来看我的建议是如果只是维护老系统老老实实用 Delphi 7 DSPACK 2.3.4 的组合如果是要在新项目里用不如考虑别的方案比如用 VideoLAN 的 libVLC 封装或者用 FFmpegSDL 的跨平台方案别在老库里折腾太久。5. 实际项目中的性能调优与资源释放5.1 帧率与分辨率的平衡策略摄像头采集场景下分辨率、帧率、CPU 占用三者之间需要做一个权衡。DSPACK 通过TVideoCapture.SetVideoFormat可以设置采集分辨率但分辨率拉高之后TSampleGrabber回调里的图像拷贝开销也会成倍增长。举个例子采集 1920×1080 RGB24 画面一帧数据大小约为 1920×1080×3 ≈ 6MB假设帧率 30fps每秒的数据量就是 180MB。这在老机器上足以让 CPU 飙到 100%。我的实践做法是分场景处理做预览用 640×480 足够降低 CPU 开销做人脸检测/条码识别用 1280×720检测框精度够用做视频录制如果需要全分辨率建议直接在滤镜图里做编码不要在回调里逐帧处理。回调函数里尽量只做数据拷贝和标志位设置把耗时操作放到另一个线程去处理。DSPACK 的TSampleGrabber.OnBuffer事件是运行在 DirectShow 的工作线程里的如果在里面做了 UI 操作很容易引发崩溃或界面卡死。5.2 资源释放清单老 Delphi 程序最常见的隐患是内存泄漏和资源占用DSPACK 程序更是如此。DirectShow 滤镜图如果释放顺序不对轻则播放器退出后音频设备被占重则直接蓝屏XP 时代遇到过。我这里列一张释放检查清单每次写 DSPACK 程序都在 FormDestroy 里照着写一遍procedure TForm1.FormDestroy(Sender: TObject); begin // 停止滤镜图 if Assigned(FilterGraph1) then begin FilterGraph1.Active : False; FilterGraph1.ClearGraph; end; // 释放采集设备 if Assigned(VideoCapture1) then VideoCapture1.StopPreview; // 释放 SampleGrabber if Assigned(Grabber) then FreeAndNil(Grabber); end;这里要特别说明ClearGraph会尝试断开所有滤镜连接并释放引用但如果你手动AddFilter过一些独立滤镜对象需要先把它们从图中移除再Free顺序反了会触发守护进程崩溃。5.3 用 DSPACK 连接 RTSP 流媒体的经验现在很多项目要求 Delphi 程序远程查看网络摄像头RTSP 协议是绕不开的。DSPACK 能不能播放 RTSP 流能但讲究很多。DSPACK 自带了一个 TFilterGraph 的扩展可以加载兼容的 RTSP 滤镜但 Windows 自带没有 RTSP 源滤镜。当年我用的方案是装一个 K-Lite Codec Pack它内置了 LAVFilters其中 LAV Splitter 支持 RTSP 协议装完之后 DSPACK 就能通过RenderFile(rtsp://192.168.1.100/stream1)直接播放。前提是机器上已经注册了 LAV Splitter 的 COM 接口。还有一种方式是手动加载滤镜FilterGraph1.AddFilter(CoCreateInstance(CLASS_LAVSplitter, nil, CLSCTX_INPROC_SERVER, IBaseFilter), LAVSplitter);用这种方式可以实现更精细的控制比如指定 TCP/UDP 传输模式、超时时间等。但说实话如果项目的核心需求就是拉取 RTSP 流做显示我反而推荐用 VLC 的 ActiveX 插件或者 FFmpeg 的 DLL 对接DSPACK 在这里的优势并不明显。6. 写在最后的实操心得DSPACK 2.3.4 是我在 Delphi 多媒体开发路上绕不开的一个组件库虽然它的最后一次更新停在 2006 年左右代码风格也带着那个年代特有的粗犷但它的设计思路放到今天依然实用——对 DirectShow 的封装粒度恰到好处没有过度抽象保留了对底层滤镜链的完整控制能力。这一点比很多商业组件做得更好。我用它做过的项目包括银行的安防监控客户端、工厂流水线的产品视觉检测、实验室的显微图像采集系统。在这些场景里DSPACK 的稳定性和兼容性经受住了长时间的考验。不过我也要实话实说如果你做的是一个全新的商业产品我可能不会推荐你选择这个老库毕竟它不支持 64 位维护成本摆在那里。建议先做技术预研评估项目生命周期和运行环境再决定。最后分享一个我个人的小技巧DSPACK 的源码非常值得读尤其是DSPack.pas里那几个核心组件的实现。读完它你对 DirectShow 滤镜图的理解会比看十篇博客都深刻。这也算是老库留给后来者的一份财富吧。本文还有配套的精品资源点击获取