Histórico da Página

Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Portuguese

Pagetitle

	TMediaPlayer
	TMediaPlayer

Colapse ALL

Expand ALL

Classe: TMediaPlayer

Cria um objeto para reprodução de vídeos e áudios. 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

title	SmartClient HTML

Os formatos de arquivos homologados para SmartClient HTML são: MP4, MOV, WMV e MP3

Hierarquia

TSrvObject -> TControl -> TMediaPlayer

Construtores

New

Método construtor da classe.

Sintaxe

TMediaPlayer(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ oWnd], [ cFile], [ nVolume], [ lShowBar] ) --> oObjeto

Parâmetros

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®

Retorno

oObjeto

Retorna o objeto criado.

Exemplos

oMedia := TMediaPlayer():New(1, 1, 200, 200, oDlg, "c:/dir/file.mp4", 70, .T.)

Métodos

OpenFile

Abre e inicia a reprodução de um arquivo de mídia.

Sintaxe

TMediaPlayer(): Openfile([cFile]) -->

Exemplos

oMedia:OpenFile("c:/fir/file.mp3")

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cFile	Caracter	Indica o nome do arquivo de mídia(MP4 ou MP3), que caso preenchido iniciara automaticamente a reprodução .	X

SetShowBar

Habilita a exibição da barra de ferramentas do Windows Media Player®.

Sintaxe

TMediaPlayer(): SetShowBar( <lShow> ) -->

Parâmetros

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

Observações

Exemplos

oMedia:SetShowBar(.T.)

SetVolume

Ajusta a altura do volume de áudio.

Sintaxe

TMediaPlayer(): SetVolume([nVolume] ) -->

Exemplos

oMedia:SetVolume(70)

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.

Sintaxe

TMediaPlayer():Play() -->

Exemplos

oMedia:Play()

Stop

Para a reprodução.

Sintaxe

TMediaPlayer():Stop() -->

Exemplos

oMedia:Stop()

Pause

Pausa a reprodução.

Sintaxe

TMediaPlayer(): Pause() -->

Exemplos

oMedia:Pause()

SetMute

Liga e desliga a opção silencio (mute).

Sintaxe

TMediaPlayer(): SetMute( <lMute> ) -->

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
lMute	Boleano	Se .T. habilita a opção silencio (mute)	X

Exemplos

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

Bloco de código

theme	Eclipse
language	cpp
title	Exemplo
linenumbers	true

#INCLUDE "TOTVS.CH"
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

Preview

Exemplo da classe TMediaPlayer

Abrangência

Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

Árvore de páginas

Versões comparadas

Versão antiga 53

Nova versão 54

Chave

Classe: TMediaPlayer

New

Método construtor da classe.

OpenFile

Abre e inicia a reprodução de um arquivo de mídia.

SetShowBar

Habilita a exibição da barra de ferramentas do Windows Media Player®.

SetVolume

Ajusta a altura do volume de áudio.

Play

Inicia reprodução.

Stop

Para a reprodução.

Pause

Pausa a reprodução.

SetMute

Liga e desliga a opção silencio (mute).