Clique para saber mais...
  Home     Download     Produtos / Cursos     Revista     Vídeo Aulas     Fórum     Contato   Clique aqui para logar | 11 de Julho de 2026
  Login

Codinome
Senha
Salvar informações

 Esqueci minha senha
 Novo Cadastro

  Usuários
92 Usuários Online

  Revista ActiveDelphi
 Assine Já!
 Edições
 Sobre a Revista

  Conteúdo
 Apostilas
 Artigos
 Componentes
 Dicas
 News
 Programas / Exemplos
 Vídeo Aulas

  Serviços
 Active News
 Fórum
 Produtos / Cursos

  Outros
 Colunistas
 Contato
 Top 10

  Publicidade

  [Dicas]  Rodando vídeo em um TPanel
Publicado por ActiveDelphi : Quarta, Fevereiro 27, 2008 - 08:30 GMT-3 (1607 leituras)
Comentários 3 Comentários   Enviar esta notícia a um amigo Enviar para um amigo   Versão para Impressão Versão para impressão
Administrador Vimos no artigo "Criando Player Multimídia no Delphi" como abrir arquivos de áudio pelo delphi. Esta dica vem para complementá-la, mostrando agora como abrir vídeos, utilizando o componente TMediaPlayer e um TPanel.

Acrescente ao form um Button e um Panel (Standard), um MediaPlayer (System) e um OpenDialog (Dialogs).

No componente MediaPlayer1, ligue a propriedade Display ao Panel1.

No evento onClick do Button, faça:

  if opendialog1.execute then
  begin
    mediaplayer1.filename := opendialog1.filename;
    mediaplayer1.open;
    mediaplayer1.Perform(wm_lbuttondown, 0, $00090009);
    mediaplayer1.Perform(wm_lbuttonup, 0, $00090009);
  end;

Agora é só rodar! No diretório de instalação do seu delphi, há o caminho Demos\CoolStuf. Nessa pasta existem 2 arquivos de vídeo que você possa testar e ver se seu MediaPlayer funciona!

Espero que tenha sido útil.

Abraços!



Comentários Comentários
   Ordem:  
Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos.


por: Banaggia (banaggia@gmail.com) : Fev 28, 2008 - 03:16
(Informações sobre o membro | Enviar uma mensagem) http://banaggia.110mb.com
Boa!
Agora como colocar o video do tamanho do Panel?
Tipo Panel alinhado ao "Client" e o video no panel acompanhar o "Cliente"!

[]'s


por: leoferrareto (leoferrareto@hotmail.com) : Abr 03, 2008 - 11:23
(Informações sobre o membro | Enviar uma mensagem)
Muito bom o tutorial mas como fazer com que o video fique na proporçao desejada


por: teixeiraa (t31x31r4-delphi@yahoo.com) : Jul 02, 2008 - 11:00
(Informações sobre o membro | Enviar uma mensagem) http://www.geocities.com/teixeiraa
Dica boa... mas faltou deixar o tamanho do video proporcional ao tamanho do Panel.
  Edição 112

Revista ActiveDelphi

  50 Programas Fontes


  Produtos

Conheça Nossos Produtos

Copyright© 2001-2016 – Active Delphi – Todos os direitos reservados