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.
SmartClient HTML
6516131351
1651531351
TSrvObject -> TControl -> TMediaPlayer
NewMétodo construtor da classe.TMediaPlayer(): New ( [ nRow], [ nCol], [ nWidth], [ nHeight], [ oWnd], [ cFile], [ nVolume], [ lShowBar] ) --> oObjeto
oObjeto
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
SetShowBarHabilita a exibição da barra de ferramentas do Windows Media Player®.TMediaPlayer(): SetShowBar( <lShow> ) -->
oMedia:SetShowBar(.T.) |
---|
SetMute
SetMuteLiga e desliga a opção silencio (mute).TMediaPlayer(): SetMute( <lMute> ) -->
oMedia:SetMute( .T. ) |
---|
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 |
|
Exemplos
#include "Totvs.ch"
User Function TMediaPlayer()
local nLeft := 1
local nTopBtn := 202
local showBar := .F.
local isMute := .F.
local nVolume := 70
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