读书人

请问在FilterGraph的onGraphComplete事

发布时间: 2012-03-04 11:13:34 作者: rapoo

请教在FilterGraph的onGraphComplete事件问题
我在学习用dspack控件制作播放器,想让播放器连续播放的时候,用了在FilterGraph的onGraphComplete事件,可是一点运行就出现错误,说IBaseFilter没声明,无法编译,这要怎么解决?代码如下:
一个是按钮事件:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
filtergraph1.ClearGraph;
filtergraph1.RenderFile('1.dat');
filtergraph1.Play;
end;

当加上FilterGraph的onGraphComplete事件后就出现问题了:
procedure TForm1.FilterGraph1GraphComplete(sender: TObject;
Result: HRESULT; Renderer: IBaseFilter);
begin
filtergraph1.ClearGraph;
filtergraph1.RenderFile('2.dat');
filtergraph1.Play;
end;

问题就出现在
type
TForm1 = class(TForm)
FilterGraph1: TFilterGraph;
VideoWindow1: TVideoWindow;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FilterGraph1GraphComplete(sender: TObject; Result: HRESULT;
Renderer: IBaseFilter);(就这一行)
错误提示是:
[Error]Unit1.pas(16):Undeclared identifier:"IBaseFilter"

请朋友帮我看看怎么解决,谢谢。




[解决办法]
缺少IBaseFilter所在的单元文件,将单元名加入到 uses 中即可
[解决办法]

Delphi(Pascal) code
unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls,shlobj, ExtCtrls,FlatBars, FlatBtns, FlatUtils, FlatPanel;
[解决办法]
探讨
引用:
把IBaseFilter所在的单元加入uses中

晕,我只有一个单元,还要加?

读书人网 >.NET

热点推荐