Olá pessoal, vou demonstrar rapidamente como é fácil e rápido trabalhar com aplicações multimídia no delphi, com apenas algumas linhas de código e muita criatividade, podemos criar, por exemplo, um Player básico.
Vamos lá:
Primeiramente inicie o delphi e redimencione o forme até que fique do tamanho Desejado:
Altere o Caption do form dando o nome que você quizer, já que é seu player rs, salve tudo.
Em seguida adicione um TButton e um TOpenDialog, localizado na plheta Dialogs do delphi
No caption do TButton escreva Abrir.
Coloque também um objeto TMediaPlayer encontrado na palheta System.
No evento ONCLICK do TButton adicione as linhas de código como mostra abaixo:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
MediaPlayer1.Close;
if OpenDialog1.Execute then
begin
MediaPlayer1.FileName := OpenDialog1.FileName;
MediaPlayer1.Open;
end;
end;
Dimensione os objetos:
Na propriedade Filter do objeto OpenDialog1 adicione os seguintes itens:
*.avi; *.mid; *.mp3; *.wav
Salve tudo clicando em Save all no menu file e compile tudo dando um CRTL + F9, depois dê um F9 e é só alegria !!!!!
Bons Estudos !!!!
Editado por Micheus Adicionado o delimitador de código [code] [/code] e acrescentado END que estava faltando.
Pergunta
fernando_vip
Olá pessoal, vou demonstrar rapidamente como é fácil e rápido trabalhar com aplicações multimídia no delphi, com apenas algumas linhas de código e muita criatividade, podemos criar, por exemplo, um Player básico.
Vamos lá:
Primeiramente inicie o delphi e redimencione o forme até que fique do tamanho Desejado:
Altere o Caption do form dando o nome que você quizer, já que é seu player rs, salve tudo.
Em seguida adicione um TButton e um TOpenDialog, localizado na plheta Dialogs do delphi
No caption do TButton escreva Abrir.
Coloque também um objeto TMediaPlayer encontrado na palheta System.
No evento ONCLICK do TButton adicione as linhas de código como mostra abaixo:
Dimensione os objetos:
Na propriedade Filter do objeto OpenDialog1 adicione os seguintes itens:
*.avi; *.mid; *.mp3; *.wav
Salve tudo clicando em Save all no menu file e compile tudo dando um CRTL + F9, depois dê um F9 e é só alegria !!!!!
Bons Estudos !!!!
Editado por MicheusAdicionado o delimitador de código [code] [/code] e acrescentado END que estava faltando.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.