medieplayer

er færdig...

Det kommer da an på hvilken række du snakker om? Hvordan holder du styr på din playliste?

Kunne du ikke fortælle mig hvordan man afspiller en mp3fil da jeg vil til at lave noget lignende med dit program?
mvh
Pham

pham@pedal.dk

øhh

jeg brguer bare en medieafspiller...

kokoko: Den skal bare køre en procedure når sangen er færdig... hvordan ?

ohhh ok... jamen du skal nok kigge på OnNotify eventen i online hjælpen.

online hjælpen ?

hehe... Han mener HJÆLP i delphi...

Uhmmm du kan gøre det på følgende måde:

Jeg går ud fra, at din \"playlist\" indeholder navn+sti på filen...

procedure Tform1.PlayNext;
begin
  listbox1.itemindex := Listbox1.itemindex + 1;
  mediaplayer1.close;
  mediaplayer1.filename := listbox1.items.strings[listbox1.itemindex];
  mediaplayer1.open;
  mediaplayer1.play;
end;

Her skal du selvfølgelig lave en form for beskyttelse, så du ikke kan \"trykke\" på next, så itemindex bliver større end Itemcount :) men det er jo ikke problemet i dette tilfælde, så det gider jeg ikke at lave *s*

mvh
Johnny

Forresten skal du så skrive PlayNext i OnNotify ved den \"mode\" som siger at den er stoppet.. det kan du se i mmsystem.pas inde i delphi mappen...

jeg glemmer altid at skrive et eller andet :)

thnx

det var så lidt :)