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

ترکیب 2 سورس دانلود و کش کردن


علی علایی

سوال

سلام ببخشید شاید سوالم کمی مبتدیانه باشه 

من این سورسو دارم(largdownload) میخام با مثل سورس آقا احسان قابلیت کش کردن داشته باشه

سورس دانلود mp3  سورس آقا احسان  (پسورد دومی مثل همیشه  basic4android.org)

ولی نمیدونم چه کارکنم 

اگر عنوان تاپیک درست نیست اصلاح کنید 

با تشکر 

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

6 پاسخ به این سوال تاکنون داده شده است

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

سلام ببخشید شاید سوالم کمی مبتدیانه باشه 

من این سورسو دارم(largdownload) میخام با مثل سورس آقا احسان قابلیت کش کردن داشته باشه

سورس دانلود mp3  سورس آقا احسان  (پسورد دومی مثل همیشه  basic4android.org)

ولی نمیدونم چه کارکنم 

اگر عنوان تاپیک درست نیست اصلاح کنید 

با تشکر 

آقا کسی نبود ؟!!

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

خطا نمیده 

این تیکه کد سورس آقا احسان هست که یه mp3 رودانلود و کش میکنه 

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
Dim hj As HttpJob
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.
    Private Button1 As Button
    Dim link,name,dier As String
    Dim no As Notification
    Dim sound As MediaPlayer
	
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("1")
File.MakeDir(File.DirRootExternal, "MusicB4A")
End Sub

Sub Activity_Resume

End Sub
Sub JobDone(Job As HttpJob)                             
If Job.Success = True Then
Select Case Job.JobName
  Case "job1"
  Dim o As OutputStream
  o = File.OpenOutput(dier, name, False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
    Case "job2"
    Dim o As OutputStream
  o = File.OpenOutput(dier, name, False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
    ToastMessageShow("فایل دانلود و ذخیره شد",True)
    sound.Initialize2("")
sound.Load(File.DirRootExternal & "/MusicB4A", "MigeDosamNadare128.ogg")
    sound.Looping=False
    sound.Play
    Case "job3"
    Dim o As OutputStream
  o = File.OpenOutput(dier, name, False)
    File.Copy2(Job.GetInputStream, o)
    o.Close
    Job.Release
    no.Cancel(1)
    ToastMessageShow("فایل دانلود و ذخیره شد",True)
    sound.Initialize2("")
sound.Load(File.DirRootExternal & "/MusicB4A", "MigeDosamNadare128.ogg")
    sound.Looping=False
        sound.Play
        Button1.Text="پخش شدن"

 End Select
 Else
ToastMessageShow(hj.ErrorMessage,True)
End If
ProgressDialogHide
End Sub
Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Button1_Click
 If File.Exists(File.DirRootExternal & "/MusicB4A", "MigeDosamNadare128.ogg") = False Then
   Button1.Text="در حال دانلود شدن"
name="MigeDosamNadare128.ogg"
dier=File.DirRootExternal& "/MusicB4A"
link="http://dl.pop-music.ir/music/1394/Shahrivar/Majid%20Akhshabi%20-%20Akharin%20Ghatreye%20Ab%20%28128%29.mp3"
hj.Initialize("job3",Me)
hj.Download(link)
no.Initialize
no.Icon="icon"
no.Light=False
no.Vibrate = False
no.sound = False
no.AutoCancel=True
no.OnGoingEvent=True
no.SetInfo("در حال دانلود",name,Null)
no.Notify(1)
ProgressDialogShow("در حال دانلود فایل...صبر کنید")
ToastMessageShow("لطفا منتظر بمانید,",  True)
    Else
    ToastMessageShow("فایل موجود است",  True)
	
	sound.Initialize2("")
sound.Load(File.DirRootExternal & "/MusicB4A", "MigeDosamNadare128.ogg")
    sound.Looping=False
        sound.Play
        Button1.Text="پخش شدن"

    End If

End Sub

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

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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