Histórico da Página
Aviso |
---|
Componente descontinuado e não suportado pelo SmartClient HTML |
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()
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,;
TSrvObject -> TControl -> TMediaPlayer NewMétodo construtor da classe.TIBrowser(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ cPage], [ oWnd] ) --> oObjeto
oObjeto
oTIBrowser:= TIBrowser():New(0,0,260,184,'http://www.totvs.com.br',oDlg ) GoHomeDireciona para a página (URL - Uniform Resource Locator) configurada na construção do objeto.TIBrowser(): GoHome ( ) --> {|| oTIBrowser:GoHome() },40oMedia:openFile( FWInputBox("Escolha o arquivo", "c:/garbage/") ) },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. ) NavigateDireciona para uma nova página Web.TIBrowserTButton():Navigate ( < cUrl> ) -->
New( nTopBtn, nLeft+=28, "Play", oDlg,; {|| oMedia:play() },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New(172 nTopBtn,002 nLeft+=28, "Navigate Pause", oDlg,; {||oTIBrowser oMedia:Navigate( "http://www.rm.com.br" pause() },40 ; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. ) Abre uma janela para impressão da página.TIBrowser(): Print ( ) --> TButton():New(172 nTopBtn,102 nLeft+=28, "Print Stop", oDlg,; {||oTIBrowser oMedia:Print stop() },40 ; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. ) Para utilizar esta classe, no Smart Client, é necessário incluir, no arquivo de configuração do Smart Client (*.INI), a chave BrowserEnabled=1. Em builds superiores a 111010P este componente foi liberado para os sistemas operacionasis Linux® e MacOS®. 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(172 nTopBtn,002 nLeft+=28, "Navigate ShowBar", oDlg,; {||oTIBrowser:Navigate( "http://www.rm.com.br" showBar:=!showBar, oMedia:setShowBar( showBar ) },40 ; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New(172 nTopBtn,052 nLeft+=28, "GoHome nPlayCount", oDlg,; {|| oMedia:nPlayCountoTIBrowser:GoHome() },40 := ( Val( FWInputBox("Escolha o numero de repetições", cValToChar(oMedia:nPlayCount)) ) ) },; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. ) TButton():New(172 nTopBtn,102 nLeft+=28, "Print SetMute", oDlg,; {||oTIBrowser:Print( isMute:=!isMute, oMedia:setMute( isMute ) },40 ; 28,010,,,.F.,.T.,.F.,,.F.,,,.F. ) ACTIVATEDIALOG MSDIALOG oDlg CENTEREDReturnExemplo da classe TIBrowser
RETURN
|
Resultado do Exemplo
Abrangência
Microsiga Protheus 8.11 , Microsiga Protheus 11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server
...