Histórico da Página
Composition Setup |
---|
import.css=/download/attachments/3279126062824/newLayouttecnologia.css |
Portuguese |
Pagetitle |
---|
...
|
...
...
|
Cria um objeto para reprodução de vídeos e áudios.
Hierarquia
- TControl
- TMediaPlayer
Construtores
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Propriedades
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Métodos
Inclusão de trecho | ||||||
---|---|---|---|---|---|---|
|
Observações
Este componente utiliza tecnologia ActiveX, através do Windows Media Player®, desta forma estando homologado apenas para os sistema operacionas da Microsoft®, dentre eles:
Windows XP
Windows Vista
Windows 7
Windows 8
O Windows Media
...
Player® pode depender de Codecs específicos para reprodução dos arquivos MP4, como teste basta executar este arquivo diretamente na ferramenta da
...
Microsoft®, caso funcione nesta, a reprodução ocorrera sem problemas no TMediaPlayer.
Importante:
...
Este componente está disponível em versões superiores à 120420A.
Nota | ||||
---|---|---|---|---|
| ||||
SmartClient HTML |
Exemplos
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#INCLUDE "TOTVS.CH"
USER FUNCTION TMediaPlayer()
| SmartClient HTML | |||||||||
6516131351 1651531351 |
Nome | Tipo | Descrição | Obrigatório | Referência |
nRow | Numérico | Indica a coordenada vertical em pixels ou caracteres. | ||
nCol | Numérico | Indica a coordenada horizontal em pixels ou caracteres. | ||
nWidth | Numérico | Indica a largura em pixels do objeto. | ||
nHeight | Numérico | Indica a altura em pixels do objeto. | ||
oWnd | Objeto | Indica a janela ou controle visual onde o objeto será criado. | X | |
cFile | Caractere | Indica o nome do arquivo de mídia(MP4 ou MP3), que caso preenchido iniciara automaticamente a reprodução . | ||
nVolume | Numérico | Indica o volume de audio, de 0 a 100 | ||
lShowBar | Boleano | Se .T. indica que será exibida a barra de comandos do próprio Windows Media Palyer® |
- Retorna o objeto criado.
oMedia := TMediaPlayer():New(1, 1, 200, 200, oDlg, "c:/dir/file.mp4", 70, .T.)
OpenFile
OpenFileAbre e inicia a reprodução de um arquivo de mídia.TMediaPlayer(): Openfile([cFile]) --> oMedia:OpenFile("c:/fir/file.mp3")
|
---|
SetShowBar
Habilita a exibição da barra de ferramentas do Windows Media Player®.
TMediaPlayer(): SetShowBar( <lShow> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lShow | Boleano | Se .T. indica que será exibida a barra de comandos do próprio Windows Media Palyer® | X |
oMedia:SetShowBar(.T.)
SetVolumeAjusta a altura do volume de áudio. |
---|
Nome | Tipo | Descrição | Obrigatório | Referência |
nVolume | Numérico | Indica o volume de audio, de 0 a 100 | X |
Play
Inicia reprodução.
TMediaPlayer():Play() -->
oMedia:Play()
Stop
Para a reprodução.
TMediaPlayer():Stop() -->
oMedia:Stop()
Pause
Pausa a reprodução.
TMediaPlayer(): Pause() -->
oMedia:Pause()
SetMute
Liga e desliga a opção silencio (mute).
TMediaPlayer(): SetMute( <lMute> ) -->
Nome | Tipo | Descrição | Obrigatório | Referência |
lMute | Boleano | Se .T. habilita a opção silencio (mute) | X |
oMedia:SetMute( .T. )
Propriedades
Nome | Tipo | Descrição | Obrigatório | Referência |
nPlayCount | Numérico | Define e retorna a quantidade de repetições para reprodução da mídia |
|
User Function TMediaPlayer()
local nLeft := 1
local nTopBtn := 202
local showBar := .F.
local isMute := .F.
local nVolume := 70
SetStyle(5) DEFINE MSDIALOG oDlg TITLE "TMediaPlayer" FROM 0,0 TO 424,510 PIXEL
oMedia := TMediaPlayer():New(1,nLeft,255,200,oDlg,"c:/garbage/file.mp4",nVolume,showBar)
TButton():New( nTopBtn, nLeft, "Open", oDlg,;
{|| oMedia:openFile( FWInputBox("Escolha o arquivo", "c:/garbage/") ) },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( nTopBtn, nLeft+=28, "Play", oDlg,;
{|| oMedia:play() },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( nTopBtn, nLeft+=28, "Pause", oDlg,;
{|| oMedia:pause() },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( nTopBtn, nLeft+=28, "Stop", oDlg,;
{|| oMedia:stop() },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( nTopBtn, nLeft+=28, "SetVolume", oDlg,;
{|| oMedia:setVolume( Val( FWInputBox("Escolha a altura do volume [0-100]", cValToChar(oMedia:nVolume)) ) ) },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( nTopBtn, nLeft+=28, "GetVolume", oDlg,;
{|| MsgAlert( oMedia:nVolume ) },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( nTopBtn, nLeft+=28, "ShowBar", oDlg,;
{|| showBar:=!showBar, oMedia:setShowBar( showBar ) },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( nTopBtn, nLeft+=28, "nPlayCount", oDlg,;
{|| oMedia:nPlayCount := ( Val( FWInputBox("Escolha o numero de repetições", cValToChar(oMedia:nPlayCount)) ) ) },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
TButton():New( nTopBtn, nLeft+=28, "SetMute", oDlg,;
{|| isMute:=!isMute, oMedia:setMute( isMute ) },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
ACTIVATE MSDIALOG oDlg CENTERED
return
Exemplo da classe TMediaPlayer
RETURN
Resultado do Exemplo
Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
...