استفاده از Thread ها در دلفی ...

استفاده از Thread ها در دلفی​

اساس کار ویندوز در اجرای برنامه ها بر روی Thread ها است ، هنگامی که برنامه ای اجرا می شود ، کلیه کدها و فایلهای منبع ( Resource ) آن در یک یا چند Thread قرار می گیرند ، درواقع هرProcess در ویندوز دارای یک یا چند Thread است که اطلاعات Process درآنها قرار دارند و بر روی حافظه موقت بارگذاری شده اند ... ، برنامه ها میتوانند در زمان اجرای خود Thread هایی ساخته و سپس آنها را آزاد نمایند ، کار یک Process زمانی به پایان می رسد که تمام ، Thread های آزاد شده باشند ، در غیر این صورت آن Process بسته نخواهد شد ، پس باید در آزادسازی Thread ها دقت زیادی داشت ...

ساخت Thread و استفاده از آن در برنامه :
در دلفی کلاسی به نام TThread قرار دارد که امکان استفاده از Thread ها را فراهم می سازد ...
برای استفاده از یک Thread ابتدا باید یک نسخه از کلاس TThread را Create کرده و سپس از آن استفاده نمایید
برای ساخت یک Thread به صورت زیر عمل می کنیم :

Type

MyThread = Class(TThread)

private

…

protected

...

end;
در کد بالا یک نوع از TThread را ساختیم ...
در یک Thread میتوانید Procedure ها و توابعی را قرار داده و از آنها استفاده نمایید ، توجه داشته باشید که برای فراخوانی توابع و متد ها باید از روش Synchronization ( همزمان سازی ) استفاده نمایید ، شاید با دیدن این کلمات احساس کنید که کار سختی در پیش دارید ، اما اصلا این طور نیست ، این کار با اجرای یک تابع ساده امکان پذیر است که در ادامه توضیح خواهیم داد ...
Thread ها یک Event اصلی به نام OnExecute دارند که مربوط به زمان اجرا شدن آنها است ، تمام کار Thread ها در همین Event انجام می شود ، کدی که در این رویداد می نویسید از زمان اجرا شدن Thread تا زمان Terminate شدن آن اجرا خواهد شد.
نمی توان در یک Thread به صورت مستقیم با اشیای فرم ارتباط داشت ، چنین درخواستهایی از Thread باعث متوقف شدن کار آن خواهد شد و نتیجه مطلوبی نخواهید گرفت ... ، برای دسترسی به اشیاء باید از Procedure های جدا و Synchronize استفاده نمایید تا اختلالی در کار Thread به وجود نیاید ...
ابتدا باید توابع و متد ها را در یک Thread تعریف کرده و کد مورد نظر را در آن بنویسیم ، سپس با تابع Synchronize به روش زیر می توانیم آن را اجرا نماییم :

Synchronize( My Procedure );

طریقه ایجاد توابع و Procedure ها در Thread مانند سایر کلاسها ( مثلا TForm ) است ، برای مثال فرض کنید متدی داریم که در آن عمل Progress کردن یک ProgressBar را انجام می دهیم ، میتوانیم به صورت زیر این متد را تعریف نماییم :

Type

MyThread = Class(TThread)

private

procedure doProgress;

end;



Implementation



procedure doProgress;

begin

Form1.ProgressBar1.Progress;

end;

ساخت و استفاده از Thread :
در بالا نحوه تعریف یک Thread را توضیح دادیم ، برای استفاده از آن باید یک متغیر با نام Thread تعریف شده تعریف نماییم و از آن استفاده کنیم ...
نکته دیگر این که متد Create برای Thread ها یک پارامتر به نام Suspended دارد که از نوع Boolean می باشد و به صورت پیشفرض دارای مقدار False است ...
این پارامتر مشخص میکند که آیا Thread در حالت متوقف ساخته شود یا اینگه بعد از ساخته شدن بلافاصله در حالت اجرا قرار گیرد ( Thread بعد از ساخته شدن ، متد Execute اش اجرا خواهد شد ، با True کردن این پارامتر ، متد Execute را متوقف کرده و از اجرا شدن کدها جلوگیری می نماییم ) ، بعد از اجرای Thread ممکن است نیاز باشد که برخی از خصوصیات آن را تغییر دهیم ، پس باید به این پارامتر مقدار True دهیم تا Thread ما بعد از ساخته شدن در حالت اجرا نباشد و امکان تغییر خاصیتهای آن وجود داشته باشد ...
برای مثال بهتر است که خاصیت FreeOnTerminate مربوط به Thread ساخته شده را True نماییم تا هنگام فراخوانی متد Terminate برای پایان کار Thread‌ ، آن را آزاد کنیم ...
پس کد ما تا اینجا به شکل زیر درخواهد آمد :

