Forum: Multimedia
Delphi
by Nils_13,
25. Sep 2006
Ich habe es anders gelöst :)
procedure TfrmVideo.Play;
begin
frmVideo.Show;
if not FilterGraph.Active then
FilterGraph.Active := true;
FilterGraph.ClearGraph;
FilterGraph.RenderFile(frmMain.spath);
FilterGraph.Play;
Forum: Multimedia
Delphi
by Nils_13,
25. Sep 2006
Hast mich falsch verstanden. Ich habe die Variable in der frmMain. Ich möcht wissen, wie ich die Variable von der frmVideo aus zuweisen muss, dass das funktioniert, bisher stand in der letzten Zeile von frmVideo.Destroy FGC := True, aber das bringt anscheinend nichts, denn bei dem Code bleibt das Videofenster schwarz.
procedure TfrmMain.CheckState;
begin
if FGC then
begin
with...
Forum: Multimedia
Delphi
by Nils_13,
25. Sep 2006
procedure TfrmMain.CheckState;
begin
if FGC then
begin
with frmVideo do
begin
FilterGraph.Stop;
FilterGraph.ClearGraph;
FilterGraph.Free;
FGC := False;
Forum: Multimedia
Delphi
by Nils_13,
25. Sep 2006
procedure TfrmMain.lbListDblClick(Sender: TObject);
begin
xiPlayClick(Sender);
end;
In xiPlay.Click werden die Endungen geprüft: Wenn Video dann öffne Videofenster, geb Filtergraph frei, lade das neue Video und spiel es ab.
Mit MouseUp komm ich da nicht weiter.
frmVideo:
Forum: Multimedia
Delphi
by Nils_13,
25. Sep 2006
Es funktioniert jetzt zwar allgemein, aber MouseUp kann ich wegen Drag&Drop der ListBox nicht verwenden. Was könnte ich anstelle von MouseUp nehmen ?
Forum: Multimedia
Delphi
by Nils_13,
25. Sep 2006
Meinst du das so ?
procedure TfrmMain.lbListMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if FGC= True then
begin
with frmVideo do
begin
if Filtergraph.Active then
Forum: Multimedia
Delphi
by Nils_13,
25. Sep 2006
Hi,
wie der Cpp-Titel schon sagt, spielt mir das DSPack ein Video einmal ab und danach nicht mehr:
frmVideo.Show;
with frmVideo do
begin
if not FilterGraph.Active then
begin
if not FilterGraph.Active then