implementation

{$R *.dfm}

procedure TForm1.NilAll();
begin
if Assigned(g_MediaControl) then CheckDSError(g_MediaControl.Stop);
if Assigned(g_Pin) then g_Pin := nil;
if Assigned(g_StreamSource) then g_StreamSource := nil;
if Assigned(g_DSPlayerFileSource) then g_DSPlayerFileSource := nil;
if Assigned(g_MediaControl) then g_MediaControl := nil;
if Assigned(g_GraphBuilder) then g_GraphBuilder := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not OpenDialog1.Execute then exit;
NilAll;
CheckDSError(CoCreateInstance(TGUID(CLSID_FilterGraph), NIL, CLSCTX_INPROC,
TGUID(IID_IGraphBuilder), g_GraphBuilder)) ;
CheckDSError(g_GraphBuilder.QueryInterface(IID_IMediaControl, g_MediaControl));
CheckDSError(CoCreateInstance(CLSID_DSPlayerAsyncSource,NIL, CLSCTX_INPROC,
IID_IBaseFilter, g_DSPlayerFileSource));
CheckDSError(g_DSPlayerFileSource.QueryInterface(IID_IStreamLoad,
g_StreamSource));
if g_FileStream <> nil then g_FileStream.Free;
g_FileStream := TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
CheckDSError(g_StreamSource.LoadFromStream(g_FileStream));
CheckDSError(g_DSPlayerFileSource.FindPin(pinID, g_Pin));
CheckDSError(g_GraphBuilder.AddFilter(g_DSPlayerFileSource,
StringToOleStr('DSPlayer Async FileSource')));
CheckDSError(g_GraphBuilder.Render(g_Pin));
CheckDSError(g_MediaControl.Run);
if g_count = 0 then begin
g_count := g_count 1;
CheckDSError(dsutil.ShowFilterPropertyPage(0,g_DSPlayerFileSource));
end;

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
NilAll;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
if Assigned(g_MediaControl) then CheckDSError(g_MediaControl.Run);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
if Assigned(g_MediaControl) then CheckDSError(g_MediaControl.Pause);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if Assigned(g_MediaControl) then CheckDSError(g_MediaControl.Stop);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
CheckDSError(dsutil.ShowFilterPropertyPage(0,g_DSPlayerFileSource));
end;

end.