عدم اشتراک گذاری و ذخیره فایل

[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
 

لطفا راهنمایی کنید باتشکر

[ehsan70 7]

در در 1398/02/28, 13:59:01، sadeghkiyani گفته است :

کسی نیست راهنمایی کنه

سلام

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

از اینجا

شما  فایلتون رو با رمز زیپ کنید (با برنامه 7z با فرمت zip  )

بعد یک جای اپلود کنید و  دانلود

با اریا زیپ استخراجش کنید داخل یک پوشه  گوشی. اینجوری میشه:

 

 

Sub Globals
Dim p_mp3 As MediaPlayer,but_p As Button,ariaz As AriaZip
End Sub

Sub Activity_Create(FirstTime As Boolean)
	but_p.Initialize("bp")
	ariaz.Initialize(File.DirRootExternal,"mp3.zip","123")  'ادرس فایل دانلود شده
	Activity.AddView(but_p,30%x,30%y,30%x,20%y)
	but_p.Color=Colors.Blue
End Sub

Sub bp_Click
	ariaz.Extract(File.DirRootExternal)
	p_mp3.Initialize2("mp")	
	p_mp3.Load(File.DirRootExternal,"نام فایل مورد نظر.mp3")
	p_mp3.Play
	File.Delete(File.DirRootExternal,"نام فایل مورد نظر.mp3") 'کد حذف حتما بعد از کد اجرای فایل قرار بگیرد
	ToastMessageShow("فایل اجرا و حذف شد",True)
End Sub

  

[sadeghkiyani 98]

کسی نیست راهنمایی کنه

[پژمان نیکروان 6,055]

سلام

چرا فایل هارو در File.DirInternal سیو نمیکنید؟

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

سلام

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

حالا برای امنیت در فضای لوکال میتونید فایل ها رو پنهان کنید.

مثل برنامه های Es File Explorer  یا نمونه برنامه ایرانی گالری ویژه.

 

[ehsan70 7]

در 15 ساعت قبل، مجید آرتا گفته است :

حالا برای امنیت در فضای لوکال میتونید فایل ها رو پنهان کنید.

مثل برنامه های Es File Explorer  یا نمونه برنامه ایرانی گالری ویژه.

 

سلام

 

میشه بیشتر راهنمایی کنید .مثلا چه روشی ،چه کتابخونه های ، اینا ...

ممنون

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

در 7 ساعت قبل، ehsan70 گفته است :

سلام

 

میشه بیشتر راهنمایی کنید .مثلا چه روشی ،چه کتابخونه های ، اینا ...

ممنون

سلام

نیازی به کتابخونه ی خاصی نیست

برای پنهان شدن پوشه قبل از اسم پوشه یک نقطه یا دات میزاریم »

.images
.myfiles

برای فایل ها هم به همین منوال عمل می کنید.

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

.nomedia

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

 

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

بازم برای امنیت لوکال میتونید فایل هاتون رو هم رمزنگاری کنید.