var

T : MyThread;

begin

T := MyThread.Create(True);

T.FreeOnTerminate := True;

T.Resume;

end;

در کد بالا Thread ما ساخته شده و سپس خاصیت FreeOnTerminate آن True شده و سپس با استفاده از متد Resume به کار خود ادامه می دهد ( از حالت Suspend بیرون می آید ) ...

کد نویسی در رویداد OnExecute :
هر Thread ای که Create می کنید در حالت پیشفرض رویداد OnExecute را دارا می باشد ، برای این که آن را به دلخواه خود تغییر دهید باید آن را دوباره تعریف کنید ، برای تعریف این رویداد باید از قسمت Protection و وا‍ژه Override استفاده نمایید تا رویداد قبلی Thread از بین رفته و رویداد جدیدی که ایجاد می کنید جایگزین شود ، پس کد شما به این صورت خواهد بود :

type

MyThread = Class(TThread)

private

...

protected

procedure Execute; override;

end;



var



implementation



procedure MyThread.Execute;

begin



end;

اجرای Procedure های تعریف شده ( Synchronization ) :
برای فراخوانی Procedure هایی که تعریف کرده اید باید ار تابع Synchronize استفاده نمایید ( در داخل رویداد OnExecute ) ، برای مثال :

procedure MyThread.Execute;

begin

Synchronize(doProgress);

end;

تابع Synchronize یک پارامتر دارد که از نوع TThreadMethod است و Procedure ای که در Thread تعریف کردید باید در آن قرار گیرد ...

مدیریت Thread :
برای استفاده از Thread با متدهای آن آشنایی داشته باشید ...
برای متوقف کردن یک Thread باید از متد Suspend استفاده نمایید ، و برای ادامه کار آن باید از متد Resume استفاده کنید :

MyThread.Suspend;

...

MyThread.Resume;

برای این که بفهمید آیا Thread ما در حالت Suspend است یا خیر میتوانید از خاصیت Suspended استفاده نمایید ، این خاصیت یک مقدار Boolean دارد که مشخص می کند Thread مورد نظر Suspend شده یا خیر :

var

isSuspended : Boolean;

begin

isSuspended := MyThread.Suspended;

end;

خاصیت Priority :
اگر در محیط ویندوز برنامه Task Manager را اجرا نموده و به قسمت Process بروید لیست Process های در حال اجرا را می بینید ، اگر بر روی هر کدام از این Process ها راست کلیک نمایید گزینه ای به نام Set Priority می بینید که مقادیری مثل High‌ ، Normal یا Low و ... دارد ، Priority مشخص می کند که در زمان الویت بندی اجرای Thread ها در CPU ، کدام یک ارجعیت دارند و به CPU ابتدا باید به درخواست کدام یک از آنها جواب دهد ، هرچه مقدار Priority یک Thread مقدار بالاتری داشته باشد ، الویت بیشتری خواهد داشت و عملیاتش زودتر انجام خواهد شد ...
می توانید برای Threadخود این خاصیت را تنظیم نمایید ، این خاصیت از نوع TThreadPriority می باشد ، در تصویر زیر مقادیری که می توانید به عنوان Priority قرار دهید مشخص شده است :

​

ThreadID :
این خاصیت شناسه ای برای Thread شما است که هم در زمان ساخت ( در زمان Debug‌ ) و هم در زمان اجرای برنامه می توانید از آن استفاده نمایید ، هنگامی که قصد Debug کردن برنامه خود در محیط دلفی را دارید ، پس از اجرا کردن برنامه اگر از منوی View گزینه Debug Windows و سپس گزینه Threads را انتخاب نمایید ، پنجره ای باز شده و لیستی از Thread های در حال اجرا در برنامه شما را نمایش میدهد که هرکدام از آنها دارای شناسه ای به نام ThreadID هستند ، با داشتن این مقدار می توانید Thread مورد نظر خود را در این پنجره پیدا نمایید ...
این مقدار را می توانید به روش زیر بدست آورید :

var

MyThreadID : Cardinal;

begin

MyThreadID := MyThread.ThreadID;

