[tutorial] criar player para radio em delphi

Postagem de conteúdo sobre programação pascal e delphi
Post Reply
User avatar
Kodo no Kami
Admin
Admin
Posts: 723
Joined: Fri Jan 02, 2015 1:56 pm
Contact:

[tutorial] criar player para radio em delphi

Post by Kodo no Kami » Wed Oct 24, 2018 7:17 pm

E ae galera beleza? nesse tutorial vamos criar um player para algum stream ou radio online em delphi usando o activeX do Windows Media player (como é um componente activeX o mesmo poderia ser feito em outras linguagens e IDEs que permite importar esses tipos de componentes). Nesse exemplo estarei criando um player para a radio blast que é uma radio de cultura niponica, sempre tocando musicas de animes ou desse genero. Então galera mãos a obra, vamos começar abrindo o delphi

Image

com o delphi aberto vamos instalar o activex do windows media player, para isso apertamos no menu "Component" e depois em "Import ActiveX Control"

Image

vai abrir uma aba, nela procura o activeX do windows media player e aperte em install, se tudo ocorrer bem ele sera instalado na aba activeX

Image

agora galera vamos criar o nosso player, vou colocar dois buttons o primeiro vai começar a tocar e o segundo vai parar de tocar, também vou colocar o componente do windows media player da aba ActiveX (como é uma radio com apenas o retorno do audio eu posso simplesmente ocultar o componente do windows media player colocando false na propriedade visible dele, você pode deixar visivel caso seja um stream de video)

Image

para que funcione você deve pegar a url certinho do stream (não a da pagina), para fazer isso você pode usar o inspecionar elemento do navegador (com essa url em mãos voce tambem pode tocar a radio pelo próprio windows media player ou ate pelo vlc ou qualquer outro player)

Image

a gente atribui a url do stream no atributo URL do componente WindowsMediaPlayer no evento OnClick daquele botão que vai começar a tocar

Code: Select all

procedure TForm1.Button1Click(Sender: TObject);
begin
   WindowsMediaPlayer1.URL := 'http://192.99.150.31:8315/principal';
end;
no segundo botão a gente atribui uma string vazia

Code: Select all

procedure TForm1.Button2Click(Sender: TObject);
begin
    WindowsMediaPlayer1.URL := '';
end;
Image

pronto bastando compilar e testar (nesse momento ta tocando rip slyme: super shooter ~ op de gantz)

Image

podemos customizar o player da forma que a gente quiser inclusive adicionar novas funcionalidade como exibir as musicas tocadas e etc

Image

bom galera isso aqui é apenas um tutorial não é um player oficial da radio blast, existe um para android codado pelo Etrom Kusanagi so procurar la no discord da radio caso tenha interresse, tambem deveria ter um bot no discord deles se um tal de kodo não tivesse sumido esses meses (pressinto que o Joke e o Sephis vão puxar a orelha dele quando ele aparecer por la T.T ), Bom galera é isso ando meio sumido ultimamente mais ainda estou vivo, então ate um proximo tutorial daqui a uns meses \o

by kodo no kami
Image

que desagradavel ~ mirai kuriyama

User avatar
51M0N
Admin
Admin
Posts: 872
Joined: Fri Jan 02, 2015 2:06 pm

Re: [tutorial] criar player para radio em delphi

Post by 51M0N » Fri Oct 26, 2018 3:11 pm

muito bom mano, bem tranquilo de fazer :D
Image
"Você, eu, nem ninguém vai bater tão duro como a vida. Mas não se trata de bater duro. Se trata de quanto você aguenta apanhar e seguir em frente (...). É assim que se consegue vencer." by Rocky Balboa

User avatar
Kodo no Kami
Admin
Admin
Posts: 723
Joined: Fri Jan 02, 2015 1:56 pm
Contact:

Re: [tutorial] criar player para radio em delphi

Post by Kodo no Kami » Wed Oct 31, 2018 3:47 am

opa vlw mano \o
Image

que desagradavel ~ mirai kuriyama

Post Reply

Return to “Pascal / Delphi”