[Tutorial Básico] Video Play com RMVB

XSystemX

Honrado XPZ
14 de Julho de 2012
83
43
18
24
Primeiro:
Intalando o componente RealAudio
Abra seu Delphi e vá em Component>Import ActiveX control...
 


Procure por Real Player ActiveX Control Library (version 1.0)
E em palette page escolha em qual paleta irá instalar..eu instalei na System.
Então, clique em Install
Você não tem permissão para ver o link. Faça o login ou registre-se agora.


Após isso, aparecerá uma janela que você deverá escolher em qual pacote(.dpk) o delphi irá instalar esse componente.eu apenas apertei na cetinha ↓ e já tinha um pacote "padrão" ali
clique em OK.

Agora, adicione:
 




1 RealAudio(Aba que você escolheu)
1 Button(Aba Standard)
1 OpenDialog(aba Dialogs)



Eu deixei mais ou menos assim:
Você não tem permissão para ver o link. Faça o login ou registre-se agora.


No evento onclick do Button
Adicione:
 


if OpenDialog1.Execute then //Executará o OpenDialog
RealAudio1.Source := OpenDialog1.FileName; //Pegará o caminho do video RMVB
RealAudio1.DoPlay; //Iniciará o video

Esse é só o básico, claro, aqui vai mais uns comandos:

Não vou listar todos, mas é só saber um pouco de inglês que vocês descobrem tudo ai...
Se bem que, ele já tem os botões Play,Stop,next,previous, Som, e etc. tentei tira-los mas não consegui..então só seria necessário o botão para abrir o video mesmo...

Créditos: Sн๏ω.∂๏ωи

Retirado de: ClubeDaProgramação.