tcpserver和tcpclient如何使用?

[无栈程序猿]

服务端的
procedure TForm1.FormCreate(Sender: TObject);
begin
tcpserver1.LocalPort := '7000';
n3.Enabled :=false;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
tcpserver1.Active:=true;
n2.Enabled:=false;
n3.enabled:=true;
memo1.Lines.Add('服务器启动成功。')
end;

procedure TForm1.N3Click(Sender: TObject);
begin
tcpserver1.Active:=false;
n2.Enabled:=true;
n3.enabled:=false;
memo1.Lines.Add('服务器关闭。')
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
tcpserver1.Active:=false;
end;

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
memo1.Lines.add('111')
end;

客户端的
procedure TForm1.FormCreate(Sender: TObject);
begin
tcpclient1.RemoteHost :='127.0.0.1';
tcpclient1.Remoteport :='7000';
tcpclient1.active:=true;
if not tcpclient1.Connected then
showmessage('1');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
tcpclient1.Sendln(edit1.Text);
end;

我想知道 服务端怎么接收数据 还有应该在哪个事件里接收
tcpserver只有5个事件.

[无栈程序猿]

怎么没人发?

[gege45]

应该在OnAccept事件接受数据,如:

procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var s: string;
begin
Memo1.Lines.Add('===== Begin message =====');
s := ClientSocket.Receiveln;
while s <> '' do
begin
Memo1.Lines.Add(s);
s := ClientSocket.Receiveln;
end;
Memo1.Lines.Add('===== End of message =====');
end;