Bass.dll и M3U

← →
g-l-u-k (2003-11-24 19:45) [0]

Мастера помогите кто знает как в плеере использующем bass.dll
проигрывать M3U плей листы.
Зарание спасибо!

← →
nevalex © (2003-11-24 21:15) [1]

Bass.dll тут не причем
чтобы раскидать m3u могу дать пример
там я использую два ЛистБокса (один-тэг,второй -путь)
///////////////////////////m3u////////////////////////// procedure TForm1.m3uTOlist(Listbox5tag,Listbox1Url:TListBox;m3ufilez:String); var Sdir,fdir,time,ldir:string; m3u:textfile; kol,poza,pozatim,por,i,MaxWidth:integer; begin listbox1Url.Clear; listbox5tag.Clear; assignfile(m3u,m3ufilez); reset(m3u); kol:=0; por:=0; readln(m3u); while eof(m3u)=false do begin readln(m3u,sdir); if kol mod 2 <>0 then begin if pos(":\",sdir)<>0 then listbox1Url.Items.Add(sdir) else listbox1Url.Items.Add("C:\"+sdir) end else begin pozatim:=pos(":",sdir)+1; poza:=pos(",",sdir)+1; time:=(copy(sdir,pozatim,poza-10)); if time<>"" then time:=" "+sectotime(strtoint(time))+" "; inc(por); ldir:=inttostr(por)+"."+copy(sdir,poza,100) +" "; if time <>"" then insert(time,ldir,31); ////// listbox5tag.Items.Add(ldir); end; inc(kol); end; closefile(m3u); end; //////////////////////Конец m3u///////////////////////// а чтобы вызвать m3uToList(Listbox2,Listbox1,"c:\m3u\drumNbass.m3u")); вот и все

← →
g-l-u-k (2003-11-24 22:03) [2]

Спасибо nevalex!

Bass.dll и M3U Найти похожие ветки