Colocando rádio em um aplicativo delphi

[Coca Cola]

Olá, queria saber se alguém sabe como colocar uma rádio para tocar em um aplicativo delphi. Sem ser aquele webborwser que abre a pagina da rádio no form, que ficasse o player dá rádio no aplicativo.

[Jhonas]

Sem usar o webborwser não dá ... o maximo que voce pode fazer é deixa-lo invisivel

abraço

[Coca Cola]

E como que faz pra fazer pelo web browser e deixar invisivel?

[Douglas Soares]

Pra deixar invisivel você muda a propriedade Visible para false, e para ir na página do rádio você faz assim:

WebBrowser1.Navigate('www.radio.com.br');

Abraços

[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:

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

http://www.radios.com.br/play/

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

[Coca Cola]

Man, ta dando o seguinte erro -> "[Error] Unit1.pas(35): Undeclared identifier 'wb'."

[Jhonas]

Faltou colocar no uses

uses MMSystem, SHDocVw;

abraço