Çë½Ì϶®delphi¶àÏ̵߳ĴóÏÀÃÇ£¡
ÎÒÓà socket ½ÓÊÕµ½NO ,½ÓÊÕµ½Ò»¸öNO¾Íͨ¹ýCarthread:=TCarthread.create(NO) ;´´½¨Ò»¸öỊ̈߳¬
ÊDz»ÊǽÓÊÕµ½¶à¸öNO£¬¾Í»á´´½¨¶à¸öÏß³ÌÄØ£¿
Èç¹ûÕâÑùµÄ»°ÎÒ½ÓÊÕµ½NOΪEE,ÓÚÊÇ´´½¨Ò»¸öỊ̈߳¬¹ýÁËÒ»»áSOCKETÓÖ½ÓÊÕµ½NOΪBB£¬ÓÚÊÇÓÖ´´½¨Ò»¸öỊ̈߳¬ÔÙ¹ýÁËÒ»»áÓÖ½ÓÊÕµ½NOΪEE£¬´ËʱÎÒÏëÖÕÖ¹²¢ÊÍ·ÅEEỊ̈߳¬Õâ¸öÖÕÖ¹¾ßÌåµÃÔõÃ´Ð´ÄØ£¿
¸Õ×¢²áµÄÕ˺ţ¬Ã»·Ö°¡£¬²»ºÃÒâ˼@
ÊDz»ÊǽÓÊÕµ½¶à¸öNO£¬¾Í»á´´½¨¶à¸öÏß³ÌÄØ£¿
ÊÇ
´ËʱÎÒÏëÖÕÖ¹²¢ÊÍ·ÅEEỊ̈߳¬Õâ¸öÖÕÖ¹¾ßÌåµÃÔõÃ´Ð´ÄØ£¿
²Î¿¼Ò»ÏÂdelphiµÄdemo
°ÑÏ̷߳ŵ½ÁбíÖУ¬È»ºóÖð¸öÊÍ·Å£¡
delphiµÄdemo¹ØÓÚ¶àÏ̵߳ÄÖ»ÓÐÒ»¸öÅÅÐòµÄѽ£¬Carthread.destroy(EE);ÕâÑùÐв»£¿
ÊÇÕâÑùµÄ£¬socket½ÓÊÕÐźţ¬Èç¹ûÐźÅΪ£¨¿ªÊ¼£¬NO£©£¬Ôòµ¥¶À¿ªÒ»Ï̲߳»¶Ï²É¼¯³µºÅΪNOµÄ³µµÄÐźţ¬Ö±µ½½ÓÊÕµ½£¨½áÊø,NO£©£¬²ÅÖÕÖ¹²¢ÊÍ·ÅÕâỊ̈߳¬NOÊǸö±äÁ¿¡£Õâ¸öÒªÔõô²ÅÄÜ"°ÑÏ̷߳ŵ½ÁбíÖУ¬È»ºóÖð¸öÊÍ·Å£¡"˵Ïêϸµã£¬ºÃÂð£¿ÎÒÐÂÊÖ£¬²»Ì«¶®£¡Ð»Ð»£¡
°ÑÏ̷߳ŵ½ÁбíÖУ¬È»ºóÖð¸öÊÍ·Å
List.add(Thread.create)
Ïß³ÌÊýÁ¿ÊÇÓÐÏÞÖÆµÄ°É
ÎÒÐèÒªµÄÊÇÖÕÖ¹ºÍÊÍ·ÅÌØ¶¨µÄÏß³Ìѽ@²»ÊÇÒªÖð¸öÊÍ·Å£¡
ÊýÁ¿²»ÊǺܴó£¡
²»Ïë´´½¨Ï߳̾ÍÓÃwindowsµÄÏ̳߳أ¬Ö±½ÓÓÃqueueuserworkitem£¬°Ñ»Øµ÷º¯ÊýµØÖ·´«½øÈ¥¼
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
//ÎÒÔÚtype¶¨ÒåÒ»¸ötmyarray
type
tmyarray= array[0..255] of integer;
...
function myfun1(a:integer):tmyarray;
function myfun2(pt:array of integer):boolean;
//myfun2 ÒªÓõ½ ......
type
myclass=class //¶¨ÒåÒ»¸öÀà
procedure mypro (var x:integer);//´´½¨¹ý³Ì·½·¨
function myfun (var x:integer):integer;//´´½¨º¯Êý·½·¨
end;
function myclass.myfun(var x:integer) ......
ÔÚ³ÌÐòÖУ¬ÎÒÒ»°ãʹÓÃ
try
...
except
...
end
À´Ê¹Ò»Ð©Êý¾Ý¿â·½ÃæµÄ´íÎó²»µ¯³öÀ´¡£¡£¡£
ÔÚ±àÒëºÃµÄ³ÌÐò£¬µ¥¶ÀÍÑÀëIDEÔËÐÐʱ£¬ÊDz»»áÓдíÎ󱨳öµÄ¡£
µ«ÊÇÔÚIDEϰ´F9ÔËÐÐʱ»á±¨ ......