همه چيز در مورد Theard ها ( تمامي سوالات و بحث ها در اين تاپيك )

راستش من اصلا كار با Theard ها را بلد نيستم لذا از دوستان مي خوام كه اگر ممكن است در مورد سوالات زير كه براي اكثر ماها پيش مي ياد يه توضيح بدهند :

1-چگونه يك يا چند Theard بسازم يا سرعت هاي متفاوت و نام هاي دلبخواه ؟
2-چگونه هر Theard را Pause كنم يا متوقف كنم و دوباره فعال كنم ؟
3-چگونه Theard را از طريق برنامه ام از بين برده يا خراب كنم ؟
4-چگونه مي توانم Theard دلخواهم را كنترل كنم مثلا مي خواهم هنگامي كه Button دلخواهم كليك شد مثلا Theard 1 دستورات Button مذكور را اجرا كند نه خود Button !!! يعني محتويات Button داخل Theard باشد و اگر Theard مرده بود يا از بين رفته بود يا متوقف شده بود يه پيغام نشون بده ؟
5-چگونه مي توان تشخيص داد كه Theard فعال هست يا خير ( متوقف شده يا خير ) ؟
6-آيا مي توان Theard مخفي ساخت ؟ ( آيا Theard ها قابل مشاهده توسط يوزر هستند ؟) .
7-آيا مي توان Theard ي ساخت كه بعد از مدتي مشخص از بين برود يا فعال شود يا دستوري خاص را اجرا كند ؟ ( مثل تايمر )
8-آيا مي توان Theard ي ساخت كه به هيچ عنوان از حافظه خارج نشود مگر توسط برنامه ي خودش ؟
9-چگونه مي توان توسط هر Theard يك شي از فرم يا پروژه يمان را كنترل كرد مثلا مي خواهم هنگامي كه كاربر Button1 را كليك كرد Theard 1 اجرا بشه و دستورات مورد نظرم را اجرا كند و بعد از اجراي دستورات دوباره متوقف شود ؟

سلام مرتضی جان.
بیا اینو بخون. فارسیه. جواب خیلی از سوالات اونجاست.

کد:

---

http://www.mediafire.com/?nlztxfjq7ju

---

این مقاله بهت کمک میکنه اولین Thread خودت رو درست کنی.
بحث همزمان سازی یا synchronization را هم گفته.

اما درمورد سوال 6 فکر نکنم بشه Thread ها را به راحتی مخفی کرد.با دیباگرها میشه Thread های برنامه را دید.

در مورد سوال 8 هم باید بگم این کار امکان پذیره .
منتها حواست باشه چون ممکنه CPU منفجر بشه . اونم قابل کنترله.

موفق باشی.

ممنون ولي من هنوز با ساختنش مشكل دارم مي شه يه سورس قرار بديد براي موارد بالا ؟
اين مقاله هم خيلي خوب بود فقط اي كاش سورسش را هم مي گذاشتيد ( سورس مواردي كه در مقاله آموزش داده شده بود )‌ !

نقل قول:

---

آيا مي توان Theard ي ساخت كه به هيچ عنوان از حافظه خارج نشود مگر توسط برنامه ي خودش ؟

---

در حالت عادی هم همین اتفاق میافته، و Thread از حافظه خارج نمیشه. البته همیشه کاربری که سطح دسترسی Admin داشته باشه، میتونه با فراخوانی تابع TerminateThread، یک Thread را متوقف کنه.

نقل قول:

---

در مورد سوال 8 هم باید بگم این کار امکان پذیره .
منتها حواست باشه چون ممکنه CPU منفجر بشه .

---

این جواب ربطی به سوال بالا نداره. بودن Thread در حافظه ربطی به CPU نداره.
سیستم عامل همواره لیستی از Threadهای در حال اجرا را در یک صف نگهداری میکنه، و به ترتیب کنترل CPU را برای یک مدت زمان معین به تک تک آنها میده. هر زمان که وقت یک Thread تمام شد، سیستم عامل به زور کنترل CPU را از آن Thread میگیره و به Thread بعدی میده. اون Thread هم اگر کارش تمام نشده باشه، به انتهای صف منتقل میشه و منتظر میمانه تا نوبتش برسه. این کار در فاصله زمانی بسیار کوتاهی انجام میشه، و کاربر تصور میکنه که برنامه ها بطور همزمان در حال اجرا هستند.
Threadایی که احتیاج به زمان بیشتری داشته باشه، یا کارش مهم تر باشه، میتونه Priority خودش را متناسب با Priority مربوط به Process خودش، بالاتر ببره. البته در User Mode همیشه Thread مربوط به مدیر حافظه ویندوز بالاترین سطح priority را داره تا هر وقت لازم شد، بتونه کنترل CPU را از Threadهای دیگه بگیره.

