Player de TV no Media PLayer com Access

Olá boa tarde a todos.

Sempre agradecido aos companheiros pelo apoio a cada um de nós iniciantes em promagração com VBA... Temos tido um grande apoio dos programadores que fazem parte desse belíssimo grupo. A troca de ideias é muito salutar e nos ajuda a crescer em conhecimento...

Grato pela cooperação, sempre que solicitamos. Felicito a todos pelo profissionalismo de todos...

Tenho a seguinte dúvida:

Baixei um exemplo do companheiro do http://www.usandoaccess.com.br, conforme abaixo o script...

Private Sub Form_Open(Cancel As Integer)
'Definindo o tamanho do quadro 13 x 14cm
Me!wmp.Height = 567 * 13
Me!wmp.Width = 567 * 14
'carregando o vídeo
Call fncCarregaVideo
'Foco no botão 1
Me!bt1.SetFocus
End Sub
---------------------------------------------------------------------------
Private Sub fncCarregaVideo(Optional j As Byte = 0)
On Error Resume Next
Dim origem As String
'definindo o caminho da pasta local dos vídeos
origem = CurrentProject.Path & "\videos\"
Select Case j
Case 0
'-----------------------------------------------------
'carregando vídeo de um arquivo local
'-----------------------------------------------------
'objwmp.URL = origem & "Nome do vídeo com a extensão"

'-----------------------------------------------------
'você pode abrir direto no player, se o desejar
'-----------------------------------------------------
'abertura vídeo local
'Me!wmp.openPlayer (origem & "Nome do vídeo com a extensão")
'abertura vídeo web
'Me!wmp.openPlayer ("http://www.usandoaccess.com.br/videoaulas/dica13.wmv")

'----------------------------------------------------------
'Carregando na tela do access um vídeo do site usandoaccess
'----------------------------------------------------------
Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv"

Case 1
'objwmp.URL = origem & "Nome do vídeo com a extensão"
Case 2
'objwmp.URL = origem & "Nome do vídeo com a extensão"
End Select
End Sub

A Estrutura do Object para rodar vídeo no média Player é esse:

object classid="CLSID:6BF52A52-394A-11D3-B153-00C04F79FAA6"
type="application/x-oleobject" width="320" height="240" standby="Carregando componentes do Windows Media Player..." id="MediaPlayer1">
param name="url" value="mms://ip /sua radio ou tv " />
param name="EnableContextMenu" value="0" />
param name="AllowScan" value="0" />
param name="ShowStatusBar" value="1" />
param name="AutoSize" value="0" />
param name="AutoStart" value="1" />
param name="AllowChangeDisplaySize" value="1" />
param name="DisplaySize" value="0" />
param name="ShowControls" value="1" />
param name="ShowPositionControls" value="0" />
param name="TransparentAtStart" value="-1" />
embed style="width:100%;" src="mms://ip/sua radio ou tv"
width="32%" height="245"
autostart="1" type="application/x-mplayer2"
pluginspage = "http://www.microsoft.com/Windows/MediaPlayer/"
showcontrols="1"
showpositioncontrols="0"
showstatusbar="1"
enablecontextmenu="0"
autosize="0"
animationatstart="1"
transparentatstart="1">


MInha dúvida é o seguinte, Gostaria de ao clicar no botão, abri-se um canal de TV no Media Player no Form do Access.
Por exemplo: param name="url" value="mms://ip /sua radio ou tv "

É possível? Alguém tem um exemplo que possa nos enviar para estudar?

Desde já agradeço mais uma vez a gentileza...

Deus os abençoe ricamente...

Olá, boa tarde senhores,

Por favor alguém me mostre o caminho das pedras que desenrolo o resto...

Tenho o seguinte link do Media Player:

mms://drix.senado.gov.br/tv3

No VB do Access, Na Case 0, tem o seguinte link. Que quando estartado, abre o vídeo...

Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv"

Explicando:
1) o nome "wmp" é o nome dado ao Media Player no Forme
2) A URL, quando clicado no botão abre a "Video Aula" no Media Player no Form

Gostaria de que ao invés do http://. Ao clicar abri-se mms://drix.senado.gov.br/tv3...

Isso já é meio caminho andado para concluir o pequeno projeto que comecei. Nos estudos...

Desde já agradeço a atenção.

Com apreço,

Só para ficar claro aos companheiros. Esse aplicativo que estou desenvolvendo, é para estudo... Não é comercial...

Jefferson D'Assis

Olá bom dia...

Como não obtive resposta, busquei na internet e com amigos, programadores...

Na própria internet me deparei com várias dicas e situações... Estudei e adaptei a minha necessidade e projeto...

Como apanhei muito, para descobrir, poderia não ensinar o que aprendi... Mas ao longo do tempo, aprendi que o bom profissional é aquele que forma outros profissionais. Entre outras áreas, já formei alguns e hoje vejo eles trabalhando e produzindo. "Essa é a coroa do profissional"

Deixo abaixo o caminho das pedras para quem interessar desenvolver...

PROJETO DESENVOLVIDO EM ACCESS 2013...

1) Crie um novo arquivo TV ou Estudo.accdb
2) Estruture o(s) forme(s) conforme projetado
3) Crie um Form, dê um nome e salve. Após, abra o Controles ActiveX e
selecione Media Player e dê o nome de "wmp"

4) Você pode usar o o Controle do Navegador da WEB

5) Em DESIGNER, Clique em Controle do Navegador da Web. Dê o nome: NavegadordaWEB1

OBS:
Dentro da Case:
Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv" 'abertura video web

Altere para:
Me!NavegadordaWEB1.Navigate ("http://www.tvonlinegratis.tv/canais/band4.php")

