超奇怪的问题，大家来看看

[xwy1982]

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString NickName;
int nklen;
if(InputQuery("登陆到服务器","请输入你的昵称:",NickName)) //输入昵称
{
ClientSocket1->Active=true;
nklen=NickName.Length();
NickName=IntToStr(nklen)+NickName+"@login@@";
ClientSocket1->Socket->SendText(NickName);
}
else ShowMessage("请输入你的昵称.");
}
这样的话，要点第二次服务器才会收到，如果把ClientSocket1->Active=true;放到第一句就正常了，谁知道为什么？

[xwy1982]

指定了，要不然第二次也不会成功

[xwy1982]

服务器端是这样的
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString Data=Socket->ReceiveText();
Label2->Caption=Data;
}

[F117p]

你在建立Socket连接前，指定了Host和Port?

[jishiping]

原因很简单，你的ClientSocket为非阻塞型的(也就是属性ClientType为ctNonBlocking)，将ClientType改为ctBlocking就可以了。

[jishiping]

对于非阻塞型的Socket，调用 ClientSocket1->Active=true; 后，Socket 还没有真正连接上，需要在收到OnConnect事件后才真正连接上。而对于阻塞型的Socket，在执行 ClientSocket1->Active=true; 后，Socket就真正连接上了。
也许你认为，既然这样的话，那么就一定是阻塞型的Socket比较好，其实也不是。如果你不使用多线程，那么在使用阻塞型的Socket时，当你调用 ClientSocket1->Active=true; 后，程序就一直在等待连接上对方（或者连接超时、出错）才返回。在连接过程中，程序不会响应任何消息。而非阻塞型则没有这个问题。所以阻塞型的Socket，一般都使用多线程的方式来做。
另外，非阻塞型的Socket，使用事件(OnConnect、OnError、OnRead等)来拦截异常和错误，而阻塞型的Socket，则使用try catch来拦截（阻塞型的Socket，没有上面的OnRead、OnError等事件）。