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

AnswerCenter

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

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

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

اطلاعیه

کاربر گرامی

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

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


rasoul.t

کاربر عادی
  • تعداد ارسال ها

    64
  • تاریخ عضویت

  • آخرین بازدید

اعتبار در سایت

15 خوب

درباره rasoul.t

  • درجه
    کاربر باسابقه

آخرین بازدید کنندگان نمایه

بلوک آخرین بازدید کننده ها غیر فعال شده است و به دیگر کاربران نشان داده نمیشود.

  1. با سلام آیا کسی کتابخانه جایگزین آریا اسینک‌تسک رو سراغ داره؟ کتابخانه‌ای که امکان نمایش دیالوگ در هنگام کپی فایل با حجم بالا رو داشته باشه. البته کتابخانه اصلی AsyncTask رو نتونستم از سایت b4x دانلود و تست کنم. اگه کسی کتابخانه جایگزین یا روش دیگه‌ای واسه این کار رو میدونه لطفا بگه. ممنون میشم
  2. با سلام بنده دستور کپی فایل با حجم بالای 500 مگابایت رو با استفاده از کتابخانه AriaAsyncTask نوشتم. کد تو اندروید 4 و 6 و 7 به درستی اجرا میشه ولی تو اندروید 5 به مشکل بر میخوره و تو قسمت log خطای AriaAsyncTask Error : null رو میده. ضمنا کپی فایل با حجم کمتر انجام میشه ولی حجم 500 مگ رو که تست کردم کار نمیکنه. میشه جور دیگه این کد رو نوشت یا کتابخانه مشابهی هست که این عملیات رو انجام بده؟ J500F Android 6.0.1: Works - J500F Android 5.1.1: Not Works Sub Activity_Create(FirstTime As Boolean) Dim CopyData As AriaAsyncTask CopyData.Initialize("unpackdata") CopyData.Run(Null) End Sub Sub unpackdata_DoInBackground(params() As Object) As Object File.Copy(File.DirAssets,"data",File.DirDefaultExternal,"data") Return True End Sub Sub unpackdata_OnPreExecute ProgressDialogShow2("Please Wait...",False) End Sub Sub unpackdata_OnPostExecute(param As Object) ProgressDialogHide End Sub
  3. من فقط میخوام چند فایل رو پشت سر هم دانلود کنم و روند دانلود رو داشته باشم. و تا زمانی که دانلود اول تموم نشده دانلود بعدی شروع نشه. پیشنهاد شما چیه؟
  4. سلام من با استفاده از کتابخانه HttpUtils2 صف دانلود ایجاد کردم و فایلها با موفقیت یکی پس از دیگری دانلود شد. فقط نمیدونم چجوری روند دانلود فایل رو اضافه کنم. دستورات رو ضمیمه کردم Sub Activity_Create(FirstTime As Boolean) DataLink.Initialize DataLink.Add("لینک اول") DataLink.Add("لینک دوم") DataLink.Add("لینک سوم") Dim furl As String = DataLink.Get(0) Log("Download: " & furl) Dim j As HttpJob j.Initialize("DownloadFile",Me) j.Tag = furl j.Download(furl) End Sub Sub JobDone(Job As HttpJob) If Job.Success Then Dim res As String res = Job.GetString Log("JobName: " & Job.JobName) If Job.JobName = "DownloadFile" Then Dim m As String = Job.Tag Dim OutStream As OutputStream Log("DownloadReady: " & Job.Tag) OutStream = File.OpenOutput(File.DirDefaultExternal, GetFilename(m), False) File.Copy2(Job.GetInputStream,OutStream) OutStream.Close Log(GetFilename(m) & " is written to " & File.DirRootExternal) If DataLink.Size > 0 Then DataLink.RemoveAt(0) End If If DataLink.Size > 0 Then Dim furl As String = DataLink.Get(0) Log("Download: " & furl) Log(HttpUtils2Service.TempFolder) Dim j As HttpJob j.Initialize("DownloadFile",Me) j.Tag = furl j.Download(furl) Else LogColor("===== ARE FILES DOWNLOADED =====",Colors.Green) End If End If Else ToastMessageShow("Error: " & Job.ErrorMessage, True) End If Job.Release End Sub Sub GetFilename(fullpath As String) As String Return fullpath.SubString(fullpath.LastIndexOf("/") + 1) End Sub
  5. سلام لطفا راهنماییم کنین. من میخوام لینک فایلها رو داخل لیست اد کنم و زمانی که روی دکمه دانلود کلیک کردم بیاد بررسی کنه که فایل اول دانلود شده یا نه. اگر دانلود شده بود بره سراغ پارت دوم و الی اخر. میخوام از کتابخانه ariadownload استفاده کنم چون قابلیت توقف و ادامه دانلود رو داره.
  6. با سلام من دیتای برنامه ام رو در دو سرور مختلف آپلود کردم و ضمنا از دو کتابخانه دانلود آریا و هایتکس اسفاده کردم ولی وقتی فرستادم به مایکت گفتن دیتا بصورت کامل دانلود نمیشه. خودم با ابنترنت ایرانسل چندین بار تست کردم دیتا دانلود شد. ولی مایکت با ای دی اس ال های مختلف تست میکنه. لطفا کمکم کنید. آیا احتمال دارد ایراد از نسخه بیسیک فور اندروید باشد؟ نسخه ای که من استفاده میکنم چهار هست
  7. سلام آیا راهی هست که تو بیسیک فور اندروید یک فایل زیپ که توسط winzip یا winrar‌ بصورت چند فایل مثلا 100 مگابایتی زیپ شده است رو استخراج کرد؟
  8. Sub BytesToFile (Dir As String, FileName As String, Data() As Byte) Dim out As OutputStream = File.OpenOutput(Dir, FileName, False) out.WriteBytes(Data, 0, Data.Length) out.Close End Sub Sub FileToBytes (Dir As String, FileName As String) As Byte() Return Bit.InputStreamToBytes(File.OpenInput(Dir, FileName)) End Sub من این دوتا ساب رو پیدا کردم. ولی نمیدونم چجوری ازشون استفاده کنم. زمانی که فایل داخل dirassets رو به بایت تبدیل میکنیم کجا ذخیره میشه؟ چون حجم فایل نزدیک یک گیگه. اگر هم بخوام فایل رو مستقیم به حافظه کپی کنم بازم نمیشه. فقط تو دستگاه های جدید عمل کپی انجام میشه. مثلاا تو سامسونگ S5‌ عمل کپی فایل یک گیگی انجام نمیشه
  9. سلام آیا راهی وجود داره که یک فایل مثلا 700 مگی رو به صورت هفت تکه فایل 100 مگی زیپ کرد؟ مثل کاری که برنامه WinRar انجام میده
  10. Dim in As InputStream in = File.OpenInput(...) Dim out As OutputStream out.InitializeToBytesArray(1000) File.Copy2(in, out) '<---- This does the actual copying Dim data() As Byte data = out.ToBytesArray اونوقت مسیر ورودی و خروجی رو کجا باید بنویسم؟
  11. سلام آیا راهی هست که در هنگام کپی یک فایل بالای یک گیگ از diaassets به حافظه دستگاه بیاد فایل رو تیکه تیکه کپی کنه؟ یعنی به صورت آرایه در بیاره و در آخر فایل نهایی رو با چسباندن تیکه فایل ها دوباره ایجاد کنه. چون در دستگاه های قدیمی عمل کپی واسه فایل های پر حجم انجام نمیشه
  12. یکی از دوستان گفته " تابع کپی را خودتون باز نویسی کنید 1 مگ 1مگ کپی کنید بعد از هر کپی متغیرو Recycle کنید " چجوری میشه همچین کاری کرد؟
  13. منم همچین مشکلی رو دارم. کسی نیست کمک کنه؟!
  14. سلام چجوری میشه با استفاده از کتابخانه AriaToast روند کپی یک فایل حجیم از DirAssets به حافظه رو نشون داد؟ لطفا اگه میشه راهنمائیم کنید
×
×
  • جدید...