نقل قول:

---

7-آيا مي توان Theard ي ساخت كه بعد از مدتي مشخص از بين برود يا فعال شود يا دستوري خاص را اجرا كند ؟ ( مثل تايمر )

---

بله.

نقل قول:

---

4-چگونه مي توانم Theard دلخواهم را كنترل كنم مثلا مي خواهم هنگامي كه Button دلخواهم كليك شد مثلا Theard 1 دستورات Button مذكور را اجرا كند نه خود Button !!! يعني محتويات Button داخل Theard باشد و اگر Theard مرده بود يا از بين رفته بود يا متوقف شده بود يه پيغام نشون بده ؟

---

تصوری که از مفهوم Thread دارید اشتباه هست. Thread یک مسیر اجرای کد هست. هر برنامه حداقل یک Thread داره که Thread اصلی برنامه هست. Thread اصلی برنامه مسئول کنترل رابط گرافیکی کاربر هست. وقتی شما یک Thread جدید درست می کنید، در واقع یک مسیر اجرای جدید ایجاد می کنید. سیستم عامل براساس Threadها CPU را زمان بندی میکنه، نه بر اساس برنامه ها، پس اگر برنامه ایی Threadهای فعال بیشتری داشته باشه، میتونه سهمش از رمان CPU را افزایش بده. مثل این هست که شما در یک اتوبان در یک ترافیک سنگین گیر کرده باشید، اگر تعداد لاین های اتوبان افزایش پیدا کنه، ماشین های بیشتری می تونند به طور همزمان از اتوبان عبور کنند. حالا اگر شما چند ماشین داشته باشید، در یک جاده تک بانده، همه ماشین های شما در ترافیک گیر می کنند، ولی در یک جاده دو یا چند بانده، اگر در یک باند هم ترافیک ایجاد بشه، سایر باندها هنوز آزاد هستند، پس اگر شما چند ماشین داشته باشید که هر کدام در یک باند حرکت می کنند، اگر یکی از ماشین ها در ترافیک گیر کنه، سایر ماشین ها می تونند همچنان به حرکت خودشان ادامه بدند.

سلام .

طبق معمول اشتباه از ما،تصحیح از شما.

سوال:

متد Execute تو Thread ما به پایان میرسه.اما Thread رو آزاد نکردیم(برنامه هم بسته نشده)
آیا در این حالت میشه بازم متد Execute رو اجرا کنیم یا باید حتما یه شی جدید بسازیم؟

یه سوال دیگه:

اگر Thread را آزاد نکرده باشیم و برنامه هم درحال اجرا باشه،سیستم عامل با اون Thread چطور برخورد میکنه؟


با تشکر فراوان.

نقل قول:

---

متد Execute تو Thread ما به پایان میرسه.اما Thread رو آزاد نکردیم(برنامه هم بسته نشده)
آیا در این حالت میشه بازم متد Execute رو اجرا کنیم یا باید حتما یه شی جدید بسازیم؟

---

خیر. کلاس TThread دلفی صرفا یک Wrapper برای Threadهای ویندوز هست. وقتی متد Execute به پایان میرسه، Thread ویندوزی که ساخته شده بود هم از کار میافته، و باید یک نمونه جدید از TThread ساخته بشه. برای تسهیل در کار آزاد سازی شی ساخته شده از TThread، بعد از پایان Execute، می تونید خصوصیت FreeOnTerminate آن را True کنید، تا بعد از پایان یافتن Execute، اون شی از TThread هم آزاد بشه.
اگر می خواید که Thread پایان پیدا نکنه، باید در Execute یک حلقه بی نهایت داشته باشید که در مواقع عادی Thread را به خواب ببره، و در زمانی که کاری برای Thread بوجود آمد، آن کار را انجام بده.

نقل قول:

---

اگر Thread را آزاد نکرده باشیم و برنامه هم درحال اجرا باشه،سیستم عامل با اون Thread چطور برخورد میکنه؟

---

به ظاهر برنامه بسته میشه، ولی اگر Task Manager را باز کنید، می بینید که تا زمانی که اجرای Thread تمام نشده، Process همچنان در حافظه هست.
برای جلوگیری از این کار، باید قبل از پایان برنامه به Thread اطلاع داده بشه که کارش را تموم کنه، برنامه هم صبر کنه تا Thread کارش تمام بشه، بعد خارج بشه.

موفق باشید

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

نقل قول:

---

