Clipper On Line • Ver Tópico - Apresentação de Videos

Apresentação de Videos

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Apresentação de Videos

Mensagempor asimoes » 12 Abr 2010 12:41

Senhores,

Preciso de ajuda dos mais experientes em minigui ou hwgui.

É o seguinte: preciso criar uma aplicação que fique exibindo videos em sequencia, tipo acabou um começa o outro, em loop.

Alguém poderia me dar uma luz como fazer isto em minigui ou hwgui.

[]´s
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Re: Apresentação de Videos

Mensagempor Eric_Developer » 16 Abr 2010 11:34

Com MiniGui, experimente:

Form_1.Play_1.Release
@ 0, 2 PLAYER Play_1 OF Form_1 ;
      WIDTH Form_1.Width - 12 ;
      HEIGHT 286 FILE 'SeuArquivo.Avi' ;
      NOMENU NOOPEN ;
      SHOWPOSITION


para trocar o arquivo precisaria dar uma olhada melhor em outros comandos, é uma pena que no FILE parece que não aceita vetor, mas para começar ....
Eric Developer Systems
Consulting/Freelances
Eric_Developer
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 26
Data de registro: 05 Abr 2010 11:26
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez

Re: Apresentação de Videos

Mensagempor sygecom » 16 Abr 2010 23:46

Olá asimoes,
O Video é em AVI? se sim pode usar a Hwgui para isso, veja um exemplo:

*********************
FUNCTION MsgRun(cMsg)
*********************
PRIVATE oTimHabla,oAnime

if cMsg=Nil
   cMsg:="Aguarde em processamento...."
endif

INIT DIALOG oDlgHabla TITLE "Processando..." NOEXIT NOEXITESC ;//NOCLOSABLE;
AT 0,0 SIZE 485,95 ;
ON EXIT {|| NoSaidaF4() };
STYLE DS_CENTER +WS_VISIBLE;
COLOR Rgb(255, 255, 255)

@ 45,20 SAY oTimHabla CAPTION cMsg SIZE 465,20;
FONT HFont():Add( '',0,-12,400,,,);
BACKCOLOR Rgb(255, 255, 255)

@ 5,20 ANIMATION oAnime ;
       OF oDlgHabla ;
       SIZE 32,32;
       FILE "res\processando.avi";
       AUTOPLAY

oAnime:Play()

HWG_DOEVENTS()

ACTIVATE DIALOG oDlgHabla NOMODAL

Return Nil
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7005
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes

Re: Apresentação de Videos

Mensagempor asimoes » 17 Abr 2010 08:24

Sygecom,

As funções ANIMATION E PLAYER já testei, sei que funcionam, mas o objetivo do projeto é criar um slide de videos, controlado pelo tempo de cada vídeo.
A idéia é reproduzir videos de 30 segundos +- em sequencia.

È como o Eric disse a função PLAYER poderia trabalhar com array de videos, ai resolve o problema.

[]´s
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Re: Apresentação de Videos

Mensagempor sygecom » 17 Abr 2010 09:34

Buenas asimoes,
Acho que está faltando para você é apenas a logica, basta você colocar em um laço e mandar reproduzir um atras do outro e ainda pode definir o tempo de cada um com oAnimation:seek(5). A HAnimation é apenas uma classe para reproduzir Video, para isso que você quer um player para rodar seu video, acho que isso você tem que desenvolver.
Leonardo Machado
xHarbour.org + Hwgui + PostgreSql
leonardodemachado@hotmail.com

Faça você também sua doação esse fórum é uma lenda viva: http://www.pctoledo.com.br/doacao
Avatar de usuário

sygecom
Usuário Nível 7

Usuário Nível 7
 
Mensagens: 7005
Data de registro: 21 Jul 2006 10:12
Cidade/Estado: Alvorada-RS
Curtiu: 1 vez
Mens.Curtidas: 130 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 10 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro