رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

 برای استفاده از تمامی امکانات سایت لطفا در انجمن عضو شوید


  • 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
 

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

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


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

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

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

  • 0
پژمان نیکروان    6,001

مدیر بازنشسته

سلام

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

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
مجید آرتا    5,648

مدیر کل سایت

سلام

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

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

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

 

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


لینک به ارسال
به اشتراک گذاری در سایت های دیگر
  • 0
ehsan70    6

کاربر عادی

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

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

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

 

سلام

 

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

ممنون:53:

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


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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

مهمان
پاسخ به این سوال ...

×   شما در حال چسباندن محتوایی با قالب بندی هستید.   حذف قالب بندی

  تنها استفاده از 75 اموجی مجاز می باشد.

×   لینک شما به صورت اتوماتیک جای گذاری شد.   نمایش به عنوان یک لینک به جای

×   محتوای قبلی شما بازگردانی شد.   پاک کردن محتوای ویرایشگر

×   شما مستقیما نمی توانید تصویر خود را قرار دهید. یا آن را اینجا بارگذاری کنید یا از یک URL قرار دهید.


×
×
  • جدید...