用RealThinClient组件实现Tcp服务器(1)

新建一个空白窗体: 加入一个TRtcTcpServer组件,我们来创建一个tcp服务器   如图:改名为TcpServer 选中TcpServer ,属性作如下配置:修改服务器地址和端口   添加两个按钮 分别命名为:btnListen和btnStopListen 我们要启动服务: btnListen按钮的代码: procedure TForm2.btnListenClick(Sender: TO
相关文章
相关标签/搜索