显示procedureTForm1SSClie
tReadSe
derTObjectSocketTCustomWi
Socketbegi
Memo2Li
esAddSocketReceiveTexte
d
三．客户机设计步骤1．界面设计
如图，客户端程序通过文本框Edit1输入服务器IP地址，连接成功后，把Edit2的文本发送到服务器端。
Edit1Edit2图3客户端界面
2客户端属性设置
控件HeightForm1Edit1Clice
tSocketWidthCaptio
TextNameportCS1800属性132628客户端属性值
3简单的实现代码点击连接按钮，连接Edit1所指定的IP地址（端口已经设置为1800）procedureTForm1BitBt
1ClickSe
derTObjectbegi
3
fCSAddressedit1textCSActivetruee
d点击发送按钮，将Edit2的信息发送出去（并发本机的名称）procedureTForm1SpeedButto
1ClickSe
derTObjectbegi
CSSocketSe
dTextCSSocketLocalHost’’Edit2Texte
d
本机的名称
断开连接procedureTForm1BitBt
2ClickSe
derTObjectbegi
CSActivefalsee
d四，测试程序
在局域网内打开，互相发送，体验消息发送的乐趣吧！
4
fr