Abrirá, vídeos direto da Internet ou TV's...


Agora abra o VB e insira ou digite:

Private Sub fncCarregaVideo(Optional j As Byte = 0)
'On Error Resume Next
Dim origem As String
'vídeos armazenados na pasta Videos no mesmo local do BD
origem = CurrentProject.Path & "\videos\"
Select Case j
   Case 0
       '-----------------------------------------------------
       'carregando vídeo de um arquivo local
       '-----------------------------------------------------
       'objwmp.URL = origem & "NomeDoVideo com a extensão"
       
       '-----------------------------------------------------
       'você pode abrir direto no player se desejar
       '-----------------------------------------------------
       'Me!wmp.openPlayer (origem & "NomeDoVideo com a extensão") 'abertura video local
       'Me!wmp.openPlayer ("http://www.usandoaccess.com.br/videoaulas/dica13.wmv") 'abertura video web
       'Me!ctlVideo.URL = currentProject.Path & "\Videos\video1.wmv"
       'Me!NavegadordaWEB1.Navigate ("http://www.tvonlinegratis.tv/canais/band4.php")
       
       '----------------------------------------------------------
       'Carregando na tela do access um vídeo do site usandoaccess
       '----------------------------------------------------------
       Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv" 'abertura video web
       
   Case 1
       Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv" 'abertura video web
   Case 2
       Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv" 'abertura video web
   Case 3
       Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv" 'abertura video web
   Case 4
       Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv" 'abertura video web
   Case 5
       Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv" 'abertura video web
   Case 6
       Me!wmp.URL = "http://www.usandoaccess.com.br/videoaulas/dica13.wmv" 'abertura video web

End Select
End Sub

No Clique de cada botão

Private Sub cmdAtalaia_Click()
On Error Resume Next
PlaySound fLocalBd & "\JefTV\Sons\click.wav", 1, 1
Call fncCarregaVideo(0)
End Sub

Private Sub cmdMTV_Click()
On Error Resume Next
PlaySound fLocalBd & "\JefTV\Sons\click.wav", 1, 1
Call fncCarregaVideo(1)
End Sub

No Ao Abrir do Form

Private Sub Form_Open(Cancel As Integer)
Me!wmp.Height = 600 * 13
Me!wmp.Width = 831 * 14
Call fncCarregaVideo
Me!cmdSenado.SetFocus 'Setar o foco no primeiro botão
End Sub

Caso queira que apareça sem o fundo do access:

Crie um Módulo chamado Api_Ventana - Para esconder o access, deixando só o Form visivel.

Não esqueça de em Arquivo> Opções> Banco de Dados
Dá um nome ao aplicativo, setar o caminho do Ícone do Sistema e em Formulário de exibição escolher o Form que abrirá primeiro...

Crie um Módulo para o Api_Ventana - continue...

Option Explicit
'Autor de la función base: Indeterminado
'Declaraciones
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwflags As Long) As Long

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function AccessTransparente(Nivel As Integer)
'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
'Objetivo: Ajustar el nivel de transparencia de la ventana principal
' de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long
If Nivel < 0 Or Nivel > 250 Then Exit Function
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
End Function

Coloque dentro do Ao Abrir do Form
Call AccessTransparente(0)

No Evento Ao Carregar do Form
Private Sub Form_Load()
Call AccessTransparente(0) 'referente ao Api_ventana
Call GetScreenResolution ' Referente ao Módulo de Resolução do Vídeo
Me.NavegadordaWeb2.Object.Silent = True 'Elimina os erros do navegador
Me.NavegadordaWeb2.Object.Visible = True 'Object sempre visível
End Sub

Caso queira alterar o Mouse ao Clicar nos Botões

Crie o Módulo:

Option Explicit
'Constantes para identificar os diversos tipos de ponteiro do mouse
Public Const IDC_APPSTARTING = 32650&
Public Const IDC_HAND = 32649&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&
Declare Function LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
(ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Declare Function SetCursor Lib "user32" _
(ByVal hCursor As Long) As Long
Function MouseCursor(CursorType As Long)
Dim lngRet As Long
lngRet = LoadCursorBynum(0&, CursorType)
lngRet = SetCursor(lngRet)
End Function

No Ao Mover o Mouse do Botão:

Private Sub cmdSenado_Click()
On Error Resume Next
PlaySound fLocalBd & "\JefTV\Sons\click.wav", 1, 1
Call fncCarregaVideo(0)
End Sub

Caso queira colocar Som nos Botões:

Crie um Módulo com o nome mod_Som

Option Explicit

'Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uflags As Long) As Long
Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwflags As Long) As Long

No Ao Clicar dos botões coloque:

On Error Resume Next
PlaySound fLocalBd & "\JefTV\Sons\click.wav", 1, 1

Módulo Resolução

Api-Ventana

Option Explicit
'Autor de la función base: Indeterminado
'Declaraciones
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwflags As Long) As Long

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

Function AccessTransparente(Nivel As Integer)
'Adaptación: Byron Contreras, febrero 08, byronlcl@gmail.com
'Objetivo: Ajustar el nivel de transparencia de la ventana principal
' de access. El nivel de transparencia debe estar entre 0 a 250
'.............................................................................
Dim lngHwnd As Long
If Nivel < 0 Or Nivel > 250 Then Exit Function
lngHwnd = Application.hWndAccessApp
SetWindowLong lngHwnd, GWL_EXSTYLE, GetWindowLong(lngHwnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes lngHwnd, 0, Nivel, LWA_ALPHA
End Function

Ta aí o caminho das pedras... Boa sorte pra quem quiser desenvolver um Sistema de vídeo ou TV no Access

Abraço a todos e que o Senhor lhe dê graça e inteligência...

JefSoftSC - Automação Comunicativa