end;

​

خروج از Thread و آزاد کردن آن :
رویداد OnTerminate :
Thread یک رویداد دیگر دارد که میتوانید آن را مانند OnExecute تنظیم نمایید و تغییر دهید ، این رویداد زمانی اتفاق می افتد که Thread مورد نظر Terminate‌ شود ، اما متد دیگری به نام DoTerminate وجود دارد که این رویداد را اجرا میکند بدون اینکه Thread مورد نظر Terminate شود ( یا شده باشد ) ، با متد ...

---------

اگر یادتان باشد ،‌ ما در هنگام ساخت Thread مقدار خاصیت FreeOnTerminate‌آن را True کردیم پس اگر آن را Terminate نماییم ، آزاد ( Free ) خواهد شد ، با متد Terminate میتوانید به کار یک Thread پایان دهید :

MyThread.Terminate;

در برخی موارد ممکن است Thread مورد نظر Terminate نشود ! ، درواقع هنگامی که ما متد Terminate را اجرا می کنیم ، کار عمده ای انجام نمی شود ، بلکه فقط خاصیت Terminated مربوط به Thread بر روی True تنظیم می شود ! ، درواقع این عمل به Thread اعلام میکند که به زودی ممکن است کارش پایان یابد ، باید برای پایان کار Thread‌ ، بعد از اجرا این متد با استفاده از متد Exit ( مربـوط به Thread نیست ) از رویداد OnExecute خارج شد ( دستور Exit در دلفی برای خروج از یک رویه ( تابع یا ... ) به کار می رود ) :

procedure MyThread.Execute;

begin

Synchronize(doProgress);

…

MyThread.Terminate;

Exit;

end;

توجه داشته باشید که در قسمتهای مختلف کد باید چک کنید که آیا Terminated مربوط به Thread مقدار True دارد یا خیر و اگر مقدار True داشت با استفاده از دستور Exit از رویداد خارج شوید :

procedure MyThread.Execute;

begin

if MyThread.Terminated then

Exit;

…

if MyThread.Terminated then

Exit;

…

MyThread.Terminate;

Exit;

end;

علاوه بر موارد بالا می توانید از متد WaiteFor استفاده نمایید ، متد WaiteFor تا زمانی که کار Thread‌ به پایان برسد کارش تمام نخواهد شد ، درواقع می توانید کد Exit را بعد از این متد بنویسید تا خیالتان از بابت پایان کار Thread راحت شود ! :

procedure MyThread.Execute;

begin

if MyThread.Terminated then

Exit;

…

if MyThread.Terminated then

Exit;

…

MyThread.Terminate;

MyThread.WaiteFor;

Exit;

end;

پایان ...

 

پاسخ : استفاده از Thread ها در دلفی ...

زمانی که یک Thread ایجاد میکنیم اگر لازم باشه از متدها یا اشیای برنامه اصلی استفاده بشه باید حتماً کد مورد نظر در یک پروسیجر یا تابع نوشته بشه و سپس اون رو توسط متد Syncronize صدا بزنیم. این نکته ای هستش که ادیتور دلفی موقع ایجاد یک Thread Object به صورت کامنت بهش اشاره میکنه:
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
[/TD]
[TD="class: code"]{ Important: Methods and properties of objects in VCL or CLX can only be used
in a method called using Synchronize, for example,

Synchronize(UpdateCaption);

and UpdateCaption could look like,

procedure myTred.UpdateCaption;
begin
Form1.Caption := 'Updated in a thread';
end; }

[/TD]
[/TR]
[/TABLE]


احتمالاً این به منظور Safe بودن Thread گفته شده ولی سوال اینجاست که پس چرا انجام این کار تا حدودی باعث قفل شدن برنامه اصلی میشه و در واقع مقصود اصلی از بکارگیری Thread رو برآورده نمیکنه؟
برای اینکه این بتونید منظورم رو بفهمید کافیه داخل Thread تابعی مثل Sleep رو استفاده کنید و بعد از صدا زدن Thread در برنامه اصلی یک ShowMessage بکار ببرید تا ببینید چی میشه.
اتفاقی که میوفته اینه که پنجره ی دستور ShowMessage باز میشه ولی داخلش دکمه ی OK و متن وجود نداره! تا زمانی که اجرای Thread به پایان برسه.

 

پاسخ : استفاده از Thread ها در دلفی ...

