راهنمایی برای کتاب صوتی آنلاین

سوال

سلام” وقت بخیر. ببخشید با کمک دوستان یه کتاب صوتی نوشتم که داخلش بالای ۱۰۰ عنوان صوتی هست. من اومدم فایلهای صوتی رو داخل سرور آپلود کردم، حالا میخوام برنامه وقتی روی هر کدوم از عناوین تپ شد به سرور وصل بشه، فایل مورد نظر ما رو دانلود کنه ، داخل گوشی ذخیره کنه و پخش کنه. و اینکه اگه اون فایل قبلا دانلود شده بود دوباره دانلود نشه. تشکر

در حال بررسی 0
, ۱۳۹۸/۱۱/۱۸ ۲:۱۹:۳۴ 3 پاسخ کاربر تازه 0

پاسخ ها ( 3 )

  1. morteza
    2
    ۱۳۹۸/۱۱/۲۰ ۲۲:۳۸:۵۸
    پاسخ

    سلام عزیزم

    شما از این آموزش برای دانلود فایل استفاده کن:

    https://beporsam.ir/blog/download-video-b4a/

    که البته این برای فایل های ویدئویی هست، شما پسوند mp4 رو به mp3 تغییر بده.

    این برای دانلود فایلت.

    • سینا
      0
      ۱۳۹۸/۱۱/۲۲ ۱۶:۲۸:۴۸
      پاسخ
      این پاسخ ویرایش شد.

      سلام” خیلی ممنون از پاسخ شما. ۶۰ نفر دیدند ولی فقط شما دوست عزیزم جواب دادید.

      یادم رفت بگم: این برنامه قبلا آفلاین بوده واسه خودم ، حالا دارم به آنلاین تبدیل می کنم. برنامه مذهبیه . من داخل لیست ویو بجای تعریف ۱۰۰ تا دکمه از دیتابیس استفاده کردم. چون عناوینم فرق می کنند.

      حالا نمیدونم باید برای همه این ۱۰۰ عنوانم این کدها رو بزنم یا راه دیگه ای داره؟ با توجه به اینکه طبیعتا لینک دانلودها متفاوت هست. و اینکه وقتی دانلود انجام شد چطوری بعدش پخش کنه با توجه به اینکه باید از روی دیتابیس بخونه؟؟ ببینید این بخش از کد. اگه میشه اشکالش رو بگید. تشکر :

      ۱
      ۲
      ۳
      ۴
      ۵
      ۶
      ۷
      ۸
      ۹
      ۱۰
      ۱۱
      ۱۲
      ۱۳
      ۱۴
      ۱۵
      ۱۶
      ۱۷
      ۱۸
      ۱۹
      ۲۰
      ۲۱
      ۲۲
      ۲۳
      ۲۴
      ۲۵
      ۲۶
      ۲۷
      ۲۸
      ۲۹
      ۳۰
      ۳۱
      ۳۲
      ۳۳
      ۳۴
      ۳۵
      ۳۶
      ۳۷
      ۳۸
      ۳۹
      ۴۰
      ۴۱
      ۴۲
      ۴۳
      ۴۴
      ۴۵
      ۴۶
      ۴۷
      ۴۸
      Sub ListView1_ItemClick (Position As Int, value As Object)
      Log("position: " & Position & " -value: " & value)
      ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("samim.ttf")
      rtp.CheckAndRequest(rtp.PERMISSION_WRITE_EXTERNAL_STORAGE)'مجوز دسترسی به کارت حافظه برای نوشتن روی آن'
      rtp.CheckAndRequest(rtp.PERMISSION_READ_EXTERNAL_STORAGE)'مجوز دسترسی به کارت حافظه برای خواندن از روی آن'
      If File.Exists(File.DirAssets,"۱.mp3")=False Then 'برای بروز رسانی تغییرات دیتابیس باید این خط و خط۵۸ را غیر فعال کنیم'
      ' Msgbox("این برنامه برای بار اول بین ۵ تا ۱۰ دقیقه زمان نیاز دارد تا کاملا راه اندازی گردد","لطفا شکیبا باشید")
      ht.Initialize("ht",Me)'برای دانلود فایل صوتی از سرور مشخص شده بعد از انتخاب سوره مورد نظر'
      ProgressDialogShow2("...در حال دریافت",True)
      ht.Download("http://bayanbox.ir/download/2351446064684794018/1.mp3")
      End If
      Dim Seda_1 As String
       
      If (EditText1.Text == "") Then
      Main.cursor=Main.sql.ExecQuery("SELECT*FROM Fehrest")
      Main.cursor.Position=Position
      Else
      Main.cursor=Main.SQL.ExecQuery("SELECT*FROM Fehrest WHERE Soorehha_1 LIKE '%" & EditText1.Text.Trim() & "%'")
      Main.cursor.Position=Position
      End If
      Seda_1 = Main.cursor.GetString("Seda_1")
      'Log(Seda_1)
      MediaPlayer.Load(File.DirAssets,Seda_1)
      MediaPlayer.Play
      End Sub
      Sub Activity_PermissionResult (Permission As String, Result As Boolean)
      If Permission = rtp.PERMISSION_WRITE_EXTERNAL_STORAGE And Permission=rtp.PERMISSION_READ_EXTERNAL_STORAGE  And Result = False Then
      Msgbox("شما اجازه دسترسی به کارت را به این برنامه نداده اید و در اینصورت ممکن است برخی از بخش های برنامه به درستی کار نکنند","")
      End If
      End Sub
       
      public Sub jobDone (job As HttpJob)'ادامه کد برای دانلود فایل صوتی و... از سرور مشخص شده'
      ProgressDialogHide
      If job.Success =True Then
      Dim i1 As InputStream=job.GetInputStream
      Dim o1 As OutputStream=File.OpenOutput(File.DirAssets,"۱.mp3",True)
      File.Copy2(i1,o1)
      i1.Close
      o1.Close
      ToastMessageShow("دریافت فایل با موفقیت انجام شد",False)
      Else
      ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
      End If
      End Sub

       

      • morteza
        1
        ۱۳۹۸/۱۱/۲۲ ۲۲:۴۹:۵۵
        پاسخ

        خواهش میکنم

        ببینید، اولا که نیازی نیست برای هر دکمه یا آیتم دستورات مربوط به دانلود رو مستقیما بنویسید.

        شما یک ساب تعریف کن و همه دستورات مربوط به دانلود رو داخلش بنویس، و یک ورودی بهش بده که همون آدرس آیتم های صوتی هست، که هردفعه تغییر میکنه

        دوما، الان مشکل این کدهایی که نوشتی توی اجرا چی هست؟

        سوما درمورد پخش فایل، به نظرم بهتره توی یک دکمه جداگانه دستورات مربوط به پخش فایل رو بنویسید، چون شاید کاربر دوست نداشته باشه که فایل پخش شه، فقط میخواد دانلودش کنه.

        مثلا یک دکمه اینطوری تعریف کنید

        ۱
        ۲
        ۳
        ۴
        ۵
        ۶
        Sub btn_play_Click
        Activity.AddView(vid,۰,۰,۱۰۰%x,۱۰۰%y)
        vid.LoadVideo(File.DirRootExternal,"clip.mp3")
        vid.MediaControllerEnabled = True
        vid.Play
        End Sub

         

  2. سینا
    0
    ۱۳۹۸/۱۱/۲۲ ۲۳:۵۶:۰۳
    پاسخ

    ممنونم.به سرور وصل میشه. دان میکنه اما الان روی خط۲۴ خطای عدم پیدا شدن اون فایل صوتی دانلود شده رو میده. تو هر جا بهش میدم بازم پیداش نمیکنه. بعدش اینقد سوال دااااارمممم. مثلا چطوری در کنار پخش صدا، متن هم بیاد. آیا برای هر عنوان صوتی اکتیویتی جداگانه برای متن میخواد یا نه.؟ 😁 منا صفر صفرم

    • morteza
      0
      ۱۳۹۸/۱۱/۲۳ ۲۳:۴۴:۰۷
      پاسخ

      خب عزیزم، مگه فایل شما با نام Seda_1 ذخیره شده که بتونه پیداش کنه؟!

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

       

      • سینا
        0
        ۱۳۹۸/۱۱/۲۴ ۰:۰۲:۱۴
        پاسخ
        این پاسخ ویرایش شد.

        کد پخش رو جابجا کردم بردم بعد از پیغام دانلود موفق تا پخش بشه. به محض دانلود کردن پخش می کنه ولی بعد که دوباره بخوام پخش بشه کاری نمی کنه.

        ۱
        ۲
        ۳
        ۴
        ۵
        ۶
        ۷
        ۸
        ۹
        ۱۰
        ۱۱
        ۱۲
        ۱۳
        ۱۴
        ۱۵
        ۱۶
        ۱۷
        ۱۸
        ۱۹
        ۲۰
        ۲۱
        ۲۲
        ۲۳
        ۲۴
        ۲۵
        ۲۶
        ۲۷
        ۲۸
        ۲۹
        ۳۰
        ۳۱
        ۳۲
        ۳۳
        ۳۴
        ۳۵
        ۳۶
        ۳۷
        ۳۸
        ۳۹
        ۴۰
        ۴۱
        ۴۲
        ۴۳
        ۴۴
        ۴۵
        ۴۶
        ۴۷
        ۴۸
        ۴۹
        ۵۰
        Sub ListView1_ItemClick (Position As Int, value As Object)
        Log("position: " & Position & " -value: " & value)
        ListView1.SingleLineLayout.Label.Typeface = Typeface.LoadFromAssets("samim.ttf")
        rtp.CheckAndRequest(rtp.PERMISSION_WRITE_EXTERNAL_STORAGE)'مجوز دسترسی به کارت حافظه برای نوشتن روی آن'
        rtp.CheckAndRequest(rtp.PERMISSION_READ_EXTERNAL_STORAGE)'مجوز دسترسی به کارت حافظه برای خواندن از روی آن'
        If File.Exists(File.DirDefaultExternal,"۱.mp3")=False Then 'برای بروز رسانی تغییرات دیتابیس باید این خط و خط۵۸ را غیر فعال کنیم'
        ' Msgbox("این برنامه برای بار اول بین ۵ تا ۱۰ دقیقه زمان نیاز دارد تا کاملا راه اندازی گردد","لطفا شکیبا باشید")
        ht.Initialize("ht",Me)'برای دانلود فایل صوتی از سرور مشخص شده بعد از انتخاب سوره مورد نظر'
        ProgressDialogShow2("در حال دریافت...",True)
        ht.Download("http://bayanbox.ir/download/2351446064684794018/1.mp3")
        End If
        ' Dim Seda_1 As String
         
        If (EditText1.Text == "") Then
        Main.cursor=Main.sql.ExecQuery("SELECT*FROM Fehrest")
        Main.cursor.Position=Position
        Else
        Main.cursor=Main.SQL.ExecQuery("SELECT*FROM Fehrest WHERE Soorehha_1 LIKE '%" & EditText1.Text.Trim() & "%'")
        Main.cursor.Position=Position
        End If
        ' Seda_1 = Main.cursor.GetString("Seda_1")
        'Log(Seda_1)
         
        End Sub
        Sub Activity_PermissionResult (Permission As String, Result As Boolean)
        If Permission = rtp.PERMISSION_WRITE_EXTERNAL_STORAGE And Permission=rtp.PERMISSION_READ_EXTERNAL_STORAGE  And Result = False Then
        Msgbox("شما اجازه دسترسی به کارت را به این برنامه نداده اید و در اینصورت ممکن است برخی از بخش های برنامه به درستی کار نکنند","")
        End If
        End Sub
         
        public Sub jobDone (job As HttpJob)'ادامه کد برای دانلود فایل صوتی و... از سرور مشخص شده'
        ProgressDialogHide
        If job.Success =True Then
        Dim i1 As InputStream=job.GetInputStream
        Dim o1 As OutputStream=File.OpenOutput(File.DirDefaultExternal,"۱.mp3",True)
        File.Copy2(i1,o1)
        i1.Close
        o1.Close
        ToastMessageShow("دریافت فایل با موفقیت انجام شد",False)
        Else
        ToastMessageShow("خطا در برقراری ارتباط با سرور",False)
        End If
        MediaPlayer.Load(File.DirDefaultExternal,"۱.mp3")
        MediaPlayer.Play
        End Sub

         

        • morteza
          0
          ۱۳۹۸/۱۱/۲۵ ۰:۱۱:۳۳
          پاسخ

          منظورت از پخش مجدد اینه خود برنامه مجدد پخشش کنه یا خود کاربر؟

          • سینا
            0
            ۱۳۹۸/۱۱/۲۶ ۲۳:۲۲:۵۶

            نع. خود کاربر. این کلا یه بار بعد از دانلود پخش میکنه. حالا نمیدونم آدرس دهی من اشتباهه یا باید شرطی بشه یا کار دیگه ای. خداااا کاشکی یه نفر کنار دستم بود قشنگ یادم میداد. 🙁

  3. morteza
    0
    ۱۳۹۸/۱۱/۲۷ ۰:۴۳:۵۷
    پاسخ

    خب اینکه کاری نداره

    میتونی یه دکمه بذاری، برای این که کاربر فایل مربوطه رو پخش کنه
    یا مثلا از طریق کتابخونه BSFileChooser یه پنجره اکسپلورر نشون کاربر بدی که بتونه از اونجا صدای مورد نظرشو انتخاب کنه و پخش کنه

     

ارسال یک پاسخ