socket初级连接问题

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Sockets, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    TcpClient1: TTcpClient;
    TcpServer1: TTcpServer;
    Button3: TButton;
    procedure Button2Click(Sender: TObject);
    procedure TcpClient1Connect(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button2Click(Sender: TObject);
begin
TcpClient1.Active:=true;
end;procedure TForm1.TcpClient1Connect(Sender: TObject);
begin
showmessage('sfd');
end;procedure TForm1.Button3Click(Sender: TObject);
var str1:string;
begin
TcpClient1.Sendln('yes');
str1:=TcpServer1.Receiveln();
showmessage(str1);
end;end.问题在Button3Click中的执行，明明已经连接上了，可是为什么传过去的“yes”，服务器端收不到呢？还是我的接收方法有问题？

Answer 1

你要写在TcpServer的监听事件里

Answer 2

是应该写在这个事件里吗？我写了，可是没有响应
procedure TForm1.TcpServer1Listening(Sender: TObject);
begin
showmessage(TcpServer1.Receiveln());
end;end.