| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Bass.dll и M3U [D4, D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

g-l-u-k ©   (2003-11-24 19:45:00) 

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

---

g-l-u-k   (2003-11-24 22:03:00) [1]

Спасибо nevalex!

---

nevalex   (2003-11-24 21:15:00) [2]

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'));

вот и все


---

Наверх