delphi tcpserver tcpclient网络通信

[qq_36272499]

[size=14px]procedure TForm1.FormShow(Sender: TObject);
begin
TCPserver1.Close;
TCPserver1.LocalHost:='192.168.0.116'; //tcpserver设置
TCPserver1.LocalPort:='1239';
TCPserver1.Open;

TCPclient1.Close;
TCPclient1.RemoteHost:='192.168.0.116'; //tcpclient设置
TCPclient1.RemotePort:='1239';
TCPclient1.Open;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
TCPclient1.Sendln(Edit1.Text);
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;ClientSocket: TCustomIpClient);
var s:string;
begin
s := ClientSocket.Receiveln;
if length(S)<>0 then
Memo1.Lines.Add(S);
end;



问题就是我只能,发送一次, 第二次就没任何反映了? ???????

[qq_36272499]

procedure TForm1.FormShow(Sender: TObject); begin TCPserver1.Close; TCPserver1.LocalHost:='192.168.0.116'; //tcpserver设置 TCPserver1.LocalPort:='1239'; TCPserver1.Open; TCPclient1.Close; TCPclient1.RemoteHost:='192.168.0.116'; //tcpclient设置 TCPclient1.RemotePort:='1239'; TCPclient1.Open; end; procedure TForm1.Button2Click(Sender: TObject); begin TCPclient1.Sendln(Edit1.Text); end; procedure TForm1.TcpServer1Accept(Sender: TObject;ClientSocket: TCustomIpClient); var s:string; begin s := ClientSocket.Receiveln; if length(S)<>0 then Memo1.Lines.Add(S); end; 问题就是我只能,发送一次, 第二次就没任何反映了? ???????

[qq_36272499]

第一次发送正缺,

[qq_36272499]

http://blog.sina.com.cn/s/blog_56dee15f0100sx2v.html