求助:用DSPack控件播放文件流。。。
希望将视频文件加载到“流”中,然后用DSPack组件进入播放,不知如何实现? 哪位高手可以指点一下。。。
代码应该类似如下:
procedure TForm1.Button2Click(Sender: TObject);
var fs:TFileStream;
begin
if OpenDialog1.Execute then
begin
fs:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
//.....................(代码不知怎么写)
//.....................(代码不知怎么写)
FilterGraph1.Play;
end;
end;