سورس پخش ویدئو به صورت آفلاین و آنلاین در بیسیک فور اندروید

[MR.B4A 270]

بااستفاده از این سورس، میتوانید به راحتی یک ویدئو را با استفاده از لینک، به صورت آنلاین پخش کنید.
همچنین میتوانید با انتخاب ویدئو از حافظه گوشی، آن را به صورت آفلاین در برنامه پخش کنید.

سورس:

Sub Process_Globals
	Private cc As ContentChooser
End Sub

Sub Globals
	Private videov As VideoView
	
	Private ptn_play_pause As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout")
	
	If cc.IsInitialized=False Then
		cc.Initialize("cc")
	End If
	
	If videov.IsInitialized=False Then
		videov.Initialize("v")
	End If
	
	Activity.AddView(videov,0,0,100%x,100%y)
	
	videov.MediaControllerEnabled=True
	
	If File.Exists(File.DirInternal,"1.mp4")=False Then
		File.Copy(File.DirAssets,"1.mp4",File.DirInternal,"1.mp4")
	End If
	
	videov.LoadVideo(File.DirInternal,"1.mp4")
End Sub

Sub cc_Result (Success As Boolean, Dir As String, FileName As String)
	If Success=True Then
		videov.LoadVideo(Dir,FileName)
		videov.Play
	Else
		Msgbox("اجرای ویدئو با مشکل مواجه شده است","")
	End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Private Sub ptn_play_pause_Click
	If videov.IsPlaying=False Then
		
		videov.Play
		
		ptn_play_pause.Typeface=Typeface.MATERIALICONS
		ptn_play_pause.Text=Chr(0xE034)
	Else
		videov.Pause
		
		ptn_play_pause.Typeface=Typeface.MATERIALICONS
		ptn_play_pause.Text=Chr(0xE037)
	End If
End Sub

Private Sub v_Complete
	Msgbox("پخش ویدئو تمام شد","")
	
	videov.Play
End Sub

Private Sub btn_select_vid_Click
	cc.Show("video/*","ویدئوی مورد نظر را انتخاب کنید")
End Sub

Private Sub btn_play_web_Click
	videov.LoadVideo("http://media.newspring.cc/video/2013/","021013_DontWasteYourLife_01_iPod.mp4")
	videov.Play
End Sub

تهیه و تنظیم
مرتضی صباغی  
MR.B4A

لینک کانال ایتا: https://eitaa.com/basic4androidlan

لینک کانال بله: https://web.bale.ai/chat?uid=5896703188

ویرایش شده1۱۱:۴۲ بعدازظهر