دانلود و پخش فیلم از دیتابیس

[torab 18]

سلام ، من یه سری لینک فیلم تو دیتابیسم دارم که میخوام تو مولتی پنل داخل یه دکمه فراخوانیشون کنم که اول دانلودش کنه وذخیرش کنه وبعد پخشش کنه واگه دوباره روش کلید شد دیگه دانلود نکنه وفقط پخش کنه، میتونی با کد توضیح بدی؟

کدهام:
 

Sub Process_Globals
Dim t As String
Dim t1 As AutoCompleteEditText
Dim nima As String
Dim sql2 As SQL
 Dim timer1 As Timer
End Sub

Sub Globals
Dim aa() As String
Dim p111 As Panel
  Dim bitmap1 As Bitmap
Private Panel1 As Panel
Private ScrollView2 As ScrollView
Dim Stopint As Int=5%y
Private img1 As ImageView
Private img2 As ImageView
Private Lbb1 As Label
Private Lbb2 As Label
    Private bbb3 As Button
Dim job1 As HttpJob
Dim htt As HttpJob
Private Img11 As ImageView
Private bbb4 As Button
End Sub

(Sub Activity_Create(FirstTime As Boolean
("Activity.LoadLayout("laye
 (job1.Initialize("job1",Me
("در حال دانلود") ProgressDialogShow
(  " job1.Download("http://torab.vvs.ir/dr/b.txt
("File.Copy(File.DirAssets,"sql1.db",File.DirInternal,"sql1.db
(sql2.Initialize(File.DirInternal,"sql1.db",False
("cur1=sql2.ExecQuery("SELECT * From tbltest WHERE id BETWEEN 1 AND 30
For i=0 To cur1.RowCount-1
cur1.Position=i
Dim ps As Panel
("ps.Initialize("ps
(ScrollView2.Panel.AddView(ps,0,Stopint,100%x,100%Y
Stopint=Stopint+150dip
("ps.LoadLayout("nn
Panel1.Tag=i                          
If (i Mod 2)=1 Then
Panel1.Color=Colors.Red
Else
Panel1.Color=Colors.Blue
End If
img2.Tag=i
("Lbb1.text="Name: "&cur1.GetString("id")&"  "&cur1.GetString("name
("Lbb2.text="Text: "&cur1.GetString("q64
("bbb3.Tag=cur1.GetString("q64
("bbb4.tag = cur1.GetString("Logo
ScrollView2.Panel.Height=Stopint
Next
End Sub


Sub bbb3_Click 
Dim z1 As Button
   z1 = Sender
((StartActivity( p.OpenBrowser(z1.Tag 
("در حال دانلود کردن")ProgressDialogShow
End Sub
Sub bbb4_Click
Dim izy As Button
izy = Sender
(htt.Initialize("htt",Me
(htt.Download(izy.Tag
("در حال دانلود")ProgressDialogShow

End Sub



Sub Activity_Resume

End Sub

(Sub Activity_Pause (UserClosed As Boolean

End Sub


(Sub JobDone (Job As HttpJob
ProgressDialogHide
If Job.Success=True Then
 If job1.Success=True Then
(aa=Regex.Split("#",job1.GetString
    (Log(aa.Length
    Dim top As Int
    top = 5%y
    For i = 0 To aa.Length-1
   (" ps.Initialize("ps
   ( ScrollView2.Panel.AddView(ps,0,top,100%x,100%y
top = top +150dip
   (" ps.LoadLayout("laye
    Dim links As Map
    links.Initialize
   (( links.Put(Img11,aa(i
   ( CallSubDelayed2(ImageDownloader, "Download", links
    ("CallSub(ImageDownloader, "ActivityIsPaused
 ScrollView2.Panel.Height= top
  Next


 (False,"دانلود انجام شد")ToastMessageShow
End If
 If htt.Success=True Then
(False,"دانلود انجام شد")ToastMessageShow
 End If 
Else  
(True,"اینترنت گوشی شما قطع میباشد!")ToastMessageShow
End If
End Sub

 

کی بلده با کد توضیح بده؟؟؟

[مهران محمودی 778]

با عرض سلام، خوش اومدید به انجمن ما.

1- در انتخاب عنوان موضوع دقت کنید.

2- کدها رو در تگ کد قرار دهید.

___________

باید تمامی کدهای شما رو نگاه و تست کنیم؟؟  فکر میکنم کمی غیرمنطقی باشه. مشخص نکردید که دقیقا مشکلتون در کدوم قسمت هستش تا بهتر راهنماییتون کنیم.

[alireza_066 46]

سلام دوست عزیز

شما گفتی بیا از دتابیس لینکو بگیر و دانلود کن نگفتی با چه اسمی که !!!

شما باید به تگ باتون دوتا فیلد معرفی کنید و بعد در یکی لینک هارو بدون قرار دادن تو کوتیشین بذارید و تو یکی اسم و پسوند فیلم هاتونو بذارید ( این یکی بین " " )

خوب حالا تو رویداد کلیک از اسپلیت کردن استفاده کنید

یک استرینگ تعریف کنید و بگید مقدار پارت دو رو بریزه تو همون استرینگ و موقع سیو کردن ویدو در jobdone به جای اسم دادن متغییر رو بذارید

اگه مشکلی بود یا متوجه نشدید بگید باکد توضیح بدم

داداش شرمنده من نفهمیدم 

[alireza_066 46]

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

[مجید آرتا 5,874]

سلام

دوست من یا واقعا معنی صبور باشید واستون مبهمه یا دوست دارید هی پشت سر هم بگید جواب بدید جواب بدید.

والا شما تنها مشکل خودتون رو نبینید بقیه هم مشکا دارن خود ماهم مشکلاتی داریم بالاخرخ وقت نمیکنیم.

حالا سعی میکنم امروز براتون اموزشی رو بسازم فقط نگید دیگه چیشد چیشد یکم صبور باشید.

با تشکر

[torab 18]

با عرض سلام، خوش اومدید به انجمن ما.

1- در انتخاب عنوان موضوع دقت کنید.

2- کدها رو در تگ کد قرار دهید.

___________

باید تمامی کدهای شما رو نگاه و تست کنیم؟؟  فکر میکنم کمی غیرمنطقی باشه. مشخص نکردید که دقیقا مشکلتون در کدوم قسمت هستش تا بهتر راهنماییتون کنیم.

من میخوام داخل دکمه زیر فراخوانیشون کنم که اول دانلودش کنه وذخیرش کنه وبعد پخشش کنه واگه دوباره روش کلید شد دیگه دانلود نکنه وفقط پخش کنه؟ من فقط دانلودشو بلدم وذخیره وفراخوانیش که اگه مثلا قبلا دانلود شده بود اگه روش کلیک کردم دیگه دانلود نکنه وفقط پخش کنه؟

Sub buton1_Click
	Dim izy As Button
	izy = Sender
	htt.Initialize("htt",Me)
	htt.Download(izy.Tag)
	 ProgressDialogShow("در حال دانلود")

End Sub

[alireza_066 46]

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

[torab 18]

آقا اگه کدام نامفهومه یه سورسی چیزی بیزحمت بذارین خودم درستش میکنم؟

[shahriar 408]

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

[alireza_066 46]

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

داداش کاربر torab اون کدش بود بلده من کدی ندارم فقط تو دیتابیس یه بخش دارم برا لینک مستقیم ویدیو هام حالا موندم چطور میتونم اونا رو دانلود کنم و اگه تو گوشی بود پخش شه

[shahriar 408]

چون من تابه حال با پخش فیلم از داخل گوشی سروکار نداشتم و کارم گیرش نبوده پخش فیلمو بلد نیستم یا شما تایپیک جدا با این موضوع بزن یا من

[shahriar 408]

من تایپیک جدا زدم حالا منتظر جوابم ..............

[alireza_066 46]

فردا سورس داخل فروشگاه قرار میگیره

تا ساعت چند ؟

[حسن قاسمی نیا 547]

دوتان یه زحمت به خودتون بدید تو گوگل دو کلمه سرچ کنید فلسفه فعالیت در انجمن آنلاین    بار دیگه تکرار بشه فقط تاپیک قفل نمیشه کاربران مرود نظر هم مسدود میشن .