用RealThinClient组件实现Tcp客户端(2)

创建一个新的工程Client: 加入TcpClient   Name为TcpClient:  属性配置如下,设置好服务器地址和端口   添加两个按钮,连接服务器,断开服务器,Name分别为btnConnect 和btnDisConnect 连接按钮的代码: procedure TForm4.btnConnectClick(Sender: TObject); begin TcpClient.
相关文章
相关标签/搜索