[alyamus]

Heyyy Friends ! bass.dll mediaplayer listbox problem planyin song but listbox to next song problem

listbox code:

Код:

if opendialog.Execute=true then
begin
if stream<>0 then
bass_StreamFree(stream);
stream:= bass_streamCreateFile(false, pChar(opendialog.filename), 0, 0, 0);
for i := 0 to OpenDialog.Files.Count-1 do listbox2.Items.Add(ExtractFilename(OpenDialog.Files.Strings[i]));

bass_channelplay(stream, false);

auto listbox song next pls

[M.A.D.M.A.N.]

Код:

for i := 0 to OpenDialog.Files.Count-1 do 
  listbox2.Items.AddObject(OpenDialog.Files.Strings[i]);

On draw listbox replace long file name to short.

[alyamus]

madman Thanks for the code ... but they did not

[Pyro]

"next song problem" so why code with opendialog here?

Код:

//on timer:
  if (BASS_ChannelIsActive(stream) = 0) and (paused = false) then
  begin
     listbox.itemindex :=  listbox.itemindex + 1;
     procedure_that_play_song_selected_in_list_box
  end;

[alyamus]

thank you very much friend!

very very thanx pyro ... have you give code