Mediaplayer Problem: Lied mit play abspielen, nicht mit clic

[Blackheart]

Schau Dir mal diesen Link an dort ist alles einfach erklärt.
http://www.krazz.net/retnyg/tut/mptut1.htm]Media Player[/url]

[gmc616]

Zitat von Zitrone.Saft:

Und wenn ich des nu so schreibe wie du des gemacht hast
listbox1.itemindex.clear dann kommt ein fehler:

Ja klar. Muß ja auch Listbox1.Items.Clear; heißen.

Wenn der TMediaplayer ein Track fertig gespielt hat, feuert er ein Notify-Event.OnNotify TMPNotifyValues

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  case MediaPlayer1.NotifyValue of
    nvSuccessful: ;
    nvSuperseded: ;
    nvAborted: ;
    nvFailure: ;
  end;
end;

Hier kannst du dann den nächsten Track laden und starten. Welches NotifyValue du auswerten musst, musst du selbst herraus finden. Ich habs nicht mehr im Kopf.

Alternativ könntest du über einen Timer prüfen, ob der Track keine Restzeit mehr hat.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if (MediaPlayer1.EndPos - MediaPlayer1.Position)<=0 then
  begin
    // Nächsten Track in der Liste abspielen
  end;
end;

Ist aber wohl eher unsauber und ungenau.

Edit:
@Blackheart: Der Link funktioniert net.

Edit II:
Ist dieses verkappte Deutsch mittlerweile modern geworden?
Ist ja in der DP echt schlimm geworden in letzter Zeit.

[Zitrone.Saft]

Also soll ich jetzt statt dem:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
   if mediaplayer1.Position = mediaplayer1.Length then begin

     Listbox1.Selected[currentSong] := false;
     inc(currentSong);
     if currentSong < Playlist.Count then
     else currentsong := 0;
     PlayFile(CurrentSong);
     Listbox1.Selected[currentSong] := true;
   end;
end;

das schreiben:

Delphi-Quellcode:

procedure TForm1.MediaPlayer1Notify(Sender: TObject);
begin
  case MediaPlayer1.NotifyValue of
    nvSuccessful: ;
    nvSuperseded: ;
    nvAborted: ;
    nvFailure: ;
  end;

oder wie meinst du das?

[EWeiss]

Hallo Orangensaft

Du solltest dir erst mal klar darüber werden was du nun eigentlich willst.
Deine Frage war wie du das abspielen beim klick auf die ListBox verhindern kannst.
das wurde dir erklärt...

Nun mußt du halt einen weg finden das ganze umzulenken so das du über einen Timer oder wie
von gmc.. erklärt deine procedure PlayFile ansprichst sobald das ende des Titels erreicht wurde.

Lese dir aber erst mal das SDK über den TMediaplayer durch damit du weißt welche Funktionen dir dieser zur verfügung stellt.
Raten copy/Paste bringt dich da nicht weiter.

Man muss schon wissen was man tut... sorry

EDIT:
Was du da eingefügt hast sind Variablen über die du zusätzliche Informationen erhälst
Fehler, Erfolgreich usw... hat nichts mit einer übergabe von einer ausführung irgendeiner art zu tun.

gruss Emil

[Blackheart]

Zitat von Blackheart:

Schau Dir mal diesen Link an dort ist alles einfach erklärt.
http://www.krazz.net/retnyg/tut/mptut1.htm]Media Player[/url]

Zitat von gmc616:

@Blackheart: Der Link funktioniert net.

Bei Mir funktioniert er, musst auch mal draufklicken.

[gmc616]

Zitat von Blackheart:

Zitat von gmc616:

@Blackheart: Der Link funktioniert net.

Bei Mir funktioniert er, musst auch mal draufklicken.

Scherzkeks

Aber nun funktioniert er. Gestern Abend nicht

Mit dem Link sollten aber alle Fragen beantwortet sein. Besser gezeigt bekommt man es nicht!

@Zitrone.Saft: Der erste Code im #13 sieht doch ganz gut aus. Allerdings wird er auch einen Track abspielen, wenn du das CD-Fach öffnest.

[Ironie]Achja, das Schießen des CD-Fachs funktioniert auf meinem Notebook nicht. [/Ironie]

[Zitrone.Saft]

hehe ja hast recht des wird schlecht gehen bei deinem lappi

also ich will des nu mit nem timer machn, dass er den nächsten song abspielt

wie mach ich des am günstigsten?

[Zitrone.Saft]

Zitat von Blackheart:

Schau Dir mal diesen Link an dort ist alles einfach erklärt.
http://www.krazz.net/retnyg/tut/mptut1.htm]Media Player[/url]

Rat mal wie ich den Player gemacht habe^^

[EWeiss]

Zitat von Zitrone.Saft:

Zitat von Blackheart:

Schau Dir mal diesen Link an dort ist alles einfach erklärt.
http://www.krazz.net/retnyg/tut/mptut1.htm]Media Player[/url]

Rat mal wie ich den Player gemacht habe^^

Wollte ja nicht's sagen aber das ist mir direkt aufgefallen.
Und den anderen hier sicher auch

gruss

[Blackheart]

Zitat von Zitrone.Saft:

Zitat von Blackheart:

Schau Dir mal diesen Link an dort ist alles einfach erklärt.
http://www.krazz.net/retnyg/tut/mptut1.htm]Media Player[/url]

Rat mal wie ich den Player gemacht habe^^

Und warum klappts dann nicht, wahrscheinlich wegen Copy & Paste ohne sich mit dem Code auseinanderzusetzen.