Delphi ³ÌÐò×Ô¶¯Í˳ö
Îʸ÷λ´óÉñÒ»¸öÎÊÌ⣺ÏÖÔÚÎÒÓÐDelphi×öÁ˸ö·þÎñ¶Ë£¬ÆäÖÐʹÓõ½WinSock£¬¾ÍÊÇÔÚ×î½ü1¸öÔÂÀÏÊdzöÏÖ×Ô¶¯Í£Ö¹·þÎñ¶Ë³ÌÐò£¬²»ÖªµÀ¸÷λ´óÉñÓÐûÓÐÅö¹ýÀàËÆµÄÎÊÌâÄØ£¿Ö®Ç°¶¼ÊÇÕý³£µÄ¡£
´ÓÀ´Ã»Óöµ½¹ý,³ÌÐò¿Ï¶¨ÓÐbug Òª²»Ä㻻̨µçÄÔÊÔÒ»ÏÂ,È·ÈÏÒ»ÏÂÊDz»ÊÇϵͳÏà¹ØµÄÎÊÌâ ÒÔǰÓö¼û¹ýÀàËÆµÄ£¬ÊÇÒòΪÏß³Ìûͬ²½ºÃ¡£»¹ÓпÉÄÜÓж«Î÷ûÊÍ·ÅÍ꣬Òç³öÁË ¿Í»§ÄDZßÓõÄϵͳÊÇwindows 2003 enterprise,֮ǰµÄÊÇWindows2000ºÍÎÒÏÖÔÚµÄ2002ϵͳ¶¼²»»á³öÕâ¸öÎÊÌâ¡£ ßÀ£¬ÄDz»Çå³þÁË¡£½¨ÒéÔÚ³ÌÐò¿ÉÄܳö´íµÄµØ·½Ð´ÏÂÈÕÖ¾ ²»ÖªµÀ×î½üµÄwindowsϵͳij¸ö²¹¶¡¶ÔÆäÓÐûÓÐÓ°Ï죬Ҳ²»¶Ô°¡£¬ÎÒÕâ¸ö»úÆ÷µÄ²¹¶¡¶¼ÊÇÒ»Ö±¸üÐµİ¡ÒýÓà ²»ÖªµÀ×î½üµÄwindowsϵͳij¸ö²¹¶¡¶ÔÆäÓÐûÓÐÓ°Ï죬Ҳ²»¶Ô°¡£¬ÎÒÕâ¸ö»úÆ÷µÄ²¹¶¡¶¼ÊÇÒ»Ö±¸üÐµİ¡ ³¢ÊÔ¶Ô×Ô¼ºµÄ·þÎñ¶Ë×öÏ·Ƿ¨Êý¾ÝµÄÌá½»²â²â¿´£®¡¡ дÈÕÖ¾°ÉÒýÓà ¿Í»§ÄDZßÓõÄϵͳÊÇwindows 2003 enterprise,֮ǰµÄÊÇWindows2000ºÍÎÒÏÖÔÚµÄ2002ϵͳ¶¼²»»á³öÕâ¸öÎÊÌâ¡£ 2002ϵͳ£¬Ã»¼û¹ý£¬MSΪÄãµ¥¶À¿ª·¢µÄ£¿ ½¨Òé²ÉÓÃE EurekalogÀ´¸ú×Ùһϡ£ ¶ÔдÈÕÖ¾ÊÇ×îºÃµÄ°ì·¨ ¼Ç¼ÈÕÖ¾¿´¿´°É¡£
Ïà¹ØÎÊ´ð£º
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Â𣿠¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£ µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË É¶É¶ÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......
ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬ ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£ ¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£ ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer); var len,MaxDelete:Integer; P:PLongint; //4 ¸ö×ֽڵij¤ÕûÐÎÖ¸Õë begin P:=PLongint(A);// È¡µÄ A µÄ ......
×î½ü»»Á˼ҹ«Ë¾£¬ÓôÃÆµÄÊǹØÓÚDelphiµÄÎÊÌ⣬¹«Ë¾Ö®Ç°ÓõÄÒ²ÊÇD°æDelphi7ÆóÒµ°æµÄ¡£ºóÀ´±»ËÍÁËÂÉʺ¯ÒԺ󣬾ÍÇ¿ÖÆ¸ÄÓÃDelphi7¸öÈ˰棬¾ç˵Õâ¸ö°æ±¾ÊÇÃâ·Ñ°æ£¬»òÕß˵ºÜ±ãÒË£¬Èç¹û²é³öÀ´£¬¾ÍÂò¸öºÃÁË¡£ÕâÏ¿ɺ᣿àÁËÎ ......
Çë½ÌÒ»¸öÎÊÌ⣬ÏÖÔÚÓÐÒ»ÏîÄ¿ÐèÒª»æÖÆÇúÏßͼ£¬ ÒªÇ󣺣¨¿ÉÒÔÈÎÒâÑ¡Ôñºá×ø±ê£¨Ê±¼ä£©·¶Î§»³ö¶ÔÓ¦µÄÊý¾ÝÇúÏߣ¬×Ý×ø±ê×Ô¶¯ÓÅ»¯ÉèÖÃ(Ò²¿ÉÊÖ¹¤Ñ¡Ôñ)£¬¿ÉÒÔÔÚÈÎÒâʱ¼ä¶ÎÄÚ·Å´ó¡¢ËõСͼÐΣ¬Ä³¾ßÌåÊý¾ÝµãµÄ¶¨Î»¼°´ËÊý¾ÝµãµÄ ......