XSystemX
Usuário XPZ
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
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:
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.
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
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:
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.