MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Player de TV no Media PLayer com Access

    avatar
    cjsilva2013
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

    Player de TV no Media PLayer com Access Empty Player de TV no Media PLayer com Access

    Mensagem  cjsilva2013 15/8/2016, 20:02

    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...
    avatar
    cjsilva2013
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

    Player de TV no Media PLayer com Access Empty Player de TV no Media PLayer com Access

    Mensagem  cjsilva2013 19/8/2016, 21:50

    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
    avatar
    cjsilva2013
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 259
    Registrado : 26/06/2013

    Player de TV no Media PLayer com Access Empty Player de TV no Media PLayer com Access

    Mensagem  cjsilva2013 2/9/2016, 13:50

    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

      Data/hora atual: 13/4/2021, 14:02