quarta-feira, 21 de agosto de 2013

Criando um Player no Delphi 7 (O tutorial não foi eu quem fez)


1ª Parte.: Colocando os itens necessários
2ª Parte.: Renomeando os itens
3ª Parte.: Colocando os Scripts
4ª Parte.: Acabamento //Configuração Final

-------------------- ,, ------------------------

1ª Parte.: Colocando os itens necessários
Vamos precisar de:
- 1 Timer //Se encontra na aba System
- 4 Buttons ou Images //o Button se encontra na aba Standard e a Image se enconta na aba Additional
- 1 OpenDialog //Se encontra na aba Dialogs
- 1 Timer //Se encontra na aba System
- 1 MediaPlayer //Se encontra na aba System
- 1 ProgressBar //Se encontra na aba Win32 

Ficará quase igual este exemplo:



---------------------,,-------------------------

2ª Parte.: Renomeando os itens
Renomeie da seguinte forma:
Se você colocou Buttons renomeie na Caption //Já se você colocou Imagem carregue uma ai por exemplo a de um símbolo de "+"
-1º Button :::> Abrir
- 2º Button :::> Play
- 3º Button :::> Pause
- 4º Button :::> Stop
- MediaPlayer1 :::> MP1
- ProgressBar1 :::>PB1
- OpenDialog1 :::> OD1
- O resto deixe om está

OBS.: No MP1 deixe o Visible em False



---------------------,,-------------------------

3ª Parte.: Arrumando os scripts
Faça da seguinte maneira:

Abrir:

Code:
if OD1.Execute then begin 
MP1.FileName := OD1.FileName;
Mp1.Open;
end;
Play
Code:
MP1.Play;
PB1.Min := 0;
PB1.Max := MP1.Length;
Timer1.Enabled := true;
Pause
Code:
Mp1.Pause;
Stop
Code:
MP1.Stop;
MP1.Position := 0;
Timer1
Code:
PB1.Position := MP1.Position;
---------------------,,-------------------------

4ª Parte.: Acabamento //Configuração Final
Faça assim:
- 1º: Selecione o OD1 que é o OpenDialog1
- 2º: Vá em Filter e clique nos três pontinhos "..."
- 3º: Deixe assim ↓

All Music Files|*.mp3;*.wav;*.wma
All Video Files|*.wmv;*.avi;*.mp4;*.mp3;*.mpg

Pronto!

Agora cliquem no Triangulo verde lá em cima ou aperte F9 para testar

0 Comentários:

Postar um comentário

Você pode utilizar:
<b>NEGRITO</b> | <em>ITÁLICO</em> | <a href="LINK">TEXTO DO LINK</a>