请问在FilterGraph的onGraphComplete事件有关问题
请教在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 中即可
------解决方案--------------------
我在学习用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; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,shlobj, ExtCtrls,FlatBars, FlatBtns, FlatUtils, FlatPanel;
------解决方案--------------------