مشکل استفاده از سورس آپارات

[Assassin-Wolf 13]

سلام

ببخشید من این سورس رو دیدم و تصمیم گرفتم اون رو تو برنامم استفاده کنم اما یک مشکلی دارم

این سورس برای پخش باید بهش یک لینک بدی اما من میخوام سورس خودش لینک رو از دیتابیس بگیره Db من از id . list . link تشکیل شده . id که هیچی . list رو روی پنل ست کردم و Link رو میخوام به جای قسمت لینک ست بشه

این سورس نمایش از آپارات

http://answercenter.ir/topic/3408-%D9%BE%D8%AE%D8%B4-%D8%A2%D9%86%D9%84%D8%A7%DB%8C%D9%86-%D8%A7%D8%B2-%D8%A2%D9%BE%D8%A7%D8%B1%D8%A7%D8%AA/

و این هم سورس صفحه ای که توش پنل ها هستن

#Region  Activity Attributes 
	#FullScreen: True
	#IncludeTitle: False
#End Region

Sub Process_Globals
	Dim SQL1 As SQL
End Sub

Sub Globals
	Private ScrollView1 As ScrollView
	Private Label1 As Label
	Private Panel1 As Panel
	Dim meghdar As String
	Dim cur1 As Cursor
	Dim Stop As Int = 3%y
	Dim fasl As String
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("SVL_Film")

	Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
	
	If File.Exists(File.DirInternal,"Film.db") = False Then
	File.Copy(File.DirAssets,"Film.db",File.DirInternal,"Film.db")
	End If
	SQL1.Initialize(File.DirInternal,"Film.db",False)
	cur1 = SQL1.ExecQuery("SELECT * FROM tbl")
	
	
	
	
	Panel1.Initialize("")
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	meghdar = cur1.Getint("id")
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop = Stop + 15%y
	Panel1.Tag = i
	p.LoadLayout("Film")
	Label1.Text = cur1.GetString("list")
	ScrollView1.Panel.Height = Stop
	Next
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Panel1_Click
	Dim iz As Panel
	iz = Sender
	fasl=iz.tag
	StartActivity("Matlab_Film")
End Sub

[Assassin-Wolf 13]

کسی نیست کمک کنه؟

[Mohsen27 199]

اگه امکانش هست سورستون رو بفرستید تا ویرایش کنم

[Assassin-Wolf 13]

سورس رو قرار دادم دیگه

[Mohsen27 199]

این کده عزیز شما سورس(پروژه)تون رو قرار بدین من درست کنم

در ضمن تو این کد هایی ک شما گذاشتین اصلا ویدیو لود نمیشه و فقط مولتی پنل لود میشه و کلیک با سندر

[Assassin-Wolf 13]

کسی نمیتونه بدون سورس همین جا راهنمایی کنه؟

[Assassin-Wolf 13]

کسی نیست کمک نه؟

[Nemesis 1,846]

برادر شما در اکتویتی Matlab_Film یه متغیر قرار بده به این صورت

Sub Process_Globals
	Dim lnk As string
End Sub

این کد ها هم درون همین اکتویتی که مولتی پنلت بازه ویرایش کن

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("SVL_Film")

	Dim verticalPosition As String = "bottom" '"top" or "bottom"
    Dim horizontalPosition As String = "center" '"left", "right" or "center"
    Dim r As Reflector 
    Dim args(3) As Object = Array As Object(r.GetActivity, verticalPosition, horizontalPosition)
    Dim types(3) As String = Array As String("android.app.Activity", "java.lang.String", "java.lang.String")    
    r.RunStaticMethod("ir.adad.AdadB4APlugin", "createAdView", args, types)
	
	If File.Exists(File.DirInternal,"Film.db") = False Then
	File.Copy(File.DirAssets,"Film.db",File.DirInternal,"Film.db")
	End If
	SQL1.Initialize(File.DirInternal,"Film.db",False)
	cur1 = SQL1.ExecQuery("SELECT * FROM tbl")
	
	
	
	
	Panel1.Initialize("")
	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	meghdar = cur1.Getint("id")
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,Stop,100%x,100%y)
	Stop = Stop + 15%y
	Panel1.Tag = i
	p.LoadLayout("Film")
	Label1.Text = cur1.GetString("list")
	Label1.tag = cur1.GetString("link")
	ScrollView1.Panel.Height = Stop
	Next
End Sub

Sub Panel1_Click
	Dim iz As Panel
	iz = Sender
	fasl=iz.tag
	Matlab_Film.lnk = Label1.tag
	StartActivity(Matlab_Film)
End Sub

حالا برای خوندن لینک رو به این صورت تغییر بده

Sub Button1_Click
	vw.LoadVideo("http",lnk)
	ToastMessageShow("درحال بارگزاری فیلم",True)
	vw.Play
End Sub

در پناه حق