Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÖÐActiveX ºÍ Web

http://book.77169.com/data/web5302/20050228/20050228__3692503.html
ActiveX ºÍ Web
ÔÚWindows ²Ù×÷ϵͳÏ£¬ÓÐÒ»¸öÖØÒªµÄ»úÖÆ£¬¾ÍÊÇOLE £¬¾ÍÊÇ¿ÉÒÔÈÃij
¸öÓ¦ÓóÌÐò£¨OLE Controller£©·ÃÎÊÆäËüÓ¦ÓóÌÐò£¨OLE Server£©ËùÌṩµÄ
¹¦ÄÜ£¬ÕâÑù×öµÄºÃ´¦ÊÇ£¬Èç¹ûÒѾ­ÓÐÁËÍê³ÉijÏÄܵijÌÐò£¬Äã¾Í²»±ØÔÙΪ
ijÏÄܱàÐ´ÌØ¶¨ ......

Delphi±í´ïʽ

function ExpCalc(exp: string): string;
var
vScript: Variant;
begin
vScript := CreateOleObject('ScriptControl');
vScript.Language := 'VBScript';
Result := vScript.Eval(exp);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
s:=ExpCalc('100 *4.17/0.5*(55. ......

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

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

delphi×¢²á±í²Ù×÷ÍêÈ«ÊÖ²á

32λDelphi³ÌÐòÖпÉÀûÓÃTRegistry¶ÔÏóÀ´´æÈ¡×¢²á±íÎļþÖеÄÐÅÏ¢¡£
¡¡¡¡Ò»¡¢´´½¨ºÍÊÍ·ÅTRegistry¶ÔÏó
¡¡¡¡1.´´½¨TRegistry¶ÔÏó¡£ÎªÁ˲Ù×÷×¢²á±í£¬Òª´´½¨Ò»¸öTRegistry¶ÔÏó£ºARegistry := TRegistry.Create£»
¡¡¡¡2.ÊÍ·ÅTRegistry¶ÔÏó¡£¶Ô×¢²á±í²Ù×÷½áÊøºó£¬Ó¦ÊÍ·ÅTRegistry¶ÔÏóËùÕ¼Äڴ棺ARegistry.Destroy¡£
¡¡¡¡¶þ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