Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

¹ØÓÚ Delphi TThread

TThreadÊÇÒ»¸ö³éÏóÀà,ÓÃÓÚÔÚdelphiÖд´½¨Ï̡߳£
´´½¨Ò»¸öTThreadµÄ×ÓÀà¶ÔÏó¼´Ï൱ÓÚ´´½¨Ò»¸öÏ̡߳£¡¡¡¡
µ±Ò»¸öÓ¦ÓóÌÐòÔËÐÐʱ£¬Ó¦ÓóÌÐò¾Í±»ÔØÈëÄÚ´æ×¼±¸Ö´ÐС£´Ëʱ£¬Ëü³ÉΪ°üº¬Ò»¸ö»ò¶à¸öÏ̵߳Ľø³Ì¡£Ïß³ÌÖ´ÐÐÓ¦ÓóÌÐòµÄ²¿·ÖÄÚÈÝ£¬²¢ÓɲÙ×÷ϵͳ·ÖÅäCPUʱ¼ä¡£Í¬Ò»½ø³ÌµÄËùÓÐÏ̹߳²ÏíͬһµØÖ·¿Õ¼ä£¬¿ÉÒÔ·ÃÎʽø³ÌµÄÈ«¾Ö±äÁ¿¡£
Ïß³Ìͨ¹ýÒÔϹ¤×÷¸ÄÉÆÓ¦ÓõÄÐÔÄÜ£º
       ¹ÜÀí¶àͨÐÅÉ豸µÄÊäÈë¡£
¡¡¡¡ Çø·ÖÈÎÎñµÄÓÅÏȼ¶¡£ÓÅÏȼ¶¸ßµÄ´¦Àí½ô¼±µÄÈÎÎñ¡£ÓÅÏȼ¶µÍµÄ´¦ÀíÆäËûÈÎÎñ¡£
ÒÔÏÂÊÇʹÓÃÏ̵߳ÄһЩ½¨Ò飺
¡¡¡¡ ͬʱ¸ú×ÙÌ«¶àµÄÏß³ÌÏûºÄCPUʱ¼ä¡£¶Ôµ¥´¦ÀíÆ÷ϵͳ£¬Ò»¸ö½ø³Ì×î¶àÓÐ16¸öÏ̡߳£
¡¡¡¡ µ±¶à¸öÏ̸߳üÐÂÏàͬµÄ×ÊԴʱ£¬Ó¦Ê¹Ïß³Ìͬ²½ÒÔ±ÜÃâ³åÍ»¡£
¡¡¡¡ ´ó¶àÊý·ÃÎÊVCL¶ÔÏóºÍ¸üд°ÌåµÄ·½·¨±ØÐë´ÓÖ÷Ïß³ÌÄÚ²¿µ÷Óá£
¡¡¡¡ ÒÔÏÂΪ´´½¨ºÍʹÓÃÒ»¸öÐÂÏ̵߳Ĺý³Ì£º
¡¡¡¡ £¨1£©µ¥»÷File|New|Thread²Ëµ¥Ï´´½¨Ò»¸öTThreadµÄ×ÓÀà¡£
¡¡¡¡ £¨2£©¶¨ÒåCreate·½·¨¡£
¡¡¡¡ £¨3£©Í¨¹ý²åÈëÏß³ÌÖ´ÐÐʱÐèÒªµÄ´úÂ붨ÒåExecute·½·¨¡£
¡¡¡¡ £¨4£©½«Ê¹ÓÃVCL×é¼þµÄÈκε÷Óô«µÝ¸øSynchronize·½·¨£¬ÒÔ±ÜÃâ¶àÏ̳߳åÍ»¡£
ÊôÐÔÁбí
FreeOnTerminate Ïß³ÌÖÕֹʱ¸Ã¶ÔÏóÊÇ·ñ×Ô¶¯É¾³ý
Handle Ï߳̾ä±ú
Priority È·¶¨¸ÃÏß³ÌÏà¶ÔÓÚ½ø³ÌÖÐÆäËûÏ̵߳ÄÓÅÏȼ¶
ReturnValue ·µ»ØÏß³ÌÖµ
Suspended ָʾһÏß³ÌÊÇ·ñ±»¹ÒÆð
Terminated ±íÃ÷Ï̱߳»ÒªÇóÖÕÖ¹
ThreadID Identifies the thread throughout the system.
·½·¨Áбí
~TThread ɾ³ýÏ̶߳ÔÏó²¢ÊÍ·ÅÆäÕ½ÓõÄÄÚ´æ¿Õ¼ä
DoTerminate ²úÉúÒ»¸öOnTerminateʼþ
Execute Ìṩ°üº¬Ïß³ÌÖ´ÐÐʱËùÐè´úÂëµÄ³éÏó·½·¨
Resume ÖØÐÂÖ´ÐÐÒ»¸ö¹ÒÆðµÄÏß³Ì
Suspend ¹ÒÆðÒ»¸öÔËÐÐÖеÄÏß³Ì
Synchronize ÔÚÖ÷VCLÏß³ÌÖÐÖ´ÐÐMethod
Terminate ½«TernimatedÊôÐÔÉèÖÃΪTrue֪ͨÏß³ÌÖÕÖ¹
TThread ´´½¨Ò»¸öÏ̶߳ÔÏóµÄʵÀý
WaitFor µÈ´ýÏß³ÌÖÕÖ¹²¢·µ»ØReturnValueÊôÐÔÖµ
ʼþÁбí
OnTerminate     Execute ·½·¨ÒÑ·µ»ØÇÒ¸ÃÏ̱߳»É¾³ýǰ·¢Éú
ÊôÐÔ
TThread::FreeOnTerminate
__property bool FreeOnTerminate = {read=FFreeOnTerminate,write=FFreeOnTerminate,nodefault};
È·¶¨µ±Ïß³ÌÖÕֹʱ£¬¸ÃÏ̶߳ÔÏóÊÇ·ñ×Ô¶¯É¾³ý¡£
FreeOnTerminateĬÈÏֵΪFalse£¬Ï̶߳ÔÏó±ØÐëÔÚ´úÂëÖÐÏÔʾɾ³ý¡£
TThread::Handle°üº¬Ï߳̾ä±ú¡£µ±µ÷ÓÃWin32APIº¯Êý´¦ÀíÏß³Ìʱ£¬Ê¹ÓÃHandle.
Thread::Priority
_


