Радио с добавлением станции

[poropeked]

Может, есть, у кого ни будь готовое решение, необходимо сделать радио для прослушивания потокового вещания с возможностью добавлением станции. Очень надеюсь на вашу помощь.

[ZuBy]

bass.dll скачай, там есть пример netradio

[poropeked]

Решил попытаться что то сделать, при нажатии на кнопку играет определенная волна, теперь нужно сделать плеилист с добавлением станции или же загрузки плейлиста из файла, подскажите как это реализовать!

Вот что имею:

unit Radio;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bass, StdCtrls, ComCtrls, CheckLst, XPMan, DBCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    trckbr1: TTrackBar;
    btn3: TButton;
    xpmnfst1: TXPManifest;
    lbl1: TLabel;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure trckbr1Change(Sender: TObject);
    procedure btn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  bd: string;
  chan: HSTREAM;

implementation

{$R *.dfm}

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);
 //MessageBox(0, 'Радио №1','Радио №1', MB_OK);
 end;
procedure TForm1.btn2Click(Sender: TObject);
begin
 BASS_StreamFree(chan);
end;

procedure TForm1.trckbr1Change(Sender: TObject);
begin
  BASS_ChannelSetAttribute(chan,BASS_ATTRIB_VOL,trckbr1.Position/trckbr1.Max);
end;

procedure TForm1.btn3Click(Sender: TObject);
begin
Close;
end;

end.

[poropeked]

Думаю сделать плейлист из текстового файла, listbox будет загружать этот файл и вот проблема не знаю как организовать воспроизведение выделенного файла.
Может как нибудь с помощью вот этого ?

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

[ZuBy]

begin
BASS_Free;
 BASS_Init(-1, 44100,  2, 0, nil);
chan:= BASS_StreamCreateURL (PAnsiChar(lst1.items[lst1.itemindex]),0,0,nil,0);
 Bass_ChannelPlay(chan,False);
end;

вообще такой подход не правильный, нужно "убивать" не сам bass (bass_free), а канал который ты создал (bass_streamfree(chan))

[poropeked]

Спасибо тебе огромное за помощь, а чем отличаться будет (bass_free) от (bass_streamfree(chan)?

[ZuBy]

bass_free нужно вызывать при убивании приложения. если убивать bass то сбрасываются все настройки, удаляются все каналы (если используется не один канал) ну и вообще много всего (я не знаю что у него там в коде написано))