[Tutorial] Criando um Player Báscio [ Delphi 7 ]

[mateus12m 0]

Sumário:

- Arquivos nescessários.

- Tutorial.

- Créditos.

- Agradecimentos.

 

~*~

 

- Arquivos nescessários:

Delphi 7

 

- Tutorial:

 

Primeiramente abra o Delphi e redimensione a tela da Form até que fique mais ou menos desta maneira:

 

 

Em seguida, adicione um TButton ( localizado na parte Standart ), um TOpenDialog ( localizado na parte Dialogs ) e um TMediaPlayer ( localizado na parte System ):

 

 

 

Organize mais ou menos assim:

 

 

 

Agora renomeie o TButton para "Abir" pelo Caption:

 

 

Dê um duplo clique no TButton, apague o código

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

e adicione o seguinte código:

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Então, vá na propriedade "Filter" do objeto TOpenDialog e adicione os seguintes itens:

 

 

Agora Salve e Compile o seu projeto.

 

 

- Créditos:

Os créditos vão para mim, pelo tutorial postado aqui e algumas fotos.Créditos também para o Delphi-School pelo baseamento do tópico e 1 imagem.

 

- Agradecimentos:

Eu gostaria de agradecer a toda a equipe WebCheats por dar a nós, membros, a possibilidade de postar tópicos. Obrigado.

[jhosep 0]

hum.... pode ser uma ótima idéia para o meu TCC, mais vc poderia mandar passo a passo de como construir um player completo???

 

agradeço....

 

me add msn: [email protected]

 

preciso de algumas sugestões suas ok,

 

ficarei muito grato se me ajudar!!!

[SaYaDiN² 1]

Vc fez esse code? lol, Não seja leeacher...

 

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

MediaPlayer1.Close;

if OpenDialog1.Execute then

begin

MediaPlayer1.FileName := OpenDialog1.FileName;

MediaPlayer1.Open;

end;

end;

 

Não precisa do MediaPlayer1.Close...

[mateus12m 0]

Não, não fui eu quem fiz o código, e não sou leecher pois postei os créditos. Leia melhor da próxima vez ou compre um óculos :O

[guilmen 0]

Ola existe uma maneira de eu deixar o TMediaPlayer tranparente como?

[קђ๏єภเא 14]

Muito bom man, mais pena que não da pra instala aqui no meu windows 7 porque não quero que meu pc carrege muito...

[ricardolg36 0]

Para deixar o media player transparente vc pode ir em OBJECT INSPECTOR e escolher a transparencia , ou vc pode usar o Comando seguinte (no form , para deixar o media player invisivel) :

 

TMediaPlayer.visible:= false:p

[tekitos123 3]

Adicionando uma barra de progresso para acompanhar o progresso da musica

 

adicione uma progressbar(win32) e um timer(system)

 

troque o code para tocar a musica por esse

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

coloque esse code no timer para atualizar a progressbar

if ProgressBar1.Max <> 0 then begin

ProgressBar1.Position := MediaPlayer1.Position;

end;

[wee. 0]

Eu fiz tudo até a parte de coloca as extenções .mp3 .....

 

depois na hora de salvar e com´pilar eu não entendo é a primera vez que uso este programa , o que eu faço pra ele funcionar ?

[bidoow 0]

wee compilar = aperta F9 qe ele funfa

 

ei velho eu não consegui com esse teu codigoo ai

 

dai ali no botão abri eu fiz esse codigo e funfo

 

procedure TForm1.Button2Click(Sender: TObject);

begin

if OpenDialog1.Execute then

Edit1.Text:=OpenDialog1.FileName;

MediaPlayer1.FileName := Edit1.Text ;

MediaPlayer1.Open;

showmessage ('Aperte Play e ouça!')

end;

end.

 

end.

 

vlww

[matheusguerra 3]

cara é mó bom tipow na aula de informatica, os pcs num tem WMP nem winamp, dae eu passo po perdrive

e pronto dá pra ouvi um Bob marley ^^

 

vlw mesmo leva meu tanks :D

[DarkSj 0]

Mt bom vai leevar meoo tks!

_________________________________________________

 

Metas no WC:

[X]5 posts

[X]10 posts

[ ]50 posts

[ ]100 posts

[ ]250 posts

[ ]500 posts

[ ]750 posts

[ ]1000 posts

 

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

[Surfistinha£ 20]

Tem varios turtorias desses aqui nesta area mas tudo bem

 

Muito Obrigado

[Ex7reMe 2]

Topico ja existente da closed akieee

[DarkSj 0]

como fas pra colocar um volume no programa?

 

vlw

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

 

Metas no WC:

[X]5 posts

[X]10 posts

[ ]50 posts

[ ]100 posts

[ ]250 posts

[ ]500 posts

[ ]750 posts

[ ]1000 posts

 

 

¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨

[matheusguerra 3]

como fas pra colocar um volume no programa?

 

hum.....

ja tentei fazer isso

eu tentei fazer com uma Trackbar, procurei os codigos

mas não achei nada

 

eu vo voutar a procurar ja edito akie

caso vc ache poste aki

 

@edit

cara eu achei ums codigos

mais não é por Trackbar é por edits

e o phoda é qui vc tem que escrever os codigos na edit para aumentar e diminuir tipow assim:

000BBDAAA

AACCBB000

 

é muito complicado.....

[Akilleks~™ 0]

Amigo o seu codigo para aplicar no button esta errado, ou pelo menos a maioria não conseguiu ultilizar.

 

Primeiro apague tudo que esta no Button e coloque:

 

"O certo / Que da para ultilizar":

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Abraços.

[rino50 0]

pq so da pra por 1 musica? Tem como aparecer track 01 ou nome da msica na lista?

[Surfistinha£ 20]

pq so da pra por 1 musica? Tem como aparecer track 01 ou nome da msica na lista?

 

Sim mas vc pode criar um de lixbox

[DragonBoss 8]

Tutorial com o download do componente pra controlar o volume do sistema:

 

http://www.webcheats.com.br/forum/delphi-vb/372752-tutorial-controlando-o-volume-pelo-delphi-xd.html

 

flw, abraços;

[Niik 3]

100000000000000 Tópicos assim mas td bem...

 

Vlw Por Postar!