Доброго времени суток мой друг. В данной статье я хочу рассказать вам, как с помощью бесплатной библиотеки bass.dll создать простой интернет-радио проигрыватель. Скачать вы ее сможете на офф. сайте, на момент написание статьи это 2.4.12.

Переходим на сайт и жмем на ссылку Download

Из скаченного архива закидываем 2-ва файла в папку с нашим проектом: Bass.dll, Delphi\bass.pas

Наш проект будет состоять из Edit, где будет хранится адрес потока радио и 2-х кнопок: Play и Stop.

И так добавляем эти компоненты на форму и переходим к коду:

В глобальные переменные добавим:

var
...
url_radio:HSTREAM;

Кнопка Play:

procedure TForm1.Button1Click(Sender: TObject);
var
  url:string;
begin
  try
    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;
end;

Кнопка Stop:

procedure TForm1.Button2Click(Sender: TObject);
begin
   BASS_ChannelPause(url_radio);
end;

Компилируем и запускаем. Готово, сегодня мы создали свой интернет-радио проигрыватель. Для удобства, выкладываю исходники: Скачать 725кб