delphiÔõÑùʵÏÖÔ¶³Ì¿ØÖÆ(ת)
½«Ô¶³Ì¿ØÖÆÓ¦ÓÃÓÚ½ÌѧÖУ¬ÒѳÉΪĿǰ¼ÆËã»ú»¯½ÌѧµÄÖØÒªÊֶΡ£Ò»¶¨ÓкܶàµÄÍø³æÏëÁ˽âÕâÖÖÍøÂç½Ìѧ·½Ê½µÄ±à³ÌÔÀí°É¡£ÔÚ´ËÎÒÃǾÍÒÔÒ»¸ö¼òµ¥µÄÔ¶³Ì¿ØÖƳÌÐò×÷ΪʾÀý£¬ËµÃ÷ÕâÖÖÍøÂç±à³ÌµÄ»ù±¾ÔÀí¡£±¾³ÌÐòÒÔDelphi±à³ÌΪÀý¡£
¡¡¡¡Æäʵ¸Ã³ÌÐòµÄ¹¤×÷»úÖÆºÜ¼òµ¥£¬Êܿط½ÔËÐÐÒ»¸ö³ÌÐò£¬ÓÃÓÚÕìÌý¶Ë¿Ú²¢½ÓÊÕÊý¾Ý°ü£¬¶øÖ÷¿Ø·½Í¨¹ý¶Ë¿Ú¸øÊܿط½µÄ¶Ë¿Ú·¢ËÍÊý¾Ý°ü¡£¸ù¾ÝÕâ¸öÔÀí£¬ÎÒÃDZàдÁ½¸ö³ÌÐò£¬Ò»¸öÊÇ¿ØÖÆ·½µÄ£¬¶øÁíÒ»¸öÊÇÊܿط½µÄ£¬°ÑÕâÁ½¸ö³ÌÐòÔËÐÐÔÚÁ½Ì¨²»Í¬µÄ»úÆ÷ÉÏ£¬ÊܿػúµÈ´ý¿ØÖÆ»ú·¢Ë͹ýÀ´µÄÊý¾ÝÈ»ºóÖ´ÐÐÏàÓ¦µÄ²Ù×÷(Èç±¾ÀýÖеÄÖØÆô)¡£
¡¡¡¡DelphiÖÐÓÐÁ½Àà¿Ø¼þ¿ÉÒÔʵÏÖÉÏÃæµÄÄ¿µÄ¡£Ò»ÀàÊÇ¿ØÖÆ·½Ê¹ÓÃClientSocket£¬Êܿط½Ê¹ÓÃServerSocket(¾ùÔÚInternetÒ³)£¬ÁíÒ»ÀàÊÇË«·½¶¼Ê¹ÓÃNMUDP(ÔÚFastNetÒ³)¡£ÎÒÃÇÖªµÀÍøÂç´«Êä¶¼ÊDz»¿É¿¿µÄ£¬Ò²¾ÍÊÇ˵´«ÊäµÄÊý¾ÝÓпÉÄܶªÊ§£¬¶øÕâÁ½Àà¿Ø¼þµÄÇø±ðÊÇǰÕßʹÓÃTCP(Transfer Control Protocol£¬´«Êä¿ØÖÆÐÒé)¡£TCPÐÒéÊÇÃæÏòÁ¬½Ó,ÿ´ÎË«·½½¨Á¢Á¬½Ó(»ò¶Ï¿ª)ʱÐè¾¹ýÈý´ÎÎÕÊÖ,½ÏΪºÄʱ£¬µ«Êý¾Ý´«Êä¿É¿¿£»¶øºóÕßʹÓÃUDP(User Datagram Protocol£¬Óû§±¨ÎÄÐÒé)£¬ËüÊÇÃæÏòÎÞÁ¬½ÓµÄ£¬·¢³öÊý¾Ý²»Ðè¶Ô·½È·ÈÏ£¬ÕâÑùËٶȱÈTCP¿ì£¬µ«Êý¾ÝÓпÉÄܶªÊ§£¬Òò´ËËü²»¿É¿¿¡£ÓÉÓÚ¿ØÖÆËùÐè´«Ë͵ÄÊý¾ÝÁ¿²»´ó£¬¶øÇÒÐèÒª½Ï¸ßµÄ¿É¿¿ÐÔ£¬Òò´ËÒ»°ãʹÓÃǰÕߣ¬³ÌÐò˵Ã÷ÈçÏ£º
¡¡¡¡µÚÒ»²½£¬¿ªÊ¼¿ØÖÆ·½³ÌÐò£¬ÔÚÆäÖмÓÈëclientsocket¿Ø¼þ£¬È¡Ãûcontrol£¬ÉèÖÃhostÊôÐÔΪÊܿػúipµØÖ·£¬portÊôÐÔΪ1234(¶Ë¿Ú¿ÉÒÔËæ±ãÉèÖ㬵«²»ÒªÓëһЩĬÈ϶˿ÚÖØ¸´£¬Èç80µÈ)¡£
¡¡¡¡µÚ¶þ²½£¬ÔÚFormCreateʼþÖмÓÈë´úÂëcontrol.open; //´ò¿ªÓëÊܿػúµÄͨÐÅ
¡¡¡¡µÚÈý²½£¬¼ÓÈë¸öButton£¬ÉèÖÃcaptionΪ“ÖØÐÂÆô¶¯”£¬²¢ÔÚButtonClickʼþÖмÓÈë´úÂëcontrol.Socket.SendText('reboot')£»//֪ͨÊܿػúÖØÐÂÆô¶¯¡£ÕâÑù¾ÍÍê³ÉÁË¿ØÖÆ·½µÄ¹¤×÷ÁË¡£
¡¡¡¡µÚËIJ½£¬¿ªÊ¼Êܿط½µÄ³ÌÐò£¬ÔÚÆäÖмÓÈëserversocket¿Ø¼þ£¬È¡Ãûundercontrol,ÉèÖÃportÊôÐÔΪ1234(Óë¿ØÖÆ·½µÄ¶Ë¿ÚÒ»ÖÂ)£¬activeÊôÐÔΪtrue£»
¡¡¡¡µÚÎå²½£¬ÔÚundercontrolµÄOnclientReadʼþÖмÓÈë´úÂëif Socket.ReceiveText='reboot' then
¡¡¡¡ExitWindowsEx(EWX_REBOOT,2); //ÖØÆôµÄAPIº¯Êý
¡¡¡¡ÕâÑù¾ÍÍê³ÉÁË´úÂëµÄ¹¤×÷£¬È»ºó±àÒëÕâÁ½¸ö³ÌÐòÉú³ÉÁ½¸ö.exeÎļþ·Ö±ð·ÅÔÚÁ½Ì¨»úÆ÷ÉÏÔËÐÐ(¼ÇµÃÏÈÔËÐÐWin98ϵÄÊܿػú³ÌÐò)£¬ÔÚ¿ØÖÆ»ú°´ÏÂ“ÖØÐÂÆô¶¯”µÄButton(°´Å¥)£¬Êܿػú¾ÍÖØÐÂÆô¶¯ÁË¡£Ô¶³Ì¿ØÖÆ»úÆ
Ïà¹ØÎĵµ£º
DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ
»ù±¾°²×°
1¡¢¶ÔÓÚµ¥¸ö¿Ø¼þ£¬Componet-->install component..-->PAS»òDCUÎļþ-->install;
2¡¢¶ÔÓÚ´ø*.dpkÎļþµÄ¿Ø¼þ°ü£¬File-->Open(ÏÂÀÁбí¿òÖÐÑ¡*.dpk)-->install¼´¿É£»
3¡¢¶ÔÓÚ´ø*.bplÎļþµÄ¿Ø¼þ°ü£¬Install Packages-->Add-->bplÎļþÃû¼´¿É£»
4¡¢Èç¹ ......
×î½ü¾³£»áÄ£ÄâÍøÒ³Ìá½»·µ»ØÍøÒ³Ô´Â룬Ȼºó»ñµÃÍøÒ³ÖÐÏàÓ¦µÄÔªËØ£¬ÓÚÊÇÐèÒª³£³£½âÎöHtmlÖÐÏàÓ¦µÄ¸÷ÖÖÔªËØ£¬ÍøÂçÊǸöºÃ¶«Î÷£¬ËÑË÷Ò»·¬£¬¾ÍÕÒµ½ÁË
ºÃ¼¸¸öDelphi°æ±¾µÄHtmlParserµÄÀà¿â£¬ÊÔ×ÅʹÓÃÁ˼¸¸ö£¬·¢ÏÖ½âÎöÆðÀ´¶¼²»ÍêÕû£¬»ò¶à»òÉٵĻسöÏÖһЩÎÊÌ⣡ÓÚÊÇÏëµ½ÁËÈç¹û½çÃæÉÏÓÐÒ»¸öä¯
ÀÀÆ÷£¬ÎÒÃÇ¿ÉÒÔͨ¹ýWebBrowserµÄDocu ......
רÃÅÕë¶ÔdelphiµÄ£¬Ç¶ÈëÔ´ÂëµÄ²¡¶¾
Èç¹ûÔÚ X:\Program Files\Borland\Delphi7\Lib ·¢ÏÖÓÐ SysConst.bak (12KB) ºÍ
SysConst.dcu (18KB)£¬ÄÇô¹§Ï²Ä㣬ÖÐÕÐÁË¡£
http://topic.csdn.net/u/20090817/20/102ba10b-82ae-472d-a0be-6d54ce6a331b.html
http://bbs.2ccc.com/topic.asp?topicid=330829
http://bbs.2ccc.com/top ......
//²ÉÓõݹ鷽·¨£¬D7±àÒëµ÷ÊÔͨ¹ý¡£
//Êý¾Ý²ÉÓÃADOQuery¶ÁÈ¡£¬²¢½«Êý¾ÝÔÝ´æÔÚÒ»¸ö¶¯Ì¬Êý×éÖУ¬Ê÷ÐÎÁÐ±í¿Ø¼þΪTreeView¡£
procedure TForm1.LoadTreeInfo;
type
TInfo = record
ID, //´úÂë
Name, //Ãû³Æ
&nb ......
TreeViewÓɽڵ㹹³É,½¨Ê÷ͨ¹ý¶ÔTreeView.itemsÊôÐÔ½øÐвÙ×÷¡£ItemsÊÇÒ»¸öTTreeNodes¶ÔÏó,ÕâÊÇÒ»¸öTTreeNode¼¯¡£
Ò»¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,ÓÐÕâЩÊôÐÔ:
1¡¢count,½Úµã¸öÊý¡£
2¡¢item[index] ,ͨ¹ýindexµÃµ½½Úµã¡£
¶þ¡¢Õë¶ÔTTreeNodes,Ò²¾ÍÊÇ TreeView.Items,³£ÓõÄÌí¼Ó½ÚµãµÄ²Ù×÷ ......