Spanish ExoPlayer no se visiona

SoftCep

Member
Licensed User
Sub Process_Globals

Private player1 As SimpleExoPlayer

End Sub



Sub Globals

Private SimpleExoPlayerView1 As SimpleExoPlayerView

End Sub



Sub Activity_Create(FirstTime As Boolean)



player1.Prepare(player1.CreateFileSource(File.DirAssets, "prueba.mp4"))



Activity.LoadLayout("1")



SimpleExoPlayerView1.Player = player1



End Sub



Sub Player_Ready

Log("Ready")

End Sub



Sub Player_Error (Message As String)

Log("Error: " & Message)

End Sub



Sub Player_Complete

Log("complete")

End Sub



Sub Activity_Resume



End Sub

Por favor alguien me podría decir porqué este código no visiona el video, me muestra el tamaño, pero de doy a Play y no muestra nada.
Ayudadme por favor.
 

SoftCep

Member
Licensed User
1585155670221.png


Por favor alguien me podría decir porqué este código no visiona el video, me muestra el tamaño, pero de doy a Play y no muestra nada.
Ayudadme por favor.
 

SoftCep

Member
Licensed User
Gracias drgottjr pero después de incluirle la iniciación sigue igual.

1585165581417.png


Y es que en el emulador me muestra el tamaño exacto del video pero, cuando le doy a play, nada.
 

josejad

Expert
Licensed User
Longtime User
Pega tu código como texto por favor. Pon [Code ]. [/Code ] (sin espacios) para que se vea más claro.

Has probado en un dispositivo real en vez del emulador?
 

SoftCep

Member
Licensed User
Pega tu código como texto por favor. Pon [Code ]. [/Code ] (sin espacios) para que se vea más claro.

Has probado en un dispositivo real en vez del emulador?
Hola José J.: Muchas gracias por contestar a mi auxilio

Es que estoy empezando en este entorno. La verdad es que no lo he probado en el móvil directamente.

Sub Process_Globals
Private player1 As SimpleExoPlayer
End Sub

Sub Globals
Private SimpleExoPlayerView1 As SimpleExoPlayerView
End Sub

Sub Activity_Create(FirstTime As Boolean)

player1.Initialize("player")

player1.Prepare(player1.CreateFileSource(File.DirAssets, "prueba.mp4"))

Activity.LoadLayout("1")

SimpleExoPlayerView1.Player = player1

End Sub

Sub Player_Ready
Log("Ready")
End Sub

Sub Player_Error (Message As String)
Log("Error: " & Message)
End Sub

Sub Player_Complete
Log("complete")
End Sub

Sub Activity_Resume

End Sub
 

SoftCep

Member
Licensed User
Pega tu código como texto por favor. Pon [Code ]. [/Code ] (sin espacios) para que se vea más claro.

Has probado en un dispositivo real en vez del emulador?
Perdona que no te había puesto Code /Code

<code>

Sub Process_Globals

Private player1 As SimpleExoPlayer

End Sub



Sub Globals

Private SimpleExoPlayerView1 As SimpleExoPlayerView

End Sub



Sub Activity_Create(FirstTime As Boolean)



player1.Initialize("player")



player1.Prepare(player1.CreateFileSource(File.DirAssets, "prueba.mp4"))



Activity.LoadLayout("1")



SimpleExoPlayerView1.Player = player1



End Sub



Sub Player_Ready

Log("Ready")

End Sub



Sub Player_Error (Message As String)

Log("Error: " & Message)

End Sub



Sub Player_Complete

Log("complete")

End Sub



Sub Activity_Resume



End Sub

</code
>
 

SoftCep

Member
Licensed User
Perdona que no te había puesto Code /Code

<code>

Sub Process_Globals

Private player1 As SimpleExoPlayer

End Sub



Sub Globals

Private SimpleExoPlayerView1 As SimpleExoPlayerView

End Sub



Sub Activity_Create(FirstTime As Boolean)



player1.Initialize("player")



player1.Prepare(player1.CreateFileSource(File.DirAssets, "prueba.mp4"))



Activity.LoadLayout("1")



SimpleExoPlayerView1.Player = player1



End Sub



Sub Player_Ready

Log("Ready")

End Sub



Sub Player_Error (Message As String)

Log("Error: " & Message)

End Sub



Sub Player_Complete

Log("complete")

End Sub



Sub Activity_Resume



End Sub

</code
>
ExoPlayer:
Sub Process_Globals
    Private player1 As SimpleExoPlayer
End Sub

Sub Globals
    Private SimpleExoPlayerView1 As SimpleExoPlayerView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    
player1.Initialize("player")

player1.Prepare(player1.CreateFileSource(File.DirAssets, "prueba.mp4"))

    Activity.LoadLayout("1")
    
    SimpleExoPlayerView1.Player = player1

End Sub

Sub Player_Ready
    Log("Ready")
End Sub

Sub Player_Error (Message As String)
    Log("Error: " & Message)
End Sub

Sub Player_Complete
    Log("complete")
End Sub

Sub Activity_Resume

End Sub
 

josejad

Expert
Licensed User
Longtime User
Jeje, diste con la tecla.
No puedo probarlo ahora mismo, pero por favor, prueba con B4A-bridge o con cable USB para ver si es problema del emulador
 

SoftCep

Member
Licensed User
Jeje, diste con la tecla.
No puedo probarlo ahora mismo, pero por favor, prueba con B4A-bridge o con cable USB para ver si es problema del emulador
José J. Muchisimas gracias por todo. Lo he probado en el móvil y ha ido perfectamente. Muchas gracias. Eternamente agradecido. Juan Carlos
 
Top