[poropeked]

Подскажите как реализовать следующее: нужно сделать радио с добавлением и воспроизведением в плейлист.

к примеру есть кнопка с определенной станцией

Код:

1 2 3 4 5 6 7

procedure TForm1.btn1Click(Sender: TObject); begin BASS_Free;  BASS_Init(-1, 44100,  2, 0, nil);  chan:= BASS_StreamCreateURL (PAnsiChar('http://88.191.130.174:6404/'),0,0,nil,0);  Bass_ChannelPlay(chan,False);  end;

Это работает!
Дальше есть edit в который пишем url станции, при нажатии кнопки заносит данный url в текстовый файл. Потом этот файл выводим в listbox и вот тут нужно при выделении определенной строки с url воспроизводить именно эту строку.

Возможно думаю что как то так можно сделать, но не чего не выходит.

Код:

1 2 3 4 5 6 7 8 9 10

procedure TForm1.btn9Click(Sender: TObject); var i: integer; begin       for i := lst1.Items.Count - 1 downto 0 do   if lst1.Selected[i] then BASS_Free;  BASS_Init(-1, 44100,  2, 0, nil);  chan:= BASS_StreamCreateURL (PAnsiChar('(i)'),0,0,nil,0);  Bass_ChannelPlay(chan,False); end;

Помогите люди добрые!