Histórico da Página

TIBrowser(): 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.

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

Métodos

GoHome

OpenFile

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

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

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

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

oMedia:SetShowBar(.T.)

Print SetVolume

SetVolume

Ajusta a altura do volume de áudio

Print

Abre uma janela para impressão da página

.

TIBrowserTMediaPlayer(): Print SetColume([nVolume] ) -->

oMedia:SetVolume(70)

Nome	Tipo	Descrição	Obrigatório	Referência
nVolume	Numérico	Indica o volume de audio, de 0 a 100	X

#include "TOTVS.CH"
User Function TMedia()
local nLeft := 1 
local nTopBtn := 202
local lShowBar:= .F.
local nVolume := 70
local cFile := "c:/dir/file.mp3"
DEFINE MSDIALOG oDlg TITLE "TMediaPlayer" FROM 0,0 TO 424,404 PIXEL

oMedia := TMediaPlayer():New(1,nLeft,200,200,oDlg,cFile,nVolume,lShowBar)

TButton():New(

172

nTopBtn,

102

nLeft, "

Print

Open", oDlg,;
 {|| oMedia:openFile( FWInputBox("Escolha

{|| oTIBrowser:Print(

o arquivo", "c:/garbage/") ) },

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