用RealThinClient组件实现Tcp客户端（2）

创建一个新的工程Client：

加入TcpClient

 

Name为TcpClient:

 属性配置如下，设置好服务器地址和端口

 

添加两个按钮，连接服务器，断开服务器，Name分别为btnConnect 和btnDisConnect

连接按钮的代码：

procedure TForm4.btnConnectClick(Sender: TObject);
begin
    TcpClient.Connect;    //连接服务器
end;

断开连接按钮的代码：

procedure TForm4.btnDisConnectClick(Sender: TObject);
begin
TcpClient.Disconnect;    //断开服务器连接
end;

点击按钮后，这两个按钮状态要有禁用和启用的改变

我们在TcpClien的事件中实现

代码：

procedure TForm4.TcpClientConnect(Sender: TRtcConnection);
begin
  btnConnect.Enabled:=false;
  btnDisConnect.Enabled:=true;
end;

procedure TForm4.TcpClientDisconnect(Sender: TRtcConnection);
begin
  btnConnect.Enabled:=true;
btnDisConnect.Enabled:=false;
end;

运行后，连接服务器成功。如下图

 

后面的教程我们将实现服务器连接信息输出、以及互相发送信息