• 0
Sign in to follow this  
Jhonas

Ouvir radio online pelo delphi

Question

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:

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

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

Share this post


Link to post
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this