متناسب با نوع کار Thread تان یک یا چند Message جدید تعریف می کنید، مثلا:
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
[/TD]
[TD="class: code"]const
TM_MYTHREAD_MSG = WM_USER + 200;
TM_MYTHREAD_START = TM_MYTHREAD_MSG + 1;
TM_MYTHREAD_PROGRESS = TM_MYTHREAD_MSG +2;
TM_MYTHREAD_DONE = TM_MYTHREAD_MSG +3;

[/TD]
[/TR]
[/TABLE]


بعد در داخل کد Threadتان هر جا که لازم بود، این پیام ها را با استفاده از PostMessage به Thread اصلی می فرستید (مثلا به فرم اصلی برنامه یا به هر پنجره دیگه ایی)، مثلا:
[TABLE]
[TR]
[TD="class: gutter"]1
2
[/TD]
[TD="class: code"]PostMessage(FormHandle, TM_MYTHREAD_MSG, TM_MYTHREAD_START,0);

[/TD]
[/TR]
[/TABLE]


در Thread اصلی، یک Message Handler برای این پیام ها می نویسید و پیام را در آن پردازش می کنید، مثلا:
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
[/TD]
[TD="class: code"]TMyForm = class(TForm)
...
protected
procedure TmMyThreadMsg(var Msg: TMessage); message TM_MYTHREAD_MSG;
...
end;

----

procedure TMyForm.TmMyThreadMsg(var Msg: TMessage);
begin
case Msg.LParam of
TM_MYTHREAD_START : Progressbar1.Position := 0;
TM_MYTHREAD_PROGRESS : Progressbar1.Position := Progressbar1.Position + 1;
TM_MYTHREAD_DONE : Progressbar1.Position := Progressbar1.Max;
end;
end;

[/TD]
[/TR]
[/TABLE]

 

پاسخ : استفاده از Thread ها در دلفی ...

روش استفاده از terminateو ... که توضیح داده شده برای مواقعی که به صورت زیر استفاده شود
[TABLE]
[TR]
[TD="class: gutter"]1
2
3
4
5
6
7
8
9
10
11
12
[/TD]
[TD="class: code"]var
T : MyThread;
begin
try
T := MyThread.Create(True);
T.FreeOnTerminate := True;
T.Resume;
finally
t.terminate
end;

[/TD]
[/TR]
[/TABLE]



(ببخشید کدها دقیق نیستن) یعنی یک thread در یک متد فراخوانی و اجرا و terminate بشه. اگر لازم باشد که یک thread خاص در یک پروسه دیگر terminate بشه چطور؟ تا جایی که من میدونم یه thread فقط در زمان اجرا یه id داره که اونم تغییر می کنه

 

پاسخ : استفاده از Thread ها در دلفی ...

کد یونیت مربوط به thread :


unit Unit12;



interface

uses

classes,stdctrls,sysutils,Myclasses, Mycall, windows;



type

InitializeThread = class(TThread)

private

i:integer;

ss:string;

procedure setlabel;

procedure localdbconnect;

procedure hostdbconnect;

procedure settingvalues;

procedure settingqueries;



public

//------------

protected

procedure execute; override;



end;



implementation



uses unit1,unit2,unit3,unit4;

//-------------------------------------------------------------------

procedure InitializeThread.setlabel;

begin

WelcomeForm.LabelStatus.Caption:=ss;

end;

//-------------------------------------------------------------------

procedure InitializeThread.settingvalues;

begin



DataModule1.MyConnection_Host.Database:=LoginForm. sEdit4.Text;

DataModule1.MyConnection_Host.Password:=LoginForm. sEdit6.Text;

DataModule1.MyConnection_Host.Username:=LoginForm. sEdit5.Text;

DataModule1.MyConnection_Host.Server:=LoginForm.sE dit3.Text;



DataModule1.MyConnection_Local.Database:=LoginForm .sEdit8.Text;

DataModule1.MyConnection_Local.Password:=LoginForm .sEdit10.Text;

DataModule1.MyConnection_Local.Username:=LoginForm .sEdit9.Text;

DataModule1.MyConnection_Local.Server:=LoginForm.s Edit7.Text;

end;

//-------------------------------------------------------------------

procedure InitializeThread.localdbconnect;

begin



try

DataModule1.MyConnection_Local.Connect;

except

on e:EMyError do

begin

