(Tutorial) Criando Um Player De Musica

[josue1602 0]

Aew pessoal então eu andei dando uma procurada em alguns tutorial como fazer um player de musica eu achei uns mas não estão bons não passavam a musica sozinho em fim, ai eu fui peganda e editando os codigos dos tutoriais que eu tinha visto eu o resultado foi bem bom

consegui fazer com que passasem de musica sozinho, adicionar opção de aumentar e diminir volume, colocar um progressbar então agora irei passar para vcs oq eu fis

 

Vamos Preçizar De 8 Button Na Aba Standard

1 ListBox Na Aba Standar

1 Media Player Na Aba System

2 Timer Na Aba System

1 OpenDialog Na Aba Dialogs

1 TrackBar Na Aba Win32

1 ProgressBar Na Aba Win 32

 

1º Adicione O 1 Button um OpenDialog e Um ListBox Renomeie o Button Como Abrir Musica Ou Como Desejar De 2 Cliks E Adicione Esse Codigo

var i:integer;

begin

if OpenDialog1.Execute then begin

for i := 0 to OpenDialog1.Files.Count -1 do

ListBox1.Items.Add(OpenDialog1.Files);

ListBox1.ItemIndex := 0;

MediaPlayer1.FileName := ListBox1.Items[ListBox1.ItemIndex];

MediaPlayer1.Open;

Timer1.Enabled := true;

ProgressBar1.Max := 0;

//codigo para abrir a musica

ProgressBar1.Max := MediaPlayer1.Length;

Timer2.enabled := true;

end;

Lembrando: Apage o begin que já esta escrito.

 

Essa Função Ira Fazer Com Que Abra A Musica e Passe Para O ListBox e tmb Outras Funções Como Para Poder Funfar o Passar Musica Sozinha E Para Funfar O ProgressBar

 

 

2º Adicione Outro Button E o Renomeie Para Delete De 2 Clicks e Escreve Esse

ListBox1.DeleteSelected;

 

Esse Ira Deletar A Musicar que Vc Desejar Do ListBox

 

 

3º Adicione Outro Button E o Renomeie Para Play De 2 Clicks e Escreve Esse Code:

MediaPlayer1.FileName := Listbox1.Items.Strings[Listbox1.itemindex];

MediaPlayer1.Open;

MediaPlayer1.Play;

 

Esse Ira Fazer Tocar a Musica

 

 

4º Adicione Outro Button E o Renomeie Para Stop De 2 Clicks e Escreve Esse Code:

MediaPlayer1.FileName := Listbox1.Items.Strings[Listbox1.itemindex];

MediaPlayer1.Open;

MediaPlayer1.Stop;

 

Esse Ira Fazer Parar a Musica

 

 

5º Adicione Outro Button E o Renomeie Para Pause De 2 Clicks e Escreve Esse Code:

MediaPlayer1.Pause;

 

Esse Ira Pausar a Musica

 

 

6º Adicione Outro Button E o Renomeie Para Resume De 2 Clicks e Escreve Esse Code:

MediaPlayer1.Resume;

 

Esse Ira Resumir A Musica Da Onde Vc Pausou

 

 

7º Adicione Outro Button E o Renomeie Para Voltar De 2 Clicks e Escreve Esse Code:

ListBox1.ItemIndex := ListBox1.ItemIndex -1;

MediaPlayer1.FileName := Listbox1.Items.Strings[Listbox1.itemindex];

MediaPlayer1.Open;

MediaPlayer1.Play;

 

Esse Ira Passar Para A Musica Anterior

 

 

8º Adicione Outro Button E o Renomeie Para Proximo De 2 Clicks e Escreve Esse Code:

ListBox1.ItemIndex := ListBox1.ItemIndex +1;

MediaPlayer1.FileName := Listbox1.Items.Strings[Listbox1.itemindex];

MediaPlayer1.Open;

MediaPlayer1.Play;

 

e Esse Ira Passar Para a Proxima Musica

 

Certo Buttons Prontos Agora Vamos Para a Parte De Passar a Musica Sozinho

 

O Primeiro Codigo Não Preçiza Adicionar Porq Já Foi Adicionado No Botão Abrir Musica Que é Esse: Esse :

var i:integer;

begin

if OpenDialog1.Execute then begin

for i := 0 to OpenDialog1.Files.Count -1 do

ListBox1.Items.Add(OpenDialog1.Files);

ListBox1.ItemIndex := 0;

MediaPlayer1.FileName := ListBox1.Items[ListBox1.ItemIndex];

MediaPlayer1.Open;

Timer1.Enabled := true;

 

Agora Na Segunda Parte De Dois Clicks No ListBox e Adicione Esse Code:

MediaPlayer1.FileName := ListBox1.Items[ListBox1.ItemIndex];

