Private ht As HttpJob
ht.Download("https://www.shia-news.com/files/fa/news/1390/9/22/13308_724.mp3")
این هم جابش و همینطور دستورات مربوط به ذخیره فایل
Public Sub JobDone (job As HttpJob)
If job.Success=True Then
Dim i As InputStream=job.GetInputStream
Dim o As OutputStream=File.OpenOutput(File.DirRootExternal&"/ziyrat ashora","fani.mp3",True)
File.Copy2(i,o)
ToastMessageShow("دانلود باموفقیت انجام شد",False)
Else
ToastMessageShow("صدا دانلود نشد. لطفا اتصالتان به اینترنت را چک کنید.",False)
End If
End Sub
منتهای مراتب توی اندروید 10 وقتی روی دانلود فایل میزنیم، برنامه بسته میشه!
ممنون میشم اگه کسی بلد هست بگه مشکلش کجاست.
سوال
MR.B4A 104
سلام.
من این دستور رو برای دانلود فایل صوتی نوشتم:
Private ht As HttpJob ht.Download("https://www.shia-news.com/files/fa/news/1390/9/22/13308_724.mp3")
این هم جابش و همینطور دستورات مربوط به ذخیره فایل
Public Sub JobDone (job As HttpJob) If job.Success=True Then Dim i As InputStream=job.GetInputStream Dim o As OutputStream=File.OpenOutput(File.DirRootExternal&"/ziyrat ashora","fani.mp3",True) File.Copy2(i,o) ToastMessageShow("دانلود باموفقیت انجام شد",False) Else ToastMessageShow("صدا دانلود نشد. لطفا اتصالتان به اینترنت را چک کنید.",False) End If End Sub
منتهای مراتب توی اندروید 10 وقتی روی دانلود فایل میزنیم، برنامه بسته میشه!
ممنون میشم اگه کسی بلد هست بگه مشکلش کجاست.
لینک ارسال
به اشتراک گذاری در سایت های دیگر
3 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.