B4J Code Snippet [FREE] New custom version of Mediaview library version 1.04 now available for download

New custom display version of MediaView and MediaController.

It is compatible with Simple Media Manager (SMM).

Library (b4xlib) attached for use, download in additional B4J libraries

Library: jMediaView.b4xlib
Example: MediaView.zip

'    ***********  MediaViewController ***********

    'Example 1  
    MediaViewController1.SetBackgroundColor = xui.Color_ARGB(190,0,0,0)
    MediaViewController1.SetTextIconColor = xui.Color_White
   
    'Example 2
'    Dim Colors() As Int = Array As Int(xui.Color_Black, xui.Color_White)
'    MediaViewController1.SetBackgroundColorGradient(Colors, "BOTTOM_TOP")
'    MediaViewController1.SetTextIconColor = xui.Color_Black

    MediaViewController1.SetOnMouseOverVideo = True
   
'    ***********  MediaView ***********
   
    MediaView1.SetBackgroundColor = xui.Color_Black
    MediaView1.SetPreserveRatio = False

'    ***********  Visualize ***********

'   Video
    Dim VideoURL As String = "https://test-streams.mux.dev/x36xhzz/x36xhzz.m3u8"

    MediaViewController1.SetMediaView(MediaView1)
    MediaView1.Source = VideoURL
    MediaView1.Play

Regards.

 

[Erel]

Looks great! Have you published the modified library?

 

[LucaMs]

 

[T201016]

I wonder if the view of MediaController disappears after a fixed time?

 

[TILogistic]

I wonder if the view of MediaController disappears after a fixed time?

The control bar remains visible while the mouse is over the video.
More options have been added to this library.

MediaViewController1.SetOnMouseOverVideo = True

 

[T201016]

Great. We are waiting for the published version of the library

 

[TILogistic]

Mediaview for B4J is now available for download. If you have any queries, please post them in this post.

 

[TILogistic]

Looks great! Have you published the modified library?

Mediaview for B4J is now available for download.

 

[TILogistic]

Video adjustment option:

MediaView1.SetPreserveRatio = False

You can resize the window or full screen.

Normal:

adjustment:

you can check other available options.

 

[T201016]

Mediaview for B4J is now available for download. If you have any queries, please post them in this post.

Hi, @TILogistic
I have a question about changing the titlebar. Is it possible to be able to change the color of the titlebar? I am referring to my post and the query it contains.
See:

 

[TILogistic]

I checked your post, and @stevel05 already provided the solution.

As for my solution, I created an application bar that I use in B4X (cross-platform) and that I can configure with the icon, title, subtitle, action icons, menu items, etc.

As you can see, I don't use the title bars, but a custom one.

 

[ganezha]

New custom display version of MediaView and MediaController.

It is compatible with Simple Media Manager (SMM).

View attachment 159400

View attachment 159401

Library (b4xlib) attached for use, download in additional B4J libraries

Library: jMediaView.b4xlib
Example: MediaView.zip

View attachment 159402

'    ***********  MediaViewController ***********

    'Example 1 
    MediaViewController1.SetBackgroundColor = xui.Color_ARGB(190,0,0,0)
    MediaViewController1.SetTextIconColor = xui.Color_White
  
    'Example 2
'    Dim Colors() As Int = Array As Int(xui.Color_Black, xui.Color_White)
'    MediaViewController1.SetBackgroundColorGradient(Colors, "BOTTOM_TOP")
'    MediaViewController1.SetTextIconColor = xui.Color_Black

    MediaViewController1.SetOnMouseOverVideo = True
  
'    ***********  MediaView ***********
  
    MediaView1.SetBackgroundColor = xui.Color_Black
    MediaView1.SetPreserveRatio = False

'    ***********  Visualize ***********

'   Video
    Dim VideoURL As String = "https://test-streams.mux.dev/x36xhzz/x36xhzz.m3u8"

    MediaViewController1.SetMediaView(MediaView1)
    MediaView1.Source = VideoURL
    MediaView1.Play

