Socket阻塞模式

Question

服务器端主要代码：
procedure TMyServerClientThread.ClientExecute;
        var
        bamboo : TBamboo;
        len : integer;
        str : string;begin
        try
        while ((not Terminated) and ClientSocket.Connected) do
        begin
              TStream1 := TWinSocketStream.Create(ClientSocket,60000);
              try
              if TStream1.WaitForData(60000) then
              begin
                len := ClientSocket.ReceiveLength;
                if  len<>0 then
                        begin
                        bamboo.age :=10;
                        bamboo.userName :='bamboo';
                        TStream1.Write(bamboo,sizeof(bamboo));
                        end
                        else
                        break;
              end;
              except;
              end;              TStream1.Free;
              end;
        except;
        end;
end;
procedure TForm1.ServerGetThread(Sender: TObject;
  ClientSocket: TServerClientWinSocket;
  var SocketThread: TServerClientThread);
begin
        SocketThread := TMyServerClientThread.Create(false,ClientSocket);end;客户端：procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
        var
        bamboo : TBamboo;
        str : string;
begin
        while ClientSocket1.Active do
        begin
                TStream1 :=  TWinSocketStream.Create(Socket,60000);
                TStream1.Read(bamboo,sizeof(bamboo));
        end;        Memo1.Lines.Add(bamboo.userName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
        ClientSocket1.Socket.SendText(Edit1.Text);
end;问题:现在服务器，客户端都起以后。单击button2按钮后，客户端显示不了bamboo.userName;请帮忙看一下

Answer 1

确认客户端连接上服务器了吗？ClientSocket1.Active:=true;?