Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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µÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ


DelphiµÚÈý·½¿Ø¼þ°²×°Ð¶ÔØÖ¸ÄÏ
 
»ù±¾°²×°
1¡¢¶ÔÓÚµ¥¸ö¿Ø¼þ£¬Componet-->install component..-->PAS»òDCUÎļþ-->install;
2¡¢¶ÔÓÚ´ø*.dpkÎļþµÄ¿Ø¼þ°ü£¬File-->Open(ÏÂÀ­Áбí¿òÖÐÑ¡*.dpk)-->install¼´¿É£»
3¡¢¶ÔÓÚ´ø*.bplÎļþµÄ¿Ø¼þ°ü£¬Install Packages-->Add-->bplÎļþÃû¼´¿É£»
4¡¢Èç¹ ......

¡¶Delphi Ëã·¨ÓëÊý¾Ý½á¹¹¡·: Êý¾Ý¶ÔÆë

ΪÁ˼ӿìÓ²¼þµÄ·ÃÎÊËÙ¶È, ±àÒëÆ÷ͨ³£ÒªÊ¹ÓÃ"Êý¾Ý¶ÔÆë", Æ©Èç:
//ÏÂÃæ½á¹¹ÖÐ: 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 ͨ¹ýMSHTMLʵÏÖÒ»¸öHTML½âÎöÀà

×î½ü¾­³£»áÄ£ÄâÍøÒ³Ìá½»·µ»ØÍøÒ³Ô´Â룬Ȼºó»ñµÃÍøÒ³ÖÐÏàÓ¦µÄÔªËØ£¬ÓÚÊÇÐèÒª³£³£½âÎöHtmlÖÐÏàÓ¦µÄ¸÷ÖÖÔªËØ£¬ÍøÂçÊǸöºÃ¶«Î÷£¬ËÑË÷Ò»·¬£¬¾ÍÕÒµ½ÁË
ºÃ¼¸¸öDelphi°æ±¾µÄHtmlParserµÄÀà¿â£¬ÊÔ×ÅʹÓÃÁ˼¸¸ö£¬·¢ÏÖ½âÎöÆðÀ´¶¼²»ÍêÕû£¬»ò¶à»òÉٵĻسöÏÖһЩÎÊÌ⣡ÓÚÊÇÏëµ½ÁËÈç¹û½çÃæÉÏÓÐÒ»¸öä¯
ÀÀÆ÷£¬ÎÒÃÇ¿ÉÒÔͨ¹ýWebBrowserµÄDocu ......

DelphiÖÐʹÓÃDirectX½ØÆÁº¯Êý


ת×Ô£ºhttp://www.52delphi.com/List.asp?ID=597&Page=1
¡¡¡¡ºËÐÄÌáʾ£ºº¯ÊýÐèÒª uses Direct3D9,D3DX9; żȻ·¢ÏÖÒ»¸öº¯Êý¿ÉÒÔÖ±½Ó±£´æ±íÃæµ½Îļþ1£¡ËùÒÔÐÞ¸ÄÁËһϣ¬º¯ÊýΪ£º...
procedure CaptureScreen(Const FileName: string);
var
BitsPerPixel: Byte;
pD3D: IDirect3D9;
pSurface: IDirect3DSurface9;
......

delphi¿ª·¢ocx¿Ø¼þ¿ª·¢±Ê¼Ç£¨Ò»£©

      ÓÉÓÚÏîÄ¿µÄÐèÒª£¬½üÆÚ¿ªÊ¼Ñ§Ï°ÓÃdelphi¿ª·¢Ò»¸öÈíµç»°¿Ø¼þ¡£
      ÒÔǰ½Ó´¥¹ýһЩdelphi¿ª·¢·½ÃæµÄ¶«Î÷£¨µ±È»¶¼ÊÇЩƤëÀ²£©£¬µ«Ã»½Ó´¥¹ýocx¿Ø¼þµÄ¿ª·¢£¬Ôڴ˰ÑһЩ¼òµ¥µÄ¶«Î÷¼ÇÏÂÀ´£¬Ò»·½ÃæÒÔºó×Ô¼º¿ÉÒÔÔÙѧϰ£¬ÁíÒ»·½ÃæÏ£Íû¶Ô¸Õ¸Õѧϰdelphi¿ª·¢ocx¿Ø¼þµÄ³õѧ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