Regards.

Modify button ratio for full screen mode

 

[TILogistic]

Modify button ratio for full screen mode

I don't understand your solution

Private Sub lblRatio_MouseClicked (EventData As MouseEvent)
    'mMediaView.SetPreserveRatio = Not(mMediaView.GetPreserveRatio)
        CallSub2(Main, "setFullscreen", True)
    'EventData.Consume
End Sub

I should call or add another full-screen icon.

 

[TILogistic]

or call

SetFullScreen(True, "Press CTRL+E to exit full screen", "E")

Public Sub SetFullScreen (Status As Boolean, Message As String, KeyControl As String)
    FormUtils.SetFullScreen(B4XPages.GetNativeParent(Me),Status)
    FormUtils.SetFullScreenExitHint(B4XPages.GetNativeParent(Me), Message)
    FormUtils.SetFullScreenExitKeyCombination(B4XPages.GetNativeParent(Me),FUtils_KeyCombinations.GetKeyCombination(Array As String(FUtils_KeyCombinations.KC_CONTROL,KeyControl)))
End Sub

use:

FormUtils

Here are some formutilities that I find useful pretty often. So I put them all in one static class And I thought I'd share it. The most important one, I just found (GetIcons in the lib) allows you to add an icon to display it in the taskbar when the form is minimized (Iconified), I've been...

www.b4x.com

NOTE:
This shows the full screen of the form where only this media player is located.

test:
add:

Private Sub B4XPage_Created (Root1 As B4XView)
    B4XPages.SetTitle(Me, "MediaView Example")
    Root = Root1
    Root.LoadLayout("MainPage")

    SetFullScreen(True, "Press CTRL+E to exit full screen", "E")
   
'    ***********  MediaViewController ***********

function:

Public Sub SetFullScreen (Status As Boolean, Message As String, KeyControl As String)
    FormUtils.SetFullScreen(B4XPages.GetNativeParent(Me),Status)
    FormUtils.SetFullScreenExitHint(B4XPages.GetNativeParent(Me), Message)
    FormUtils.SetFullScreenExitKeyCombination(B4XPages.GetNativeParent(Me),FUtils_KeyCombinations.GetKeyCombination(Array As String(FUtils_KeyCombinations.KC_CONTROL,KeyControl)))
End Sub

 

[ganezha]

I don't understand your solution

Private Sub lblRatio_MouseClicked (EventData As MouseEvent)
    'mMediaView.SetPreserveRatio = Not(mMediaView.GetPreserveRatio)
        CallSub2(Main, "setFullscreen", True)
    'EventData.Consume
End Sub

I should call or add another full-screen icon.

This is sample code for FullScreen

 

[TILogistic]

This is sample code for FullScreen

As I mentioned before, your solution only creates a full-screen view of the form. As I explained earlier, you're using the icon that fills the video in the container (SetPreserveRatio), which is false by default.

What would happen if you had two or more JMediaView objects in a form?

For a better solution, add an icon with an event to the class that creates a full-screen view of the form containing only one JMediaView, or simulate full-screen mode, as ExoPlayer does.

As I mentioned before, your solution only creates a full-screen view of the form. As I explained earlier, you're using the icon that fills the video in the container (SetPreserveRatio), which is false by default.

What would happen if you had two or more JMediaView objects in a form?

For a better solution, add an icon with an event to the class that creates a full-screen view of the form containing only one JMediaView, or simulate full-screen mode, as ExoPlayer does.

Also, your solution creates a full-screen view of the main form (B4XMainPage). What would happen if I added it to a new form?

you solution: form main:

Private Sub setFullscreen(value As Boolean)
    Dim jmf As JavaObject = MainForm
    Dim stage As JavaObject = jmf.GetField("stage")

    stage.RunMethod("setFullScreen", Array As Object(value))
End Sub

 

[TILogistic]

!! And please start a new thread with your solutions or questions. !!

I'll be posting more UI and video improvements soon.