Ïà¹ØÎĵµ£º

Delphi CRC32УÑé

ÍøÉÏDownµÄÒ»¸öµ¥Ôª.×Ô¼º¸ÄÁËÏÂ. unit utCRC32;
interface
uses
Windows,SysUtils,Classes;
const //Crc32±í
Crc32Tab: Array[0..$FF] of LongInt =
($00000000, $77073096, $ee0e612c, $990951ba, $076dc419, $706af48f,
$e963a535, $9e6495a3, $0edb8832, $79dcb8a4, $e0d5e91e, $97d2d988,
$0 ......

DelphiÏÂʵÏÖ°üº¬Í¨Åä·ûµÄÎı¾²éÕÒ

±¾ÎÄ×îÔçÔÚ±à³ÌÂÛ̳ÉÏ·¢±í£¬ÎÄÕµØÖ·£ºhttp://programbbs.com/bbs/view12-21351-1.htm£¬Ïà¹ØÎļþ¿ÉÒÔÔÚÉÏÊöµØÖ·µÄÒ³ÃæÖÐÏÂÔØ¡£×ªÔØÊ±Çë×¢Ã÷³ö´¦¡£
Ò»¡¢Ç°ÑÔ
ͨÅä·û¾ÍÊÇÖ¸“*”ºÍ“?”Á½¸ö×Ö·û£¬“*”±íʾµ±Ç°Î»ÖÿÉÒÔûÓлòÕßÓжà¸öÈÎÒâ×Ö·û£»“?”±íʾµ±Ç°Î»ÖÃÓÐÒ»¸öÈÎÒâ×Ö·û¡£ ......

Delphi ¶¯Ì¬´´½¨´°¿ÚµÄ¼¸ÖÖ·½·¨

  ·½·¨1£º¿ÉдΪº¯Êý£¬ÔÙµ÷ÓÃ
  Application.CreateForm(TForm1, Form1);
  Form1.ShowModal;
  Form1.Free;
  ·½·¨2£º
  Form1:= TForm1.Create(Application);
  try
     Form1.ShowModal;
  finally
     ......

Delphi Êý×éºÍ½á¹¹Ìå

¼¼Êõ½»Á÷,DH½²½â. ¼ÇµÃºÜÔç֮ǰÎÒ¾Í˵¹ý,Êý×éºÍ½á¹¹ÌåÔÚÄÚ´æÖÐÆäʵһÑùµÄ,ËûÃǶ¼ÊÇÁ¬Ðø·Ö²¼µÄ.
ÀýÈç: TMyStruct = record
A,B,C:Integer;
end;
T3IntArray = array[0..2]of Integer;
ÕâÁ½¸ö¶¼Õ¼12×Ö½Ú,¶øÇÒTMyStruct.A¾ÍÊÇT3IntArray[0].

¶øÎÒÃÇÖªµÀÔÚ·ÃÎÊÊý×éÖÐij¸öÔªËØµÄʱºò,Ö»ÊÇÔÚµ ......

delphi ¿ì½Ý¼üµÄʹÓÃ

CTRL+SPACE ´úÂ벹ȫ£¬ºÜºÃÓõÄ(ÏȸÄÁËÊäÈë·¨Èȼü)
CTRL+SHIFT+C ±àдÉêÃ÷»òÕß²¹ÉϺ¯Êý
CTRL+SHIFT+↑(↓) ÔÚ¹ý³Ì¡¢º¯Êý¡¢Ê¼þÄÚ²¿, ¿ÉÌøÔ¾µ½ÏàÓ¦µÄ¹ý³Ì¡¢º¯Êý¡¢Ê¼þµÄ¶¨Ò壨ÔÚINTERFACEºÍIMPLEMENTATIONÖ®¼äÀ´»ØÇл»£©
CTRL+SHIFT+G ²åÈëGUID
CTRL+J (µ¯³öDELPHIÓï¾äÌáʾ´°¿Ú£¬Ñ¡ÔñËùÐèÓï¾ä½«×Ô¶¯Íê³ÉÒ»Ìõ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