procedure TCustomWinSocket.DoSetAsyncStyles;
var
Msg: Integer;
Wnd: HWnd;
Blocking: Longint;
begin
Msg := 0;
Wnd := 0;
if FAsyncStyles <> [] then
begin
Msg := CM_SOCKETMESSAGE;
Wnd := Handle;
end;
WSAAsyncSelect(FSocket, Wnd, Msg, Longint(Byte(FAsyncStyles)));
if FASyncStyles = [] then
begin
Blocking := 0;
ioctlsocket(FSocket, FIONBIO, Blocking);
end;
end;
看下这段代码，是因为TClientSocket使用的是WSAAsyncSelect通讯模型，ctBlocking设置的SOCKET是否是阻塞，但到你的应用这边是通过向
TCustomWinSocket = class
private
FHandle: HWnd;
这个FHandle窗口发异步消息来实现的，所以你在连接返回后要做同步等待TClientSocket的active状态或者是等待TClientSocket.FClientSocket.Connected状态，等待过程要你自己实现，等待最好是加超时处理在里面，防止不在线一直停在这里。
