[精品]Socket编程入门小程序

精品Socket编程入门小程序 Socket编程入门小程序-消息收发程序的设计作者张远平一，准备知识1，Delphi Delphi是Windows平台下最受欢迎的快速应用程序开发工具(RAD)之一，它由borland公司开发，经过多年的发展，现已转至Embarcadero公司旗下，最新版本是xx年1月推出的Delphi StarterEdition。 虽然在.Net、C#、JAVA的冲击下，Delphi逐渐被边缘化。 但不可否认的是，Dephi作为一个高效的桌面程序开发工具，它的易用性、便捷性仍然值得称道。 就算你不愿意把Delphi作为自己的饭碗工具，也不妨拿Delphi练下手，或许，一些桌面小程序的开发会让你深感编程的乐趣。 笔者在教学过程中，通过一个消息收发小程序，让学生较好地掌握socket原理，特拿出来跟大众分享下。 2，基础理论Socket通常也称作套接字，用于描述IP地址和端口，应用程序通常通过套接字向网络发出请求或者应答网络请求。 在TCP/IP协议应用中，传统的C/S架构包括服务器和客户端两部分。 其中，服务器负责打开某个端口，监听用户的连接；客户端可以连接到服务器的IP地址和端口。 客户端和服务器建立连接后，可以发送信息。 如图1所示。 客户端服务器1，服务器监听2，客户端请求连接3，连接成功4，发送信息图1socket通信原理3，Delphi的客户端和服务器控件Delphi的Socket控件在Inter面板下，如果没有找到，可以通过ponent-install packages进行安装。 （1）相关控件客户端:ClientSocket服务器:ServerSocket （2）服务器控件最重要的属性1）Port打开的端口2）Active（true启动；false关闭） （3）客户端控件最重要的属性1)Adress要连接的IP地址2)Port要连接的端口号3)Active(true连接；false断开)二服务器程序设计1.界面设计如图2，添加memo控件用于显示连接信息和消息信息。 启动按钮和关闭按钮用于开关服务器的端口。 图3客户端界面2.客户端属性设置控件属性属性值Form1Height132Width628Caption客户端Edit1Text ClicentSocketName CSport18003.简单的实现代码/点击连接按钮，连接Edit1所指定的IP地址（端口已经设置为1800）procedure TForm1.BitBtn1Click(Sender:TObject);begin连接上来的客户机名称Edit1Edit2CS.Address:=edit1.text;CS.Active:=true;end;/点击发送按钮，将Edit2的信息发送出去（并发本机的名称）procedure TForm1.SpeedButton1Click(Sender:TObject);begin CS.Socket.SendText(CS.Socket.LocalHost+:+Edit2.Text)end;/断开连接procedure TForm1.BitBtn2Click(Sender:TObject);b