با این کد یک موزیک پلیر آنلاین ساخته ام که موزیک را دانلود و در پوشه ای در گوشی کاربر ذخیره میکند میخواهم فایل ذخیره شده بدلیل امنیت قابل مشاهده نباشد و یا ذخیره در حافظه گوشی نباشد و کاربر فقط بتونه موزیک را از خود برنامه گوش دهد.
Sub Process_Globals
Dim hj As HttpJob
End Sub
Sub Globals
Private Button1 As Button
Dim link,name,dier As String
Dim no As Notification
Dim sound As MediaPlayer
Private Button2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
File.MakeDir(File.DirRootExternal, "MusicB4A")
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", "\Mazyar Fallahi - Nazanin [128].mp3")
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", "\Mazyar Fallahi - Nazanin [128].mp3")
sound.Looping=False
sound.Play
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", "\Mazyar Fallahi - Nazanin [128].mp3") = False Then
Button1.Text="در حال دانلود شدن"
name="\Mazyar Fallahi - Nazanin [128].mp3"
dier=File.DirRootExternal& "/MusicB4A"
link="http://dl.nex1music.ir/1398/01/26/Mazyar%20Fallahi%20-%20Nazanin%20%5B128%5D.mp3?time=1556793024&filename=/1398/01/26/Mazyar%20Fallahi%20-%20Nazanin%20[128].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)
سوال
sadeghkiyani 98
سلام
با این کد یک موزیک پلیر آنلاین ساخته ام که موزیک را دانلود و در پوشه ای در گوشی کاربر ذخیره میکند میخواهم فایل ذخیره شده بدلیل امنیت قابل مشاهده نباشد و یا ذخیره در حافظه گوشی نباشد و کاربر فقط بتونه موزیک را از خود برنامه گوش دهد.
Sub Process_Globals
Dim hj As HttpJob
End Sub
Sub Globals
Private Button1 As Button
Dim link,name,dier As String
Dim no As Notification
Dim sound As MediaPlayer
Private Button2 As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
File.MakeDir(File.DirRootExternal, "MusicB4A")
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", "\Mazyar Fallahi - Nazanin [128].mp3")
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", "\Mazyar Fallahi - Nazanin [128].mp3")
sound.Looping=False
sound.Play
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", "\Mazyar Fallahi - Nazanin [128].mp3") = False Then
Button1.Text="در حال دانلود شدن"
name="\Mazyar Fallahi - Nazanin [128].mp3"
dier=File.DirRootExternal& "/MusicB4A"
link="http://dl.nex1music.ir/1398/01/26/Mazyar%20Fallahi%20-%20Nazanin%20%5B128%5D.mp3?time=1556793024&filename=/1398/01/26/Mazyar%20Fallahi%20-%20Nazanin%20[128].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", "\Mazyar Fallahi - Nazanin [128].mp3")
sound.Looping=False
sound.Play
Button1.Text="پخش شدن"
End If
End Sub
لطفا راهنمایی کنید باتشکر
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.