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

DelphiµÄSocket±à³ÌÒª·Ö¼¸²½£¿

DelphiµÄSocket±à³ÌÒª·Ö¼¸²½£¿
2008-12-20 02:03:24
¡¡±êÇ©£ºDelphi Socket ±à³Ì¡¡¡¡¡¡[ÍÆË͵½¼¼ÊõȦ]
ClientSocket ºÍServerSocket
¼¸¸öÖØÒªµÄÊôÐÔ:   
1.clientºÍserver¶¼ÓÐportÊôÐÔ£¬ÐèÒªÒ»Ö²ÅÄÜ»¥ÏàͨÐÅ   
2.clientÓÐAddressÊôÐÔ,ʹÓÃʱÌîд¶Ô·½(server)µÄIPµØÖ·   
    
¼¸¸öÖØÒªµÄʼþ:   
    client:    OnReadʼþ£¬µ±clientÊܵ½³å»÷ÏûϢʱÔÚOnReadʼþÖпÉÒÔ»ñµÃserver·¢Ë͹ýÀ´ÏûÏ¢¡£   
    Server:     OnClientReadʼþ£¬ÓëÉÏÊöclientµÄ×÷ÓÃÏàͬ   
    
·¢ËÍÐÅÏ¢£º   
    clienʹÓÃSocketClient1.Socket.SendBuf(charÀàÐ͵ÄÊý×é,ÐÅÏ¢³¤¶È);   
    serverʹÓÃSocketServer1.Socket.Connection[0].SendBuf(charÀàÐ͵ÄÊý×é,ÐÅÏ¢³¤¶È);   
    
½ÓÊÕÐÅÏ¢   
     clienʹÓÃSocketClient1.Socket.ReceiveBuf(charÀàÐ͵ÄÊý×é,ÐÅÏ¢³¤¶È);   
     serverʹÓÃSocketServer1.Socket.Connection[0].ReceiveBuf(charÀàÐ͵ÄÊý×é,ÐÅÏ¢³¤¶È);   
    
ʹÓÃsockets
         Socket ¿Ø¼þÈÃÄ㽨Á¢Ò»¸öÀûÓÃTCP/IPºÍÓйصÄЭÒéÓëÆäËûϵͳ½øÐÐͨÐŵÄÓ¦Óá£Ê¹ÓÃSockets£¬ÄãÄܹ»¶ÁºÍдͨ¹ýËüÁ¬½ÓµÄÆäËû»úÆ÷£¬¶ø²»Óõ£ÐÄʵ¼ÊµÄÍøÂçÈí¼þµÄÏà¹ØÏ¸½Ú¡£SocketsÌṩ»ùÓÚTCP/IPЭÒéµÄÁ¬½Ó¡£³ý´ËÒÔÍ⻹ÄܺܺõŤ×÷£¬ÔÚÆäËûÏà¹ØµÄЭÒé¡£   
         Delphi ÌṩÄãÐ´ÍøÂç·þÎñÆ÷»ò¿Í»§Ó¦ÓóÌÐòÈ¥¶ÁºÍдÆäËûµÄϵͳ¡£Ò»¸ö·þÎñ»ò¿Í»§³ÌÐòͨ³£×¨×¢ÓÚÒ»¸öµ¥Ò»µÄ·þÎñÈ糬Îı¾´«ËÍЭÒ飨HTTP)»òÎļþ´«ÊäЭÒé (FTP)¡£Ê¹ÓÃserver           sockets,Ò»¸öÓ¦ÓóÌÐò¿ÉÒÔÌṩÕâЩ·þÎñÖеÄÒ»¸öÈ¥Á¬½ÓÒ»¸öÏ£ÍûʹÓ÷þÎñµÄ¿Í»§³ÌÐò¡£Client           socketsÔÊÐíÒ»¸öÓ¦ÓÃʹÓÃÕâЩ·þÎñÖеÄÒ»¸öÈ¥Á¬½ÓÌṩÕâ¸ö·þÎñµÄ·þÎñÓ¦Ó


Ïà¹ØÎĵµ£º

