دوستان سلام.
يه مشكلي توي برنامه هاي دلفي هست اينكه وقتي برنامه به يه حلقه ميرسه كه عملياتي (بانك اطلاعاتي) رو كه مثلا حدود 10 ثانيه طول ميكشه ميخواد انجام بده برنامه توي اين مدت يه حالتي مثل هنگ كردن براش پيش مياد. يعني كاربر فكر ميكنه كه برنامه قفل شده. طوري كه اگه يه كليك هم روي فرم برنامه بزنه روي كپشن فرم not responding.. ظاهر ميشه. براي برطرف كردن اين مشكل بايد چيكار كنم؟
با تشكر از همه دوستان.
Multi threading
شما بايد اون كار رو تو يه نخ جداگانه از نخ برنامه ات انجام بدي .
با اجازه بزرگان
پس از Application.ProcessMessages کی استفاده میشه؟
من در اين مورد اطلاعاتي ندارم. ميشه راهنمايي كنيد دقيقا بايد چيكار كنم؟. ممنون ميشم.نوشته شده توسط merced
با اينكار مشكل حالت هنگ كردن برنامه هم برطرف ميشه؟
عبارت Thread را در تالار دلفی جستجو کنید.من در اين مورد اطلاعاتي ندارم. ميشه راهنمايي كنيد دقيقا بايد چيكار كنم؟
در حلقه هایی که در آنها یک سری پردازش صورت میگیره، ولی حجم پردازش به اندازه ایی نیست که نیاز باشه آن را در Thread جداگانه ایی انجام داد. Application.PorcessMessages اگر در داخل حلقه اجرا بشه، در هر بار اجرای حلقه، باعث میشه که برنامه پیام هایی که بهش رسیده را پردازش کنه، مثل رسم رابط کاربر، یا پاسخ به کلیک و غیره.پس از Application.ProcessMessages کی استفاده میشه؟
در مورد مشکل مطرح شده در این تاپیک، باید از Thread استفاده بشه، چون برای باز کردن یک جدول یا اجرای یک کوئری در بانک اطلاعاتی، برنامه فقط دستور مربوطه را به نرم افزار مدیریت بانک اطلاعاتی ارسال میکنه، و منتظر می ایسته تا از سرور جواب برسه، پس عملا سرعت جواب دادن به حجم داده های برگشت داده شده، شرایط سرور بانک اطلاعاتی، و شرایط رسانه انتقال (مثل شبکه) برمیگرده، و برنامه نمیتونه کار خاصی انجام بده، جز اینکه منتظر وایسته. برای منتظر بودن هم، اگر این انتظار در Thread اصلی رخ بده، طبیعی هست که همه کارهای آن Thread متوقف میشه، از جمله پاسخ داده به پیام های رسیده. برای همین هم از یک Thread جداگانه استفاده میشه، تا منتظر شدن برای جواب موجب بلوکه شدن اجرای Thread اصلی برنامه نشه.
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
با سلام و تشکر مجدد.
من نحوه ی استفاده و کار با Thread رو با کمک اساتید و دوستای خوب از همین سایت یاد گرفتم.
فقط یه مشکل و یه سوال دارم. فرض کنید من 2 تا یونیت دارم و در یونیت اول می خوام کار اصلی برنامه و در یونیت دوم با استفاده از Thread عملیات پشتیبان گیری رو انجام بدم. اول اینکه حتما باید Thread ی که می خواد عملیات کپی یه فایل رو انجام بده در یک یونیت جداگانه باشه یا نه؟
دوم اینکه من موقع کلیک کاربر Thread دوم رو اجرا می کنم. حالا از کجا بفهمم کارش تموم شده. یعنی اون فایل کپی شده؟ از Thread.Suspended استفاده کردم ولی همیشه مقدارش صفر هست.
در یونیت دوم در Thread.Execute دستور کپی فایل رو نوشتم. اخرشم Exit.
ایا با همین دستور Exit برنامه میفهمه کار Thread تموم شده یا نه؟
و اینکه Thread.Suspended رو توی یه تایمر گذاشتم تا هر 1 ثانیه چک کنه. اینکار درسته یا نه؟
خیر، لزومی نداره حتما در یک یونیت جداگانه باشه.اول اینکه حتما باید Thread ی که می خواد عملیات کپی یه فایل رو انجام بده در یک یونیت جداگانه باشه یا نه؟
بعد از اتمام کارش، رویداد OnTerminate مربوط به آن Thread فراخوانی میشه.دوم اینکه من موقع کلیک کاربر Thread دوم رو اجرا می کنم. حالا از کجا بفهمم کارش تموم شده.
Exit نوشتید که چی بشه؟! وقتی به آخر اجرای Execute رسیده، دیگه Exit به چه کاری میاد؟! هر وقت اجرای متد Execute به اتمام برسه، یعنی کار Thread تمام شده.در یونیت دوم در Thread.Execute دستور کپی فایل رو نوشتم. اخرشم Exit.
اشتباه هست، Suspended برای این کار طراحی نشده.اینکه Thread.Suspended رو توی یه تایمر گذاشتم تا هر 1 ثانیه چک کنه. اینکار درسته یا نه؟
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
چطوري و در كجا ازش استفاده كنم؟ در خود Thread يا در تايمر يا Thread اصلي برنامه؟ چطوري چكش كنم؟بعد از اتمام کارش، رویداد OnTerminate مربوط به آن Thread فراخوانی میشه.
با تشكر از شما.
در Threadایی که Thread شما را فراخوانی کرده، که معمولا همون Thread اصلی هست. نیازی نیست شما آن را چک کنید. شما یک متد به رویداد OnTerminate مربوط به Threadایی که ساختید، اختصاص میدید، و هر زمان Thread شما کارش تمام شد، آن کدی که به OnTerminate اختصاص داده بودید، اجرا میشه.چطوري و در كجا ازش استفاده كنم؟ در خود Thread يا در تايمر يا Thread اصلي برنامه؟ چطوري چكش كنم؟
اگر بعد از اتمام کار Thread نیازی به آن ندارید، و فقط قصدتان Free کردن آن Thread بعد از پایان کارش هست، خصوصیت FreeOnTerminate آن را True کنید، تا خودش بعد از پایان کارش Free شود، و نیازی نباشه که شما کاری انجام بدید.
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
اقا من اين كار رو هم انجام دادم ولي نتونستم مشكل رو حل كنم.
اين كد رو در يونيت اول قرار دادم. تا Thread ي كه كارش كپي يك فايل هست رو فراخواني كنه.
var
T : MyThread;
begin
T := MyThread.Create(True);
T.FreeOnTerminate := True;
T.Resume;
end;
و اين كد هم Thread ي كه كارش كپي فايل مورد نظره. مي خوام بعد از اتمام كپي شدن فايل برنامه بسته بشه.
type
MyThread = Class(TThread)
private
procedure OnTerminate;
protected
procedure Execute; override;
end;
var
implementation
procedure MyThread.OnTerminate;
begin
application.terminate;
end;
procedure MyThread.Execute;
begin
CopyFile();
end;
اين كد رو هم توي يه تايمر گذاشتم نشد.
if MyThread.FreeOnTerminate=true then
application.terminate;
هميشه مقدارش صفر هست.
عزیز جان، گفتم رویداد OnTerminate، نگفتم شما خودتون یک متد بسازید، و اسمش را بزارید OnTerminate!
procedure TForm1.ThreadOnTerminate(Sender: TObject)
begin
Application.Terminate;
end;
procedure TForm1.Button1Click;
var
T : MyThread;
begin
T := MyThread.Create(True);
T.FreeOnTerminate := True;
T.OnTerminate := ThreadOnTerminate;
T.Resume;
end;
FreeOnTerminate را که قبل از Resume کردن Thread مقدارش را True کردید، خب طبیعی هست که کد شما همواره مقدار True برمیگردانه!اين كد رو هم توي يه تايمر گذاشتم نشد.
وَ سَيَعْلَمُ الَّذِينَ ظَلَمُوا [آل محمد حقهم] أَيَّ مُنْقَلَبٍ يَنْقَلِبُونَ - الشعراء (227)
و ظالمین [حق آل محمد (ص) ] به زودی خواهند دانست که به کدام بازگشتگاه بازخواهند گشت.
البته روشی که جناب آقای کشاورز فرمودن منطقی تر به نظر میاد ولی من عادت به استفاده از روش دیگه ای دارم اون هم اینکه یه فیلد در کلاس Thread به اسم ThreadTerminated قرار میدم و قبل از خروج از OnExecute اون رو True میکنم.چطوري و در كجا ازش استفاده كنم؟ در خود Thread يا در تايمر يا Thread اصلي برنامه؟ چطوري چكش كنم؟
(البته نه در مواقعی که FreeOnTerminate مقدارش True باشه)
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول