Hi,
wie der Cpp-Titel schon sagt, spielt mir das DSPack ein Video einmal ab und danach nicht mehr:
Delphi-Quellcode:
frmVideo.Show;
with frmVideo do
begin
if not FilterGraph.Active then
begin
if not FilterGraph.Active then
FilterGraph.Active := true;
FilterGraph.Stop;
FilterGraph.ClearGraph;
FilterGraph.RenderFile(fFiles[playindex].pfad);
FilterGraph.play;
pause := True;
end;
end;
Das heißt, ich spiele Video1 aus der Playlist ab und klicke doppelt, entweder während Video1 noch abgespielt wird, oder wenn es gestoppt wurde, auf das Video2, womit der oben gezeigte Code aufgerufen wird. Plötzlich sehe ich nur noch ein schwarzes DSVideoWindowEx2 auf der Videoform. Ab dem ersten Abspielen von einem beliebigen Video, kann ich keine anderen mehr abspielen. Eventuell liegt es auch an der Videoform:
Delphi-Quellcode:
procedure TfrmVideo.FormDestroy(Sender: TObject);
begin
FilterGraph.ClearGraph;
FilterGraph.Free;
VideoWindow.Free;
end;