رفتن به مطلب
  • 0

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


torab

سوال

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

کدهام:
 


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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

ارسال‌های توصیه شده

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

 

سورسو میذارم لطفا درستش کنید:

 

 

zip.gif  move (1).zip   1.56MB   0 تعداد دریافت ها

لینک ارسال
به اشتراک گذاری در سایت های دیگر

صبور باشید فعلا وقتم ازاد نیست.

حالا تا وقتی باهاش کار کنید شاید به نتیجه برسید.

دوست عزیز آموزش نمیدی ؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

امکانات:

استفاده از دیتابیس

استفاده از مولتی پنل و تگ

در صورت موجود نبودن دانلود فیلم و پخش

نمایش میزان حجم فایل

نمایش میزان دانلود

لینک ارسال
به اشتراک گذاری در سایت های دیگر

هیچکی نمیخواد جواب بده؟

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

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

یا مارو تحریم کردین؟

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

یا با مشکل دارین؟

یا خودتون مشکل دارین؟

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

یا روزه گرفتین حال ندارین؟

یا اعصاب ندارین؟

یا وقت ندارین؟

یا حالتون خوب نیست؟

یا به کسایی که به سوالاتون جواب داده فقط کمک میکنین؟

یا به رفیقاتون فقط جواب می دین؟

یا پول میگیرین تا جواب بدین؟

یا

.

.

.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

امکانات:

استفاده از دیتابیس

استفاده از مولتی پنل و تگ

در صورت موجود نبودن دانلود فیلم و پخش

نمایش میزان حجم فایل

نمایش میزان دانلود

را من قرار بود ولی خبری نشد؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

دوست عزیز ما سالها کار کردیم و از کسی انتظار نداشتیم کمکون کنه حالا شما اینطوری قشقلق درست کردید

 

اول اینکه این کد شما که ناقص هستش چرا که ماژول دانلود و http رو قرار ندادید

 

 

بنده 2 سال و نیم سر یه پروژه مثل کاری که الان شما استارت زدید کار کردم هفته پیش بازار به خاطر عدم رعایت کپی رایت اجازه انتشار اون رو نداد

حوصله اعتراض رو هم نداشتم دیگه

 

درجریان باش

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

اوه اوه لیست کردی همه چیزو هم در نظر گرفتین  :eynak: 

دوست من اگه دندون روی جیگرتون بزارید بنده اموزشی رو تهیه میکنم اگه امکانش هست صبر کنید :dance: 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

دمت گرم :tashvigh:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

دوست عزیز ما سالها کار کردیم و از کسی انتظار نداشتیم کمکون کنه حالا شما اینطوری قشقلق درست کردید

 

اول اینکه این کد شما که ناقص هستش چرا که ماژول دانلود و http رو قرار ندادید

 

 

بنده 2 سال و نیم سر یه پروژه مثل کاری که الان شما استارت زدید کار کردم هفته پیش بازار به خاطر عدم رعایت کپی رایت اجازه انتشار اون رو نداد

حوصله اعتراض رو هم نداشتم دیگه

 

درجریان باش

 

قشقلق؟مگه داریم مگه میشه؟؟؟؟؟؟؟ :kotak:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

دوست عزیز ما سالها کار کردیم و از کسی انتظار نداشتیم کمکون کنه حالا شما اینطوری قشقلق درست کردید

 

اول اینکه این کد شما که ناقص هستش چرا که ماژول دانلود و http رو قرار ندادید

 

 

بنده 2 سال و نیم سر یه پروژه مثل کاری که الان شما استارت زدید کار کردم هفته پیش بازار به خاطر عدم رعایت کپی رایت اجازه انتشار اون رو نداد

حوصله اعتراض رو هم نداشتم دیگه

 

درجریان باش

شما کسی کمکت نکرده کمک نکن .

مگه داشتی وینوز طراحی میکردی 2 سال و نیم که اونم رد بشه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

اوه اوه لیست کردی همه چیزو هم در نظر گرفتین  :eynak: 

دوست من اگه دندون روی جیگرتون بزارید بنده اموزشی رو تهیه میکنم اگه امکانش هست صبر کنید :dance: 

 

ماهنوز منتظریم؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

اوه اوه لیست کردی همه چیزو هم در نظر گرفتین  :eynak: 

دوست من اگه دندون روی جیگرتون بزارید بنده اموزشی رو تهیه میکنم اگه امکانش هست صبر کنید :dance: 

داداش تا کی میزنی ؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

اوه اوه لیست کردی همه چیزو هم در نظر گرفتین  :eynak: 

دوست من اگه دندون روی جیگرتون بزارید بنده اموزشی رو تهیه میکنم اگه امکانش هست صبر کنید :dance: 

دمت گرم داداش منتظرم :tashvigh:

لینک ارسال
به اشتراک گذاری در سایت های دیگر

صبور باشید فعلا وقتم ازاد نیست.

حالا تا وقتی باهاش کار کنید شاید به نتیجه برسید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

صبور باشید فعلا وقتم ازاد نیست.

حالا تا وقتی باهاش کار کنید شاید به نتیجه برسید.

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...