سلام جناب شاهپیری .
قبلا در مورد مشکل اکسترکت کردن فایل های zip داخل گوشی خودم (اندروید 4.2.2 - sony xperia l) براتون گفتم. گفتم ویدئو و جزئیاتش رو هم براتون بزارم اگر فرصت کردید بیزحمت یه بررسیش کنید ببینید مشکلش چیه.
ویدئو
فایل اولی بدون مشکل اکسترکت میشه و پیغام موفقیت امیز بودن سریعا نمایش داده میشه.
فایل دومی هم اکسترکت میشه ولی پیغام موفقیت امیز بودن 20 ثانیه بعد از 100% شدن پروگرس بار نمایش داده میشه. فکر کنم پروگرس بار زود پر میشه
مشخصات فایل 1
مشخصات فایل 2
فایل 1
فایل 2
الان با شبیه ساز nox با اندروید 4.4.2 هم تست کردم . همین مشکل رو داشت. به نظرم باید روی گوشی ها و یا سیستم های کمی ضعیف تر و قدیمی تر و فایل هایی با فشردگی بیشتر مثل فایل های متنی و پایگاه داده تست کنید تا مشکلش معلوم بشه. چون روی گوشی های جدید و همچنین فایل هایی با فشردگی کم مثل ویدئو و موزیک و عکس مشکل و تاخیری ندیدم.
مشخصات فایل 3
فایل شماره 3 هم که بعدا تست کردم یک ویدئو بود و کمتر از 1% فشرده شده بود. در هنگام اکسترکت هم مشکلی نداشت. ظاهرا هرچه بین حجم فشرده شده با حجم غیر فشرده شده فایل ها، اختلاف باشه اختلاف صد درصد شدن پروگرس بار با رویداد اتمام هم به همون اندازه زیاد میشه.
(نرم افزار های دیگه روی گوشیم در اکسترکت کردن مشکلی ندارند)
Sub Process_Globals
End Sub
Sub Globals
Private ListView1 As ListView
Private ProgressBar1 As ProgressBar
Dim przip As PersianZipManager
Dim pr As ZipParametr
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("main")
Dim l As List = File.ListFiles(File.Combine(File.DirRootExternal,"RRRR/Zip/"))
For i=0 To l.Size - 1
If File.IsDirectory(File.DirRootExternal,"RRRR/Zip/"& l.Get(i)) = False Then
ListView1.AddSingleLine(l.Get(i))
End If
Next
przip.initialize("przip")
pr.initialize
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub ListView1_ItemClick (Position As Int, Value As Object)
Dim v As String = Value
'Msgbox(File.DirRootExternal & "/RRRR/Zip/" & v,"file")
'Msgbox(File.DirRootExternal & "/RRRR/Zip/ext/" & v,"dir")
File.MakeDir(File.DirRootExternal,"/RRRR/Zip/ext/" & v)
przip.withFileName(File.DirRootExternal & "/RRRR/Zip/" & v).withRunInThread(True)
przip.extractAll(File.DirRootExternal & "/RRRR/Zip/ext/" & v ,pr.ZipParameters)
'przip.startMonitoring
End Sub
Sub przip_onCANCELLED
ToastMessageShow("przip_onCANCELLED",True)
End Sub
Sub przip_onERROR(error As String)
Msgbox(error,"Error")
End Sub
Sub przip_onProgressing(percent As Int)
ProgressBar1.Progress = percent
End Sub
Sub przip_onSUCCESS
ToastMessageShow("przip_onSUCCESS",True)
End Sub
پارامتر ها رو در حالت های دیگه هم تست کردم، تاثیری نداشت. اخرین نسخه کتابخونه رو هم بررسی کردم.
ممنون میشم اگه این مورد رو هم بررسی کنید.