+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ملتي ثريدينق في دلفي xe (/showthread.php?tid=3748)
ملتي ثريدينق في دلفي xe - onexite - 02-01-2012
السلام عليكم
لاستخدام الثريد استخدم هذا
PHP كود :
procedure TForm1.SpeedButton5Click(Sender: TObject);
var TID : DWORD;
hThread : Hwnd;
begin
hThread := CreateThread(nil,0,@procd,nil,0,TID);
CloseHandle(0);
end;
كيف لي ان احدد عدد الثريد ؟ وهل البرنامج يعمل بتسلل اذا كان اكثر من ثريد ؟
كيف يتم اغلاق الثريدعن الانتهاء وكلوس هندل(0) هل يعني هذا ان مقبض الثريد = 0 ؟ دائما ؟
البرنامج يعمل لايكن عند نهاية البرسدير يضهر خطا من السيستم رقمه 5 !! ; والبرنامج ينتهي
![[صورة: 20120102151806.jpg]](http://img542.imageshack.us/img542/923/20120102151806.jpg)
ملتي ثريدينق في دلفي xe - onexite - 02-01-2012
هل هذه الكتابة صحيحة ؟
هل عدم تحرير الثريد يشكل مشكل ؟ او انه يتحرر بانتهاء مهمته ؟
PHP كود :
var
TID : DWORD;
hThread : Hwnd;
begin
try
hThread := CreateThread(0,0,@proc,0,0,TID);
//WaitForSingleObject(hThread, INFINITE);
finally
closehandle(hThread);
end;
ملتي ثريدينق في دلفي xe - kachwahed - 06-01-2012
وعليكم السلام ورحمة الله
هناك أنماط ودوال جاهزة عوض Windows API
ومع ظهور ملامح تعدد المنصات (في XE2) يستحسن الابتعاد عن API 32bit
إقتباس :هل عدم تحرير الثريد يشكل مشكل ؟ او انه يتحرر بانتهاء مهمته ؟انظر:
http://www.delphi4arab.net/forum/showthread.php?tid=2131
مواضيع في المنتدى حول ذلك، أنظر:
http://www.delphi4arab.net/forum/showthread.php?tid=2706
بالتوفيق.