winsocket问题

Question

客户端
procedure Tformclient.bbt3Click(Sender: TObject);
begin
try
cs1.Close;
cs1.Port:=5258;
cs1.Open;
cs1.Socket.SendText ('message');
except
showmessage('目标主机连接失败!');
end;
end;
procedure Tformclient.cs1Read(Sender: TObject; Socket: TCustomWinSocket);
var
dd:string;
begin
dd:=socket.ReceiveText();
showmessage(dd);
end;
服务器端
procedure Tformserver.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
  var st:string;
  begin
  serversocket1.Open;
   st:=socket.ReceiveText;
   if st=('message') then
   socket.SendText(st)
   else
   socket.SendText('1111');
   end;
end;
为什么我在客户端接受到的总是1111

Answer 1

我觉得分数不是主要问题吧，主要是大家能够 共同学习

Answer 2

可我觉得分数是主要问题，哈哈~~~~