if e.ErrorCode = 1045 then MessageBox(Handle,'.äÇã ˜ÇÑÈÑí íÇ ˜áãå ÚÈæÑ Ïæã ÇÔÊÈÇå ÇÓÊ','!ÎØÇ',MB_OK+MB_ICONERROR);

if e.ErrorCode = 2003 then MessageBox(Handle,'.ÂÏÑÓ íÇ äÇã ÓÑæÑ Ïæã ÇÔÊÈÇå ÇÓÊ','!ÎØÇ',MB_OK+MB_ICONERROR);

if e.ErrorCode = 1049 then MessageBox(Handle,'.äÇã ÈÇä˜ ÇØáÇÚÇÊí Ïæã ÇÔÊÈÇå ÇÓÊ','!ÎØÇ',MB_OK+MB_ICONERROR);

if e.ErrorCode = 2013 then MessageBox(Handle,'.ÊáÇÔ ÈÑÇí ÇÑÊÈÇØ ÈÇ ÓÑæÑ Ïæã ÈíÔ ÇÒ ÍÏ ãÞÑÑ Èå Øæá ÇäÌÇãíÏ','!ÎØÇ',MB_OK+MB_ICONERROR);

end;

end; //local except



end;

//-------------------------------------------------------------------

procedure InitializeThread.hostdbconnect;

begin



try

DataModule1.MyConnection_Host.Connect;

except

on e:EMyError do

begin

if e.ErrorCode = 1045 then MessageBox(Handle,'.äÇã ˜ÇÑÈÑí íÇ ˜áãå ÚÈæÑ Çæá ÇÔÊÈÇå ÇÓÊ','!ÎØÇ',MB_OK+MB_ICONERROR);

if e.ErrorCode = 2003 then MessageBox(Handle,'.ÂÏÑÓ íÇ äÇã ÓÑæÑ Çæá ÇÔÊÈÇå ÇÓÊ','!ÎØÇ',MB_OK+MB_ICONERROR);

if e.ErrorCode = 1049 then MessageBox(Handle,'.äÇã ÈÇä˜ ÇØáÇÚÇÊí Çæá ÇÔÊÈÇå ÇÓÊ','!ÎØÇ',MB_OK+MB_ICONERROR);

if e.ErrorCode = 2013 then MessageBox(Handle,'.ÊáÇÔ ÈÑÇí ÇÑÊÈÇØ ÈÇ ÓÑæÑ Çæá ÈíÔ ÇÒ ÍÏ ãÞÑÑ Èå Øæá ÇäÌÇãíÏ','!ÎØÇ',MB_OK+MB_ICONERROR);

end;

end; //host except



end;

//-------------------------------------------------------------------

procedure InitializeThread.settingqueries;

begin

DataModule1.MyQuery_Local1.Close;

DataModule1.MyQuery_Local1.SQL.Text:='select count(*) as row_c_l from products';

DataModule1.MyQuery_Local1.Open;



DataModule1.MyQuery_Host1.Close;

DataModule1.MyQuery_Host1.SQL.Text:='select count(*) as row_c_h from products';

DataModule1.MyQuery_Host1.Open;



{ if DataModule1.MyQuery_Local1.FieldValues['row_c_l']=DataModule1.MyQuery_Host1.FieldValues['row_c_h'] then

ShowMessage('equal') else ShowMessage('unequal');

}



end;



//-------------------------------------------------------------------

procedure InitializeThread.execute;

begin

ss:='Setting databases connection values.';

Synchronize(setlabel);

Synchronize(settingvalues);



ss:='Connecting local database...';

Synchronize(setlabel);

Synchronize(localdbconnect);



ss:='Connecting host database...';

Synchronize(setlabel);

Synchronize(hostdbconnect);



ss:='Comparing local and remote databases...';

Synchronize(setlabel);

Synchronize(settingqueries);



Terminate;

Exit;



end;

//-------------------------------------------------------------------



end.کد مربوط به فراخوانیش :


procedure TLoginForm.sBitBtn1Click(Sender: TObject);

var

myTH : InitializeThread;

begin

WelcomeForm.Show;



try

myTH:=InitializeThread.Create(true);

myTH.FreeOnTerminate:=true;

myTH.Resume;

except

on e:Exception do ShowMessage(e.Message);

end;



end;با کلیک بر روی دکمه ای که در بالا رویداد onclick ش رو نوشتم فرم welcome نمایش داده میشه و بعد thread اجرا میشه. اما نتیجه خوب نیست. فقط وقتی که بانک روی هاست کانکت میشه،