"الان ماذا لو قمنا بنفس عمل نظام التشغيل داخل تطبيقاتنا ؟ يعني أن ننفذ العديد من العمليات بشكل متزامن في آن واحد (ظاهريا) !."

الشكل العام لإنشاء thread واحد كمثال أول , نعتمد على خصائص البرمجة poo بشكل عادي يعني إنشاء
class مورث من TThread في ديلفي .

PHP كود :

{$IFDEF VER150}//delphi 7
Type
 MyThread = Class (TTHread)
 Private
  _i:Byte;
 Protected
  Procedure DoSomeThing;
  Procedure Execute;OverRide;
 Public
  Constructor Create (Suspended:Boolean);
  Destructor Destroy;OverRide;
 End;
{$ENDIF}

var
  MainFrm: TMainFrm;
  MyTh :MyThread;

implementation

{$R *.dfm}

Constructor MyThread.Create;
Begin
Inherited Create(Suspended);//If False = start when we call create constructor !.
_i:= 0;//Initialization ...
End;

Destructor MyThread.Destroy;
Begin
//Set Object That Created Free ...
Inherited;//Call the oroginal Destructor (TThread Class).
End;

Procedure MyThread.Execute;
Begin
 repeat
   Sleep(100); //500 = 1/2 s
   Synchronize(DoSomeThing);
  until Terminated;
End;

{$X+}// Set extended syntax on

Procedure MyThread.DoSomeThing;
Begin
Inc(_i);
If _i <= 255 Then
MainFrm.Label3.Caption:= IntToStr(_i) Else
 _i:= 0;
End;

procedure TMainFrm.Button1Click(Sender: TObject);
begin
 MyTh:=MyThread.Create(False);
end;

procedure TMainFrm.Button2Click(Sender: TObject);
begin
Try
 MyTh.Suspend;
Except
 On E : Exception Do
  MessageBoxA(0,Pchar(E.Message),Nil,0);
 End;
end;

procedure TMainFrm.Button3Click(Sender: TObject);
begin
Try
 MyTh.Resume;
Except
 On E : Exception Do
  MessageBoxA(0,Pchar(E.Message),Nil,0);
 End
end;

procedure TMainFrm.Button4Click(Sender: TObject);
begin
 MyTh.Terminate;
 //finalization ...
 Label3.Caption:= '0';
 MainFrm.Button1.Enabled:= True;
end;

procedure TMainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 Button4Click(Sender);// THread Must Be Terminated!.
 ExitProcess(GetLastError);//Exit .
end;

initialization
 MyTh:=MyThread.Create(True);
finalization
 MyTh.Free;
end. 


التوجيه IFDEF هنا أظفته متعمدا لتحديد إصدار دلفي المعتمد في التطبيق يمكن تجاوزها (إظافة فقط) كما أني أظفت التوجيه $X
الدي يتيح لنا دمج الدوال و الإجراءات دون مراعات ترتيب الـ implementation (أيضا كإظافة:tong ,
قمنا بإدراج initialization / finalization يكفي أن نعمل Resume لبدأ تنفيذ Execute الخاص بالـ Thread آليا !.

شكرا بارك الله فيك ,,

1- لن أناقش مسئلة التحرير بل

وعليكم السلام ورحمة الله وبركاته
TF6M واليوم الخميس حان وقت درس نفيس
@Mohfa
أولا رد السلام
ثانيا: علينا أن نبتعد عن التفاصيل التي لن يفهمها كل من يدخل قسم "دروس دلفي للمبتدئين" لا تنسوا.

إقتباس :لماذا انشئت ال Thread في ال initialization وحررته في ال finalization

صح... أنا أيضا ظننت في البداية أنه قام بإنشاء thREad مرتين، وعندما حملت المثال اتضح خلاف ذلك
فالزر Button1 غير مفعل، حتى يتم Terminate للـ Thread.

كنت أعددت مثال صغير لتوضيح مفهوم Threads للمبتدئين، وبعد إذن أخي TF6M سأضيف توضيحات.

كود :

http://i42.tinypic.com/opyeww.jpg

حاول النقر على Go no Thread ثم ShowMessage مباشرة
الآن، حاول النقر على Exec Thread ثم على ShowMessage مباشرة
الفرق واضح
مبدئيا... Thread هي Process يقوم النظام بتشغيلها عوضا عن برنامجك، وبذلك تستفيد من مزايا زيادة السرعة واقتصاد الذاكرة.

كل Thread له priority تعني أولوية الـ Thread في النظام (وهذا مهم حالة وجود العديد منها).

تنبيه للمبتدئين: حذار الـ Threads ليست للعب! وينبغي التعامل معها بحذر.
مثال مرفق.

ملاحظة: في نسخة دلفي 2010 تم إضافة الأمر Start.
وشكرا على الدرس الرائع
وشكرا لتدخلات الأستاذ Mohfa
تحياتي.

إقتباس :[FONT=Arial]كما قلت لك أعدت إنشاءه فقط في حالة إيقافه يعني لا يمكن أن ننشأه مرتين

الفكرة كلها تتمحور حول إعادة إنشاء الـ Thread دون التأكد من تحريره