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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


تمامی تاپیکهایی که آخرین ارسال اونا بیشتر از 3 ماه قبل بوده قفل شد.
  • 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 پاسخ به این سوال تا کنون داده شده است

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

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

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

سلام

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

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


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

مدیر کل سایت

سلام

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

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

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

 

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


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

کاربر عادی

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

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

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

 

سلام

 

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

ممنون:53:

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


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

مدیر کل سایت

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

سلام

 

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

ممنون:53:

سلام

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

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

.images
.myfiles

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

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

.nomedia

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

 

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

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

  • تشکر 1

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


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

  

  • پسندیدن 1

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


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

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 قرار دهید.


×
×
  • جدید...