Çë½Ì϶®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£¬°Ñ»Øµ÷º¯ÊýµØÖ·´«½øÈ¥¼
Ïà¹ØÎÊ´ð£º
ÈçºÎʵÏÖdelphi Ìá½»±íµ¥
ÎÒµÄ˼·ÊÇ webbrowser1 ´ò¿ª ¹È¸è
È»ºó Êó±ê µã»÷µ½ ËÑË÷ÀïÃæ
È»ºó ÊäÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö È»ºó µã»÷ ËÑË÷
ÎÒÏÖÔÚ¾ÍÊÇ ÈçºÎ ÌíÈë ÒªËÑË÷µÄ¹Ø¼ü×Ö ²»» ......
const
WM_REFRESH_USERS = WM_USER + 330;
type
TRefreshParam = (rpRefreshAll, rpAppendItem, rpDeleteItem);
PCmdRec = ^TCmdRec;
TCmdRec = record
&nbs ......
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ÔËÐÐʱ»á±¨ ......
ÏÖÔÚÓиöÎļþ£¬Îļþ±È½Ï´ó£¬ÐèÒªÖ±½ÓǶÈëµ½exeÖУ¬ÔÚ³ÌÐòÖÐʹÓ㨷Ç×ÊÔ´ÎļþÐÎʽµÄǶÈ룩
×îºóʵÏÖµÄЧ¹ûÀàËÆÓÚÕâÑù¡£
ÆäÖÐÎļþµÄÄÚÈÝÖ±½ÓǶÈëµ½ÁË´úÂë¶Î1Ö®ºó£¬¼ÙÉèÎļþÄÚÈݵÄÊ×µØÖ·ÊÇaddr£¬ÄÇôÔÚ´ú ......