#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#BridgeLogger: True
#AdditionalRes: D:\B4A\JWS2024\res
#AdditionalJar: com.android.support:support-v4
#End Region
Sub Process_Globals
End Sub
Sub Globals
Private ScrollView_slide As ScrollView
Private Panel_slide As Panel
Dim cs As CSBuilder
Private PanelStream As Panel
Dim yt As YouTubePlayerView
Dim Link_Yotube As String
Private ButtonCheck As Button
Private EditTextURL As EditText
Private ButtonSend As Button
Private EditTextID As EditText
Dim yt_Tutor As YouTubePlayerView
Dim Link_Tutor = "qIRYMWLeVC0" As String
Dim Click As Boolean
Private PanelTutorial As Panel
Private Panel3 As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scroll_stream")
ScrollView_slide.Panel.LoadLayout("Stream")
ScrollView_slide.panel.Height = Panel_slide.Height
Activity.Title = cs.Initialize.Color(Colors.White).Append("Yotube Streaming").PopAll
yt.Initialize("yt")
yt_Tutor.Initialize("yt_Tutor")
PanelStream.AddView(yt,0,0,100%x,50%y)
Panel3.AddView(yt_Tutor,0,0,100%x,50%y)
If File.Exists(File.DirInternal, "Link.txt") Then
Link_Yotube = File.ReadString(File.DirInternal, "Link.txt")
EditTextID.Text = Link_Yotube
Else
Link_Yotube = "qIRYMWLeVC0"
End If
End Sub
Sub LoadYoutube(Link As String)
yt.loadVideo(Link, 0)
yt.playVideo
End Sub
Sub LoadYoutube1(Link As String)
yt_Tutor.loadVideo(Link, 0)
yt_Tutor.playVideo
End Sub
Sub yt_ready
Log("Youtube view is ready")
LoadYoutube(Link_Yotube)
End Sub
Sub yt_enterfullscreen
Log("FullScreen")
End Sub
Sub yt_exitfullscreen
Log("ExitFullScreen")
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
yt.release
End Sub
Private Sub ButtonCheck_Click
Log(EditTextURL.Text)
If EditTextURL.Text.Length > 0 Then
Test(EditTextURL.Text)
End If
End Sub
Private Sub EditTextURL_TextChanged (Old As String, New As String)
End Sub
Private Sub ButtonSend_Click
If EditTextID.Text.Length > 0 Then
File.WriteString(File.DirInternal, "Link.txt", EditTextID.Text)
End If
End Sub
Private Sub EditTextID_TextChanged (Old As String, New As String)
If EditTextID.Text.Length > 0 Then
LoadYoutube(EditTextID.Text)
End If
End Sub
Sub Test(URL As String)
Log("URL : " & URL)
Dim m As Map = ExtractURLStruct(URL)
For Each Value As String In Regex.Split("/", m.Get("path"))
If Value.Length = 0 Then Continue
Log("Value: " & Value)
EditTextID.Text = Value
Next
End Sub
Public Sub ExtractURLStruct(URL As String) As Map
Dim Pattern As String = $"^([^:\/?#]+):\/\/([^\/:]+)(?::(\d+))?(\/[^?#]*)?(?:\?([^#]*))?(?:#(.*))?"$
Dim Matcher As Matcher = Regex.Matcher(Pattern, URL)
Dim Result As Map : Result.Initialize
If Matcher.Find Then
Result.Put("url", Matcher.Group(0))
Result.Put("scheme", Matcher.Group(1))
Result.Put("domain", Matcher.Group(2))
Result.Put("port", Matcher.Group(3))
Result.Put("path", Matcher.Group(4))
Result.Put("parameters",Matcher.Group(5))
Result.Put("anchor", Matcher.Group(6))
End If
Return Result
End Sub
Private Sub Button_back_Click
Activity.Finish
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_BACK Then
Activity.Finish
End If
Return False
End Sub
Private Sub LabelIconYoutube_Click
Click = Click <> True
If Click Then
PanelTutorial.Visible = True
LoadYoutube1(Link_Tutor)
Else
yt_Tutor.pauseVideo
PanelTutorial.Visible = False
End If
End Sub
Private Sub LabelTutorial_Click
Click = Click <> True
If Click Then
PanelTutorial.Visible = True
LoadYoutube1(Link_Tutor)
Else
yt_Tutor.pauseVideo
PanelTutorial.Visible = False
End If
End Sub
) :
