{"rsdb":{"rid":"179319","subhead":"","postdate":"0","aid":"130187","fid":"86","uid":"1","topic":"1","content":"<div id=\"cnblogs_post_body\">\n <p>\u627e\u4e86\u70b9\u8d44\u6599\u770b\u4e86\u4e0b\uff0c\u4e8e\u662f\u81ea\u5df1\u52a8\u624b\u505a\u4e86\u4e00\u4e2a\u7ec3\u4e60\u4e00\u4e0b\uff0c<\/p> \n <p>\u4e3b\u8981\u7528\u5230TServerSocket\u548cTClientSocket\u8fd9\u4e2a\u63a7\u4ef6\u3002<\/p> \n <p><span style=\"color: #0000ff; font-size: 14px;\">\u5ba2\u6237\u7aef:<\/span><\/p> \n <div class=\"cnblogs_Highlighter\"> \n  <pre class=\"brush:delphi;collapse:true;;gutter:true;\"><span style=\"font-size: 14px;\">var\r\n  Form1: TForm1;\r\n  NewTime:string;\r\n\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nbegin\r\n  ClientSocket1.Host:=Trim(Edit1.Text);      \/\/\u8fde\u63a5\u670d\u52a1\u7aef\u5730\u5740\r\n  ClientSocket1.Port:=57124;  \/\/\u8fde\u63a5\u7684\u7aef\u53e3\u53f7\r\n  ClientSocket1.Open;  \/\/\u5f00\u59cb\u8fde\u63a5\r\n  Button1.Enabled:=False;\r\nend;\r\n\r\nprocedure TForm1.ClientSocket1Read(Sender: TObject;\r\n  Socket: TCustomWinSocket);\r\n  var\r\n    Str:string;\r\nbegin\r\n    \/\/\u8bfb\u53d6\u670d\u52a1\u7aef\u53d1\u8fc7\u6765\u7684\u6570\u636e\r\n    str:=ClientSocket1.Socket.ReceiveText;\r\n    Memo1.Lines.Add(Str);\r\n\r\nend;\r\n\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nvar\r\n  Msg:string;\r\nbegin\r\n  Msg:=Trim(Edit2.Text);\r\n  Memo1.Lines.Add('\u738b\u56db:' + NewTime + #10);\r\n  Memo1.Lines.Add(Msg);\r\n  ClientSocket1.Socket.SendText('\u738b\u56db:' + NewTime +#13#10);\r\n  ClientSocket1.Socket.SendText(Msg); \/\/\u53d1\u9001\u7ed9\u670d\u52a1\u7aef\r\n\r\n\r\nend;\r\n\r\nprocedure TForm1.Timer1Timer(Sender: TObject);\r\nbegin\r\n   NewTime:=TimeToStr(Now);\r\n\r\nend;\r\n<\/span><\/pre> \n <\/div> \n <p>&nbsp;<\/p> \n <p><span style=\"color: #0000ff; font-size: 14px;\">\u670d\u52a1\u7aef:<\/span><\/p> \n <div class=\"cnblogs_Highlighter\"> \n  <pre class=\"brush:delphi;collapse:true;;gutter:true;\"><span style=\"font-size: 14px;\">var\r\n  Form1: TForm1;\r\n  NewTime:string;\r\n\r\nimplementation\r\n\r\n{$R *.dfm}\r\n\r\nprocedure TForm1.Button1Click(Sender: TObject);\r\nbegin\r\n  ServerSocket1.Port:=57124; \/\/\u76d1\u542c\u7aef\u53e3\r\n  ServerSocket1.Open;  \/\/\u5f00\u59cb\u76d1\u542c\r\n  Button1.Enabled:=False;\r\nend;\r\n\r\nprocedure TForm1.Button2Click(Sender: TObject);\r\nvar\r\n  Str:string;\r\n  i : integer;\r\nbegin\r\n  Str:=Trim(Edit2.Text);\r\n   for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do\r\n  begin\r\n    Memo1.Lines.Add('\u5f20\u4e09:' + NewTime + #10);\r\n    Memo1.Lines.Add(Str);\r\n    ServerSocket1.Socket.Connections[i].SendText('\u5f20\u4e09:' + NewTime +#13#10);    \/\/\u53d1\u9001\u6570\u636e\r\n    ServerSocket1.Socket.Connections[i].SendText(Str);\r\n  end;\r\n\r\nend;\r\n\r\nprocedure TForm1.ServerSocket1ClientRead(Sender: TObject;\r\n  Socket: TCustomWinSocket);   \/\/\u8bfb\u53d6\u5ba2\u670d\u7aef\u53d1\u6765\u7684\u6570\u636e\r\n  var\r\n    Msg:string;\r\nbegin\r\n  Msg:=Socket.ReceiveText;\r\n  Memo1.Lines.Add(Msg);\r\n\r\n\r\nend;\r\n\r\nprocedure TForm1.Timer1Timer(Sender: TObject);\r\nbegin\r\n  NewTime:=TimeToStr(Now);\r\nend;\r\n<\/span><\/pre> \n <\/div> \n <p>&nbsp;\u8fd0\u884c\u56fe\uff1a<\/p> \n <p><img src=\"https:\/\/www.cppentry.com\/upload_files\/article\/86\/1_wfzzr__.gif\" alt=\"\" \/><\/p> \n <p>&nbsp;<\/p>\n<\/div>","orderid":"0","title":"\u7f16\u5199\u7b80\u5355\u7684C\/S\u804a\u5929\u7a0b\u5e8f","smalltitle":"","mid":"0","fname":"Delphi","special_id":"0","bak_id":"0","info":"0","hits":"5129","pages":"1","comments":"0","posttime":"2017-10-10 12:07:26","list":"1507608446","username":"admin","author":"","copyfrom":"","copyfromurl":"","titlecolor":"","fonttype":"0","titleicon":"0","picurl":"https:\/\/www.cppentry.com\/upload_files\/article\/86\/1_wfzzr__.gif","ispic":"1","yz":"1","yzer":"","yztime":"0","levels":"0","levelstime":"0","keywords":"<A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%B1%E0%D0%B4' target=_blank>\u7f16\u5199<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%BC%F2%B5%A5' target=_blank>\u7b80\u5355<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=C%2FS' target=_blank>C\/S<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%C1%C4%CC%EC' target=_blank>\u804a\u5929<\/A> <A HREF='https:\/\/www.cppentry.com\/do\/search.php?type=keyword&keyword=%B3%CC%D0%F2' target=_blank>\u7a0b\u5e8f<\/A>","jumpurl":"","iframeurl":"","style":"","template":"a:3:{s:4:\"head\";s:0:\"\";s:4:\"foot\";s:0:\"\";s:8:\"bencandy\";s:0:\"\";}","target":"0","ip":"113.108.110.181","lastfid":"0","money":"0","buyuser":"","passwd":"","allowdown":"","allowview":"","editer":"","edittime":"0","begintime":"0","endtime":"0","description":"\u7f16\u5199\u7b80\u5355\u7684C\/S\u804a\u5929\u7a0b\u5e8f","lastview":"1713939664","digg_num":"706","digg_time":"0","forbidcomment":"0","ifvote":"0","heart":"","htmlname":"","city_id":"0"},"page":"1"}