关于ClientSockt和ServerSocket文本传输的问题

[sumire02]

我做了个小程序
用ClientSockt和ServerSocket进行文本传输 已经确定连接成功
void __fastcall TForm2::ClientSocket1Connect(TObject *Sender,
TCustomWinSocket *Socket)
{

ClientSocket1->Socket->SendText("TryLogin");
ClientSocket1->Socket->SendText(UserName);
ClientSocket1->Socket->SendText(UserPassword);//UserName,UserPasswod是自定义的AnsiString类型数据
ClientSocket1->Socket->SendText("End");
}

服务器接受端
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
if(!(Socket->ReceiveText()=="End"))
{
AnsiString str;
str=Socket->ReceiveText();
Memo1->Lines->Add(str);
}
}
但是运行之后却没有发现 Memo1中有增加相应的信息 还是空白！
我尝试改了下程序
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
if(!(Socket->ReceiveText()=="End"))
{
Memo1->Lines->Add("1");

}
)
运行后成功地添加了三行的“1”
请高手赐教

[iceman210]

加我qq 81899053

[daily66]

莫名奇妙，偶没有遇见过
你可以把客户端的发送命令放到一个Button的Click里面试一下能否成功