Hvordan laver jeg en playlist

Kode 

Nummer: Integer;

Kode 

 if Mediaplayer1.Position = mpVideo.Length then
   begin
       Nummer := Nummer +1;
       Mediaplayer1.filename := Listbox1.Items.Strings[Nummer];
       Mediaplayer1.open;
       Mediaplayer1.play;
   end;

Her er en kode som virker:

Først laver du en global integer:

Kode 

Nummer: Integer;

Så laver du en timer med en god opdaterings hastighed, hvor du sætter denne kode ind i:

Kode 

 if Mediaplayer1.Position = mpVideo.Length then
   begin
       Nummer := Nummer +1;
       Mediaplayer1.filename := Listbox1.Items.Strings[Nummer];
       Mediaplayer1.open;
       Mediaplayer1.play;
   end;

Det virker

------------------------------------------------------
Intet er umuligt før man har prøvet, og vis ikke det virker første gang så plejer det at virke anden gang.
http://www.frip.dk/worldoffire

Darkfighter

Hej... Jeg er snart irrieteret over at jeg ikke kan finde ud af at lave en ordenlig playlist...

Jeg kan sagtens få den til at add en sti til en fil i en listbox - men hvordan får jeg den til at afspille den øverste sang, og bagefter den næste osv...

Og måske rykke hen til en sang hved at klikke på lisboxen's item...


HELP ME...
Bare et kodestykke eller en link...

Tak


Shafh
Shafh@stofanet.dk
Theis F. Hinz

Behandl nørder godt.
Du ender sandsynligvis
med at arbejde for en

Motto af Bill Gates

Den sidste kode kunne også smides i en Idle procedure!

MH.

The-Freak

Livet er for kort til at kede sig.