Forum: Multimedia
Delphi
by WeTec,
27. Jan 2005
Jo, danke für die Antworten. :thumb:
ich hab letztens WinXP SP2 installiert, und als ich das progie wieder rausgekramt habe, hat es auf einmal funktioniert. hatte vorher kein SP2. vieleicht lag es ja daran. :stupid:
gruß an alle DPler
WeTec
Forum: Multimedia
Delphi
by WeTec,
6. Sep 2004
Moment, Moment!
du schreibst:
Demnach bringt der eben gepostete Code aber nix mehr, weil ja wie gesagt der MPlayer erst geschlossen wird und dann das OnNotify abgearbeitet wird.
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
If mediaplayer1.Mode=mpopen then
...
und genau das ist bei mir auch passiert (mit deinem Code).
Forum: Multimedia
Delphi
by WeTec,
1. Sep 2004
anbei mal ein kleines testprog, um das ganze zu verdeutlichen.
(siehe Problem oben^^)
danke fürs angucken
Forum: Multimedia
Delphi
by WeTec,
1. Sep 2004
hm, bringt auch nix. :(
aber brauch ich ja eigentlich nicht, da ich ja mit Notify eine Endlosschleife habe. und wenn der Clip fertig abgespielt ist, stopt er und spielt neu ab.
Forum: Multimedia
Delphi
by WeTec,
19. Aug 2004
nein, eigentlich nicht. Aber wo und warum sollte ich das auf true setzen?
Forum: Multimedia
Delphi
by WeTec,
18. Aug 2004
Einen Herzlichen, Daniel! :thumb:
Greez, WeTec
Forum: Multimedia
Delphi
by WeTec,
28. Mai 2004
ok, vieleicht sollte ich noch sagen das ich ein OnNotify-Ereigniss erstellt habe:
procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
If MediaPlayer1.Notify = True then MediaPlayer1.Play
else MediaPlayer1.Stop;
end;
quasi als Endlosschleife. Wenn ich das jedoch auskommentiere kommt auch keine fehlermeldung.
Forum: Multimedia
Delphi
by WeTec,
28. Mai 2004
Tachchen!
ich hab da ein Problem mit dem Mediaplayer. und zwar wird beim stoppen und schließen des Mediaplayers eine Fehlermeldung gegeben, welche lautet: 'Kein MCI-Gerät geöffnet'.
wenn ich jedoch die Message dazwischen schiebe kommt kein Fehler.
If Mediaplayer1.Mode = mpPlaying then
begin
with MediaPlayer1 do
begin