TOTVSTEC

Árvore de páginas

Versões comparadas

Versão antiga 2

changes.mady.by.user Ricardo Mansano Godoi

Gravado em

comparado com

Nova versão 55

changes.mady.by.user Tatiane Vieira Matias

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
portuguese
Composition Setup
import.css=/download/attachments/3279126062824/newLayouttecnologia.css

Pagetitle

...

Classe TMediaPlayer
Classe

...

...

TMediaPlayer

Cria

...

um

...

objeto para reprodução de vídeos e áudios.

Hierarquia

Construtores

Inclusão de trecho
Classe TMediaPlayer - Construtores
Classe TMediaPlayer - Construtores
nopaneltrue

Propriedades

Inclusão de trecho
Classe TMediaPlayer - Propriedades
Classe TMediaPlayer - Propriedades
nopaneltrue

Métodos

Inclusão de trecho
Classe TMediaPlayer - Métodos
Classe TMediaPlayer - Métodos
nopaneltrue

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
icontrue
titleAtenção

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

Exemplos

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
#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

TSrvObject -> TControl -> TMediaPlayer

Construtores
New

New

Método construtor da classe.

Sintaxe

TIBrowser(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ cPage], [ oWnd] ) --> oObjeto

Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
nRowNuméricoIndica a coordenada vertical em pixels ou caracteres.  
nColNuméricoIndica a coordenada horizontal em pixels ou caracteres.  
nWidthNuméricoIndica a largura em pixels do objeto.  
nHeightNuméricoIndica a altura em pixels do objeto.  
cPageCaracterIndica a URL (Uniform Resource Locator) da página de internet.  
oWndObjetoIndica a janela ou controle visual onde o objeto será criado.  

 

Retorno
oObjeto
    ()
  • Retorna o objeto criado.
Observações
 
Exemplos
oTIBrowser:= TIBrowser():New(0,0,260,184,'http://www.totvs.com.br',oDlg )
Métodos
GoHome

GoHome

Direciona para a página (URL - Uniform Resource Locator) configurada na construção do objeto.

Sintaxe

TIBrowser(): GoHome ( ) -->

Observações
 
Exemplos
TButton():New( 172, 052, "GoHome", oDlg,; {|| oTIBrowser:GoHome() },40
,010,,,.F.,.T.,.F.,,.F.,,,.F. )
Navigate

Navigate

Direciona para uma nova página Web.

Sintaxe
TIBrowser


        TButton():
Navigate ( < cUrl> ) -->
Parâmetros

 

NomeTipoDescriçãoObrigatórioReferência
cUrlCaracterIndica a URL (Uniform Resource Locator) da página Web.X 

 

Observações
 
Exemplos
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. )
Print

Print

Abre uma janela para impressão da página.

Sintaxe

TIBrowser(): Print ( ) -->

Observações
 
Exemplos


        TButton():New(
172
nTopBtn,
102
nLeft+=28, "
Print
Stop", oDlg,;
            {||
oTIBrowser
oMedia:
Print
stop() },
40
;
            28,010,,,.F.,.T.,.F.,,.F.,,,.F. )
Observações

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®.

Exemplos
#include "TOTVS.CH"User Function TIBrowser() DEFINE DIALOG oDlg TITLE "Exemplo TIBrowser" FROM 180,180 TO 550,700 PIXEL oTIBrowser := TIBrowser():New(0,0,260,170,'http://www.totvs.com.br',oDlg ) 


        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:nPlayCount
oTIBrowser: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. )


    ACTIVATE
DIALOG
MSDIALOG oDlg CENTERED
Return
Preview
Exemplo da classe TIBrowser
Image Removed


RETURN

Resultado do Exemplo

Image Added

Abrangência

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

...