MediaPlayer1.Open;

MediaPlayer1.Play;

 

 

Agora Na Terçeira Parte Vc Adiciona Um Timer e Coloce Esse Code No Timer:

if ListBox1.Items.Count <> 0 then begin

if MediaPlayer1.Position = MediaPlayer1.Length then begin

if ListBox1.ItemIndex = ListBox1.Items.Count -1 then

ListBox1.ItemIndex := 0

else ListBox1.ItemIndex := ListBox1.ItemIndex +1;

MediaPlayer1.FileName := ListBox1.Items[ListBox1.ItemIndex];

MediaPlayer1.Open;

MediaPlayer1.Play;

end;

end;

 

E Deixe A Opição Enabled Dele Como False

 

Pronto Agora Já Irá Passar De Musica Sozinho.

 

Agora Vamos Para A Parte De Aumentar e Diminuir Volume

 

1º Adiciono um TrackBar De 2 Clicks E Coloca esse Code:

var

s:string;

begin

s:='0x'+ inttostr(trackbar1.Position)+ inttostr(trackbar1.Position);

MMSystem.waveOutSetVolume(0, StrToInt(s));

Lembrando Apague o Begin que Já esta escrito.

 

2º Clica Na Form1 e No Events que fica na parte inferior esquerda de 2 clicks em OnCreate e adicione esse code:

TrackBar1.Max:=96;

TrackBar1.Min:=6;

TrackBar1.Position:=50

 

Agora De 2 Clicks Em Qualque Botão Irá Apareçer A Parte De Colocar Os Codigos Certo, Agora Lá Em Cima De Uma Vez Tem Um Codigo Com o Nome De Uses e Embaixo Disso Tem Varios Nomes De Uma Virgula Nesses Nome e Adicione MMSystem.

 

Pronto Opição de Aumentar e Diminuir Volume Adicionada.

 

Agora Vamos Adicionar Uma Uma Barra De Progresso Para a Musica

 

1º Adicione Um ProgressBar

 

O Primeiro Codigo Não Preçiza Adicionar Porq Já Foi Adicionado No Botão Abrir Musica Que é Esse:

ProgressBar1.Max := 0;

//codigo para abrir a musica

ProgressBar1.Max := MediaPlayer1.Length;

Timer2.enabled := true;

 

Agora na Segunda Parte Adicione Outro Timer e Coloque Esse Code:

if ProgressBar1.Max <> 0 then

ProgressBar1.Position := MediaPlayer1.Position

 

Deixe o Timer Com Intervalo De 1000

 

Pronto Player De Musica Criado

 

Creditos: Josué (eu) e Tmb Do ~OwneR~ Que Deu a Dica De Passar De Musica Sozinho

 

 

Gostou? Agradeça Não Custa Nada.

[amcorporation 1]

Bom tutorial, bem explicado e com cores e caixas de texto.

Ficaria um poco melhor se você tirasse um print dele funcionando para ver o Resultado mas mesmo assim está muito bom!

 

abrass...

[josue1602 0]

Tambem Irei Fazer Um Video Para Quem Não Consseguir Enteder Com o Tutorial

[DragonBoss 8]

Gostei cara, fico bem explikado.. gosto de tutoriais com os codigos bem separado das explikaçoes e com cores... fiko mto bom mesmo... jaah temos outros tutoriais de player de musika, mas o seu foi o mais completo ke jah vi ^^

 

flw, abraços

[mgbcrazy 0]

mto bom msm agora so ficou faltando um tuto pra executar video dentro do form tbm neh :s

[josue1602 0]

mto bom msm agora so ficou faltando um tuto pra executar video dentro do form tbm neh :s

 

Estou Tentando Fazer Isso Quando Consseguir Postarei Aki OK.

[matheusguerra 3]

olha cara eu to sem o delphi pra testar isso

mais eu intendi tudo, tu explicou muito bem

eu tinha feito um tuto aqui sobre player, mais esse seu é diferente

 

vlw

[Euzimmm 0]

Ai sou novo no progama Delphi 7 mais sei algumas coisas.

Eu fiz tudo certin como manda o tutorial.

 

Agora como eu faço para eu transformar meu trabalho em .exe para poder usa-lo.

 

Vlw. Ótimo tópico;

 

Espero resposta

[josue1602 0]

Ai sou novo no progama Delphi 7 mais sei algumas coisas.

Eu fiz tudo certin como manda o tutorial.

 

Agora como eu faço para eu transformar meu trabalho em .exe para poder usa-lo.

 

Vlw. Ótimo tópico;

 

Espero resposta

 

Simples. Salve Seu Pojeto Cliclando Em Salve All e Depois De Um Play Ou Aperte F9 e Seu .exe Sera Criado Na Pasta Em Que Vc Salvou. Gostou Agradeça.