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(°´Å¥)£¬Êܿػú¾ÍÖØÐÂÆô¶¯ÁË¡£Ô¶³Ì¿ØÖÆ»úÆ
Ïà¹ØÎĵµ£º
Èç¹û²ÎÊýÔÚº¯ÊýÖв»¿ÉÄÜÐÞ¸Ä, Ò»¶¨ÒªÊ¹Óà const;
²»È», ±àÒëÆ÷¾Í»á:
¼Ù¶¨ÏÈÐÞ¸Ä, ÏÈÒª±¸·Ý; ʹÓÃǰºóÒªÔö¼õÒýÓüÆÊý; »¹ÒªÌ×ÉÏ try finally.
Ö¸¶¨ÁË const ¾Í¿ÉÒÔ±ÜÃâÒÔÉϹý³Ì´Ó¶øÌá¸ßЧÂÊ.
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs ......
unit
Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class
(TForm)
Button1: TButton;
Button2: TButton;
procedure
Button1Click(Sender: TObject);
procedure
Button2Click(Sender: TObj ......
JNI(Java+Native+Interface£¬Java±¾µØ½Ó¿Ú)¼¼Êõ´ó¼Ò¶¼²»Ä°Éú£¬Ëü¿ÉÒÔ°ïÖú½â¾öJava·ÃÎʵײãÓ²¼þµÄ¾ÖÏÞºÍÖ´ÐÐЧÂʵÄÌá¸ß¡£¹ØÓÚJNIµÄ¿ª·¢£¬´ó¶àÊý×ÊÁÏÌÖÂ۵ͼÊÇÈçºÎÓÃC/C++ÓïÑÔ¿ª·¢JNI£¬ÉõÖÁÓÚJDKÒ²ÌṩÁËÒ»¸öjavah¹¤¾ßÀ´×Ô¶¯Éú³ÉCÓïÑÔ³ÌÐò¿ò¼Ü¡£µ«ÊÇ£¬¶ÔÓÚ¹ã´óµÄDelphi³ÌÐòÔ±À´Ëµ£¬ÄѵÀ¾Í²»ÄÜÓÃ×Ô¼ºÏ²°®µÄDelphiÓëJava»¥Í¨Ïû ......
Anders Hejlsberg(°²µÂ˹-º£É²©¸ñ) ×øÔÚ×Ô¼ºµÄ°ì¹«ÊÒ£¬Ë«ÑÛÖ±Ö±µÄ¶¢×Åǰ·½¡£ËûÒª×öÒ»¸ö¾ö¶¨£¬¾ö¶¨×Ô¼ºÎ´À´µÄÃüÔ˺ÍÀíÏë¡£ÕâÊÇ1996ÄêÒ»¸öÆÕͨµÄÏÂÎ磬¼¸¸öСʱǰ£¬Ëû¸ÕÓë±È¶û-¸Ç´Ä½áÊøÁËÒ»´ÎÓä¿ìµÄÎç²Í£¬Í¬ÎªÈí¼þ½çµÄ¾«Ó¢£¬ËûÃÇÏà̸Éõ»¶£¬¸Ç´Ä¸øËû¿ª³öÈý°ÙÍòÒÔÉϵÄÄêнºÍÊýÍò¹ÉµÄ΢Èí¹ÉƱ¡£ÕâÊÇÒ»¸öÓÕÈË ......
×î½ü¾³£»áÄ£ÄâÍøÒ³Ìá½»·µ»ØÍøÒ³Ô´Â룬Ȼºó»ñµÃÍøÒ³ÖÐÏàÓ¦µÄÔªËØ£¬ÓÚÊÇÐèÒª³£³£½âÎöHtmlÖÐÏàÓ¦µÄ¸÷ÖÖÔªËØ£¬ÍøÂçÊǸöºÃ¶«Î÷£¬ËÑË÷Ò»·¬£¬¾ÍÕÒµ½ÁË
ºÃ¼¸¸öDelphi°æ±¾µÄHtmlParserµÄÀà¿â£¬ÊÔ×ÅʹÓÃÁ˼¸¸ö£¬·¢ÏÖ½âÎöÆðÀ´¶¼²»ÍêÕû£¬»ò¶à»òÉٵĻسöÏÖһЩÎÊÌ⣡ÓÚÊÇÏëµ½ÁËÈç¹û½çÃæÉÏÓÐÒ»¸öä¯
ÀÀÆ÷£¬ÎÒÃÇ¿ÉÒÔͨ¹ýWebBrowserµÄDocu ......