[Tutorial - Básico] Ouvir radio online pelo delphi

XSystemX

Honrado XPZ
14 de Julho de 2012
83
43
18
24
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:
 

QUOTE

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
 

QUOTE

Você não tem permissão para ver o link. Faça o login ou registre-se agora.


segue agora o código do Form

var

CODE

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.brplay'+ 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