В каком месте у меня ошибка, если использую ListBox, библиотеку bass.dll, загружаю список станций из txt файла - при выборе 1-й станции тишина, далее 2-у и т.д. все работает. Не работает только запуск с 1-й.
Временное решение в txt файле пропустил 1-у строку и стало норм, но все таки как исправить?
- Код: Выделить всё
procedure TForm1.FormCreate(Sender: TObject);
begin
BASS_Init(-1,44100,0,Handle,nil);
BASS_SetConfig(BASS_CONFIG_NET_PLAYLIST, 1);
ListBox1.Items.LoadFromFile('playlist.pls');
end;
............................
procedure TForm1.Button1Click(Sender: TObject); //проигрывание песни
var
url:string;
begin
try
Edit1.Text:=ListBox1.Items[ListBox1.ItemIndex];
url:=Edit1.Text;
//Освобождаем память, если раннее уже играл поток
BASS_StreamFree(url_radio);
//Создаем новый поток.
url_radio:=BASS_StreamCreateURL(PAnsichar(url),0,BASS_STREAM_STATUS,nil,Nil);
//Воспроизводим его.
BASS_ChannelPlay(url_radio,False);
except
on e:Exception do
end;
Edit1.Text:=ListBox1.Items.Strings[ListBox1.ItemIndex];
end;