Playlist?

[Myklebust89]

Ja, hvordan mekke en playlist som funker? har begynt på et mp3spiller-prosjekt, og da er playlist et pluss!

[Legion]

tja, du kan jo åpne en .m3u en en teksteditor fil og se hvordan den er bygd opp.

skal jo ikke stort mer til enn en referanse til mp3-fila

[tasle]

Spilleren din får programmeres til å fylle en listboks med MP3-filer når du angir et directory, og spille de av en etter en.

 

Bruk FindFirst og FindNext....

[Myklebust89]

ok, dette fører til tre spørsmål....

 

1: hvordan får jeg en opendialog til å sette et directory istedenfor en fil?

2: er en listview brukbar til playlist?

3: hvordan får jeg spilleren til å spille av filene i listviewen, istedenfor å åpne de som vanlig?

[tasle]

1:

Bruk en directorylistbox for å navigere til navnet på en mappe/directory. Og så FindFirst / Findnext for å fylle en listboks / listview.

 

2:

Det kan du godt bruke.

 

3.

Bruk metoden Play for å spille av musikkfilene, i ei løkke fra første til siste fil (Listviev.Items.Count)

[Myklebust89]

jeg er på skolen nå, og jeg skal på komfleir litt etter jeg kommer hjem... men når jeg kommer hjem på søndag skal jeg prøve det... men det FindFirst/FintNext-opplegget forstår jeg ikke... hadde du orket å forklare, tasle?

[Format71]

eksempel på bruk av FindFirst/FindNext:

var
 mp3dir: string;
 mp3file: string;
 sRec: TSearchRec
begin
mp3dir := GetMP3Dir; //Hent fra en directorylistbox eller en en 'browseforfolder'-dialog etc.
 res := FindFirst(mp3dir + '\*.mp3', faAnyFile, sRec);
 while res = 0 do
 begin
   playlist.add(mp3dir + '\' + sRec.Filename);
   FindNext(sRec);
 end;
end;

 

evnt. kan du bruke BuildFileList( ) fra jclFileutils.pas som enkelt og greit fyller opp en stringliste med filnavn fra en gitt katalog.

 

-Vegar

[tasle]

eksempel på bruk av FindFirst/FindNext:

var
 mp3dir: string;
 mp3file: string;
 sRec: TSearchRec
begin
mp3dir := GetMP3Dir; //Hent fra en directorylistbox eller en en 'browseforfolder'-dialog etc.
 res := FindFirst(mp3dir + '\*.mp3', faAnyFile, sRec);
 while res = 0 do
 begin
   playlist.add(mp3dir + '\' + sRec.Filename);
   FindNext(sRec);
 end;

FindClose (sRec); // <---
end;

 

evnt. kan du bruke BuildFileList( ) fra jclFileutils.pas som enkelt og greit fyller opp en stringliste med filnavn fra en gitt katalog.

 

-Vegar

Pluss en FindClose (sRec) som den siste instruksjonen i prosedyra.

[Format71]

ooopps...

 

[tasle]

Fort gjort å glemme... Ofte merker man det ikke for programmet begynner å lekke RAM.

[Myklebust89]

finnes det en annen måte enn å bruke directorylistbox som playlist da? vil helst bruke den filelistbox... men jeg må finne en måte å adde mapper på! så kan jeg begynne å prøve meg fra med det Find-opplegget...

[tasle]

Mappen åpner du med en directorylistbox. Denne kopler du til en filelistboks via egenskapen FileList i objektoversikta. Disse to vil dermed virke som en enhet tilsammen. I fall du gjør dette trenger du ikke en vanlig listbox og FindFirst osv.

 

For å vise alle musikkfiler i filelistboksen setter du et filter i filelistboksen Mask. Den vil da vise kun eksempelvis *.MP3, *.WAV osv. Setter du i tillegg Multiselect til True kan du merke av et utvalg av filer som skal spilles av.

[Myklebust89]

jeg er temmelig ny på delphi da, så jeg forsto egentlig ikke så mye av det der... kan du vennligst forklare litt nærmere?

[Myklebust89]

fikk det til... men ikke det med MultiSelect, det gikk ikke...

 

men hvordan kan jeg få directorylistboxen til å starte i samme katalogen som ble åpnet forrige gang? [har løst selv!]

Endret 8. februar 2004 av Burner89