DelphiͼÏñ´¦Àí ͼÏñ¸ß˹ģºý´¦Àí£¨¸Ä½ø°æ£©

     ÎÒÔÚÎÄÕ¡¶DelphiͼÏñ´¦Àí -- ͼÏñ¾í»ý¼°¸ß˹ģºý¡·ÖУ¬½éÉÜÁËÀûÓÃͨÓõÄͼÏñ¾í»ý¹ý³Ì¶ÔͼÏñ½øÐиß˹ģºý´¦Àí£¬Æä´¦ÀíЧ¹û»¹²»´í£¬´¦ÀíСÐÍͼÏñʱ¸Ð¾õÒ²»¹ÐУ¬µ«ÊÇ´¦Àí½Ï´óͼÏñʱµÄËÙ¶È»¹ÊÇÏÓÂý£¬ÔÚÎÒµÄP4 2.8G¡¢1GÄÚ´æµÄ»úÆ÷É϶ÔǧÍòÏñËØÍ¼Ïñ½øÐÐQ=3£¬R=5µÄ¸ß˹ģºý´¦Àí£¬²»°üÀ¨Í¼Ïñ×°ÔØºÍǰÆÚÊý ......

Ò»¸ö·½±ãÓÐÓõÄDelphiÊý¾Ý¿â²Ù×÷Àà(ת)

unit MyADO;
interface
uses
SysUtils, Classes,ADODB,DB,Variants,StdCtrls,Dialogs;
type
TMyADO = class(TComponent)
    private
    Connection: TADOConnection;
    Query: TADOQuery;
    Table: TADOTable;
    FConnectio ......

Delphiº¯ÊýºÍ¹ý³Ì

     ¹ý³ÌÎÞ·µ»ØÖµ£¬º¯ÊýÓзµ»ØÖµ¡£
     procedure MyProc(m,n : Integer; o : String; p : Single = 2.5; q : String = 'Delphi');
     ÈçÉÏÀýËùʾ£¬¹ý³ÌÉùÃ÷ºÍ¶¨ÒåÖУ¬¶à¸ö²ÎÊýÊÇÓ÷ֺŸô¿ªµÄ£¬µ«ÔÚµ÷ÓÃʱÊÇÓöººÅ¸ô¿ªµÄ ¡£eg£º
  ......

Delphiµ÷ÓÃExcelµÄÆäËü¼¼ÇÉ

1>ÏòÖ¸¶¨µÄÇøÓò»òÐÎ×´Ìí¼Ó³¬Á´½Ó¡£
Óï·¨
±í´ïʽ.Add(Anchor, Address, SubAddress, ScreenTip, TextToDisplay)
±í´ïʽ   Ò»¸ö´ú±í Hyperlinks ¶ÔÏóµÄ±äÁ¿¡£
²ÎÊý
Ãû³Æ±ØÑ¡/¿ÉÑ¡Êý¾ÝÀàÐÍÃèÊö
Anchor
±ØÑ¡
Object
³¬Á´½ÓµÄλÖ᣿ÉΪ Range »ò Shape ¶ÔÏó¡£
Address
±ØÑ¡
String
³¬Á´½ÓµÄµØÖ ......

ÓÃDELPHI´´½¨DLLÎļþ£¬·â×°´°ÌåµÄʵÏÖ·½·¨ÊµÀý

ËäÊÇÔ­´´£¬µ«ÊÇÊDzο¼¹ý±ðÈ˵Ä×÷Æ·£¬È»ºó×Ô¼ºÖØÐÂдµÄ£¬Ä¿µÄÊÇÒª¸ø³õѧÕßÒ»¸ö¸üÈÝÒ×Ã÷°×¡£
ÓÃDELPHI´´½¨DLLÎļþ£¬·â×°´°ÌåµÄʵÏÖ·½·¨ÊµÀý£º
¼´Ò»¸ö³ÌÐò²»ÔÙÊǵ¥Ò»µÄÒ»¸öEXEÎļþÁË£¬¶øÊÇÓÉÒ»¸öEXEÎļþ¼ÓN¸öDLLÎļþ×é³É£¬ÕâÑù×öµÄÔ­ÒòÊÇ·½±ãÒÔºóµÄά»¤Óë¸üУ¬Ò²ÊÇ¿çÆ½Ì¨¿ª·¢µÄÖØÒªÒ»²½¡£
1£¬ ´ò¿ªDELPHI£¬Ð½¨Ò»¸öDl ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