Ouvir radio online pelo delphi

[Jhonas]

Vamos montar uma aplicação em delphi para ouvir varias radios online

Em um Form coloque os seguintes componentes

1 - ListBox // para colocar a lista de radios

1 - Edit // para montar o caminho para uma determinada radio

1 - TrackBar // para servir como controle de volume da radio ... mude o nome para TBVolume

1 - Botao // para iniciar

1 - Botao // para parar e sair

No Listbox voce vai colocar os nomes das radios

exemplo:

Citar

01_asscamp-br.htm

01_bolaradio-br.htm

01_fontefm-br.htm

01_giga-br.htm

01_hora-br.htm

01_hot107fm-br.htm

01_jazzmedley-br.htm

01_koinonia-br.htm

01_lightfmsp-br.htm

01_maranatha-br.htm

01_mpbfmrio-br.htm

01_mpbworld-br.htm

01_mundomaior-br.htm

01_musicbox-br.htm

01_rdwebfm-br.htm

01_rdws-br.htm

01_redeaovivo-br.htm

01_saravga-br.htm

01_superfm-br.htm

existe uma lista grande neste endereço

Citar

https://www.radios.com.br/

segue agora o código do Form

var

 

Form1: TForm1;
  wb: TWebBrowser;

implementation

{$R *.dfm}

uses MMSystem, SHDocVw;

procedure TForm1.FormActivate(Sender: TObject);
begin
  wb := TWebBrowser.Create(Form1);
  TWinControl(wb).Name := 'MyWebBrowser';
  //TWinControl(wb).Parent := Form1;
  wb.Hide; // deixar o WebBrowser invisivel
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  wb.Navigate(Edit1.Text);
end;

procedure TForm1.tbVolumeChange(Sender: TObject);
var
Count, i: integer;
begin
   Count := waveOutGetNumDevs;
   for i := 0 to Count do
     begin
        waveOutSetVolume(i,longint(tbVolume.position*4369)*65536+longint(tbVolume.position*4369));
     end;
end;


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


procedure TForm1.ListBox1Click(Sender: TObject);
begin
   wb.Stop;
   Edit1.Clear;
   Edit1.Text := 'http:\\www.radios.com.br\play\'+ trim(ListBox1.Items.Strings[ListBox1.itemindex]);
end;

OBS: colocar na propriedade Max do TrackBar = 15

feito isso, é só clicar em um dos items do listbox ( nome da radio ) e clicar no Button1 para ouvir a radio

se voce clicar em outro item do ListBox, a radio que estiver ouvindo para, e o edit recebe o caminho de outra radio

este código pode ser melhorado e incrementado com outras opções

abraço