استفاده از progressbar درهنگام اجراي دستورات

[mehdimdp]

سلام
وقت بخير
سئوال من اينه كه چطور ميتونم در هنگام يه سري دستورات مثل دستورات زير، يه پروگسس بر(يا splash) رو به كاربر نشون بدم؟


Try
CompressStream(Sourec,Dest);
Dest.Position:=0;
Finally
dest.Free;
Sourec.Free;
End;

(همونطور كه ميدونيد كدهاي بالا، مرتبط با كامپاننت zlip جهت فشرده سازي مي باشند)

[رها]

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

[mehdimdp]

خب فرض ميكنيم عمليات فوق 7 الي 10 ثانيه طول مي كشد.
حالا به نظر شما ، حلقه ي مذكور رو كجا قرار بدهم ؟

[Felony]

خب فرض ميكنيم عمليات فوق 7 الي 10 ثانيه طول مي كشد.
حالا به نظر شما ، حلقه ي مذكور رو كجا قرار بدهم ؟
این که نشد به دست آوردن زمان .
اگر فکر میکنید 7 تا 10 ثانیه طول میکشه روند پر شدن ProgressBar رو بزاریدش تو یه تایمر تو هر بار اجرا شدن تایمر به یه متغییر مقداری رو اضافه کنید و چک کنید اگه 10 ثانیه شده بود تایمر رو خاموش کنید .

[mehdimdp]

:لبخند:
حالا ميشه بدونم بقيه چجوري اين كار رو ميكنند ؟
يعني ميخوام بدونم روش شماها چيه ؟

[as13851365]

اگه می خواهید برای فشرده کردن فایل ها Progressbar بزارید بهتر است از کامپوننت ZipForge استفاده کنید که قابلیتهای زیادی داره .

من هم مشکل شما رو داشتم + یک سری مشکل دیگه که با راهنمایی آقا مهدی از کامپوننت ZipForge استفاده کردم اگه جستجو کنید لینک دانلود رو خواهید یافت

لینک در این انجمن :
http://barnamenevis.org/forum/showthread.php?t=147245