نوشته شده توسط picher_s [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

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

---

سلام. خیر دوست عزیز ارتباطی ندارند. قبلا سورس کامل گذاشته شده. جستجو کنید

نقل قول:

---

اگه کسی سرسی چیزی در مورد Mutex ها هم داره لطفا همینجا بزاره آخه میفکرم به هم ربط داشته باشن.

---

نقل قول:

---

خیر دوست عزیز ارتباطی ندارند.

---

ربط دارند. Mutex ها یکی از انواع مختلف Synchronization Objects هستند که سیستم عامل برای همزمان سازی بین Threadها ارائه میکنه. Mutex ها در برابر Critical Sectionها سربار بیشتری به برنامه تحمیل می کنند، ولی این قابلیت را دارند که بین چند Process به اشتراک گذاشته بشند. Critical Section را فقط می توان در داخل یک Process استفاده کرد.

برای اطلاعات بیشتر، باید درباره مبحث Thread Synchronization یا Synchronization Objects تحقیق کنید.

ممنون اطلاعات کاملی بود. این هم برای دوستان عزیز:

کد:

---

http://www.delphi3000.com/articles/article_4447.asp?SK=

---

دوستان لطفا از تمامي مباحث ذكر شده در بالا نمونه سورس قرار بديد .

سلام.
پیشنهاد (در تحقیقات) من استفاده از Component JvThread هست که در مجموعه JCL+JVC وجود داره .
مثالش هم همراهشه.
اینم یه سورس که دلیل استفاده از Thraed ها رو میگه:

کد:

---

unit BackTaskForm;
interface
uses
  SysUtils, Types, Classes, Variants, Graphics, Controls,
  Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    Button2: TButton;
    Button3: TButton;
    LBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}

{function local to the unit}
function IsPrime (N: Integer): Boolean;
var
  Test: Integer;
begin
  IsPrime := True;
  for Test := 2 to N - 1 do
    if (N mod Test) = 0 then
    begin
      IsPrime := False;
      break; {jump out of the for loop}
    end;
end;
const
  Max = 100000;
procedure TForm1.Button1Click(Sender: TObject);  // Plain
var
  I, Tot: Integer;
begin
  Tot := 0;
  for I := 1 to Max do
  begin
    if IsPrime (I) then
    Begin
      Tot := Tot + I;
      LBox1.Items.Add(IntToStr(i))
    End;
    ProgressBar1.Position := I * 100 div Max;
  end;
  ShowMessage ('Plain-> '+IntToStr (Tot));
end;
procedure TForm1.Button2Click(Sender: TObject);  // App.ProcMsg
var
  I, Tot: Integer;
begin
  Tot := 0;
  for I := 1 to Max do
  begin
    Begin
      Tot := Tot + I;
      LBox1.Items.Add(IntToStr(i))
    End;
    ProgressBar1.Position := I * 100 div Max;
    Application.ProcessMessages;
  end;
  ShowMessage ('App.ProcMsg -> '+IntToStr (Tot));
end;
// custom thread class
type
  TPrimeAdder = class(TThread)
  private
    FMax, FTotal,FCurrent, FPosition: Integer;
  protected
    procedure Execute; override;
    procedure ShowTotal;
    procedure UpdateProgress;
    procedure UpdateListBox;
  public
    property Max: Integer read FMax write FMax;
  end;

procedure TPrimeAdder.Execute;
var
  I, Tot: Integer;
begin
  Tot := 0;
  for I := 1 to FMax do
  begin
    Begin
      Tot := Tot + I;
      FCurrent:=i;
      Synchronize(UpdateListBox);
    End;
    if I mod (fMax div 100) = 0 then
    begin
      FPosition := I * 100 div fMax;
      Synchronize(UpdateProgress);
    end;
  end;
  FTotal := Tot;
  Synchronize(ShowTotal);
end;

procedure TPrimeAdder.ShowTotal;
begin
  ShowMessage ('Thread: ' + IntToStr (FTotal));
end;

procedure TForm1.Button3Click(Sender: TObject);  //Thread
var
  AdderThread: TPrimeAdder;
begin
  AdderThread := TPrimeAdder.Create (True);
  AdderThread.Max := Max;
  AdderThread.FreeOnTerminate := True;
  AdderThread.Priority:=tpHigher;
  AdderThread.Resume;
end;

procedure TPrimeAdder.UpdateProgress;
begin
  Form1.ProgressBar1.Position := fPosition;
end;

procedure TPrimeAdder.UpdateListBox;
begin
  Form1.LBox1.Items.Add( IntToStr(FCurrent) );
end;

end.

---

با تشکر از فرهاد
موفق و پیروز باشی.