DSPack::spielt einmal->danach nicht mehr

[Nils_13]

Ich habe es anders gelöst

Delphi-Quellcode:

procedure TfrmVideo.Play;
begin
  frmVideo.Show;
  if not FilterGraph.Active then
    FilterGraph.Active := true;
  FilterGraph.ClearGraph;
  FilterGraph.RenderFile(frmMain.spath);
  FilterGraph.Play;
end;

Delphi-Quellcode:

if LowerCase(ExtractFileExt(fFiles[playindex].Dateiname)) = '.mpeg' then
begin
  spath := fFiles[playindex].Dateiname;
  frmVideo.Play;
  pause := True;
end;