رفتن به مطلب

بایگانی شده

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

  • 0
sadeghkiyani

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

سوال

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 پاسخ به این سوال تا کنون داده شده است

پست های پیشنهاد شده

مجید آرتا    5,809

سلام

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

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

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

 

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
ehsan70    7
در 15 ساعت قبل، مجید آرتا گفته است :

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

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

 

سلام

 

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

ممنون:53:

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
مجید آرتا    5,809
در 7 ساعت قبل، ehsan70 گفته است :

سلام

 

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

ممنون:53:

سلام

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

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

.images
.myfiles

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

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

.nomedia

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

 

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

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
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

  

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


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

×
×
  • جدید...