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 TcpServer1Accept(Sender: TObject;
      ClientSocket: TCustomIpClient);
    procedure Button3Click(Sender: TObject);
    procedure TcpServer1Listening(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.TcpServer1Accept(Sender: TObject;
  ClientSocket: TCustomIpClient);
begin
showmessage('connected');
end;procedure TForm1.Button3Click(Sender: TObject);
begin
TcpClient1.Active:=true;
TcpClient1.Sendln('yes');
end;procedure TForm1.TcpServer1Listening(Sender: TObject);
begin
//TcpClient1.Sendln('yes');
showmessage('ff');
showmessage(TcpServer1.Receiveln());
end;end.点击按钮2可以显示“connected”,可是点击按钮3却怎么也没反应，为什么TForm1.TcpServer1Listening(Sender: TObject);没有响应呢？？

Answer 1

TcpClient1.Active:=true;
还没完全对话连接完毕，就
TcpClient1.Sendln('yes');
了
之间得停一停

Answer 2

TcpServer监听需要创建线程的，忘了例程在哪儿了，没找到……