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ÈçºÎʹÓÃÖ¸Õ룿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌå
ÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ÕâÖÖ˵·¨Ò²ÈúܶàÈ˲úÉúÎó½â£¬ËƺõÖ»ÓÐCÓïÑÔµÄÖ¸Õë²ÅÄÜËãÖ¸Õë¡£Basic²»
Ö§³ÖÖ¸Õ룬Ôڴ˲»ÂÛ¡£Æäʵ£¬PascalÓïÑÔ±¾ÉíÒ²ÊÇÖ§³ÖÖ¸ÕëµÄ¡£´Ó×î³õµÄPasca ......
ΪÁ˼ӿìÓ²¼þµÄ·ÃÎÊËÙ¶È, ±àÒëÆ÷ͨ³£ÒªÊ¹ÓÃ"Êý¾Ý¶ÔÆë", Æ©Èç:
//ÏÂÃæ½á¹¹ÖÐ: SizeOf(TRec) = 6; ÒòΪ b ÔÚÕâÀïÒ²ÒªÕ¼ 2 ×Ö½Ú.
TRec = record
a: Word;
b: Byte;
c: Word;
end
;
//ÏÂÃæ½á¹¹ÖÐ: SizeOf(TRec) = 16; ÕâÀïµÄ a ºÍ b ¹²Õ¼ÁË 8 ¸ö×Ö½Ú.
TRec = record
a: Byte;
b: Byte;
c: Do ......
ÎÒʹÓÃdelphiÒ²²»ÊǺܳ¤Ê±¼ä£¬ÓÉÓÚ¾³£ÒªÓõ½SQLÓï¾ä£¬×ܽáÁËһЩDelphiÖÐʹÓÃSQLÓï¾äҪעÒâµÄÊÂÏ¹éÄÉÆðÀ´Ö÷ÒªÓÐһϼ¸Ìõ£º
Ò»¡¢¿Õ¸ñ²»ÒªÂ©£º
ÎÒÃǾ³£ÒªÆ´×°SQLÓï¾ä£¬ÌرðÊÇwhereÌõ¼þ¾ä£¬ÔÚ¸÷¸öÓï¾äÖбðÍüÁËͷβ¼ÓÉϿոñ¡£ÒòΪÔÚÒ»¸öÓï¾äÖÐÎÒÃÇ»á×¢ÒâÓÿոñ·Ö¿ª¹Ø¼ü×Öµ«ÊÇÍùÍùÍüÁËͷβµÄ¿Õ¸ñ¡£ÀýÈ磺
sSQL=' select ......
JNI(Java+Native+Interface£¬Java±¾µØ½Ó¿Ú)¼¼Êõ´ó¼Ò¶¼²»Ä°Éú£¬Ëü¿ÉÒÔ°ïÖú½â¾öJava·ÃÎʵײãÓ²¼þµÄ¾ÖÏÞºÍÖ´ÐÐЧÂʵÄÌá¸ß¡£¹ØÓÚJNIµÄ¿ª·¢£¬´ó¶àÊý×ÊÁÏÌÖÂ۵ͼÊÇÈçºÎÓÃC/C++ÓïÑÔ¿ª·¢JNI£¬ÉõÖÁÓÚJDKÒ²ÌṩÁËÒ»¸öjavah¹¤¾ßÀ´×Ô¶¯Éú³ÉCÓïÑÔ³ÌÐò¿ò¼Ü¡£µ«ÊÇ£¬¶ÔÓÚ¹ã´óµÄDelphi³ÌÐòÔ±À´Ëµ£¬ÄѵÀ¾Í²»ÄÜÓÃ×Ô¼ºÏ²°®µÄDelphiÓëJava»¥Í¨Ïû ......