Colocando rádio em um aplicativo Delphi

por **nininhozin** Ter Out 19, 2010 6:10 pm

Adicione:

2 Botões (Aba Standart)
1 Track Bar (Aba Win32)
1 Edit (Aba Standart)
1 WebBrowser (Aba Internet)

No primeiro botão você escreve no caption: Ouvir
No segundo botão você escreve no caption: Parar

Adione após o implemetation e {$R *.dfm}:

Quoteuses MMSystem;

Clique duas vezes no botão Ouvir e adicione o codigo:

Código:
Quotebegin
WebBrowser1.Navigate(Edit1.text);
end;

Clique duas vezes no botão Parar e adicione o codigo:

Código:
Quotebegin
WebBrowser1.Stop;
end;

Clique duas vezes na Track Bar e adicione o codigo:

Código:
Quotevar
Count, i: integer;
begin
Count := waveOutGetNumDevs;
for i := 0 to Count do
begin
waveOutSetVolume(i,longint(TrackBar1.position*4369)*65536 longint(TrackBar1.position*4369));
end;
end;

No text do Edit1 você coloca a URL da radio que você quer abrir.

Caso queira que quem use o aplicativo não queira vêr a url da rádio (o Edit), vá no Object Inspector e em Visible coloque false.

Se você deixar o WebBrowser Visible ele vai abrir a URL que está no edit como em um navegar, é para isso que usam o webbrowser, se você não quiser que isso aconteca fassa o mesmo processo do Edit, coloque false em Visible do Object Inspector do WebBrowser, caso não funcione é só diminuir o tamanho tão pequeno que ninguem veja =D.

ps: Na opção max do object inspector do TracBar coloque 15.

créditos:
Serginho