• Bem vindo à nossa comunidade - Quer se juntar ao resto dos nossos membros? Registre-se*Registros aprovados pela adminitração

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

XSystemX

Usuário XPZ
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

Por favor, Entrar ou Registrar para ver o conteúdo das URLs!


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
 
Topo Bottom