BCB::TClientSocket，TServerSocket控件

一，首先服务端开启监听

ServerSocket1->Port=StrToInt(5000);
ServerSocket1->Active=true;

ServerSocket1控件，响应ServerSocket1Listen事件；

 

二，创建连接

ClientSocket1->Address="127.0.0.1";
ClientSocket1->Port=StrToInt(5000);
ClientSocket1->Active=true;

ClientSocket1控件，首先响应ClientSocket1Lookup事件；

ClientSocket1控件，然后相应ClientSocket1Connecting事件；（如果连接服务器出错，则ClientSocket1Error事件处理）。

ClientSocket1控件，再响应ClientSocket1Connect事件；

ServerSocket1控件，响应ServerSocket1GetSocket事件;

ServerSocket1控件，响应ServerSocket1Acceptt事件;　　

ClientSocket1控件，再响应ClientSocket1Write事件；

三，客户端发送

ServerSocket1控件，响应ServerSocket1ClientRead事件;这个事件里服务向客户发送认证，由ClientSocket1Read事件接收。

 

四，事件说明：

ClientSocket1控件，ClientSocket1Read事件接收服务发回的信息。

ClientSocket1控件，再响应ClientSocket1Write事件；