如发现有乱码，请点击下面链接浏览原文
正文摘录:

2006年第21期总第236图2设置界面图1默认密码是88888。从界面上可以看到ZNE一100的网络与串口设置。进入设置界面只需键入密码，进入后界面如图2所示。嚣翟熏麓絮黧堕嚣圈龋盏臻誓震瓣罩l“n；：船“on～卜耍圈l图3设置界面图2IPconfiguration是IP地址设置。Serialconfiguration是串口设置，workingoption里面的port是ZNE一100的端口。中心控制主机由单片机和编解码电路组成，分机只含编解码电路。主机与分机可通过有线或无线的方式连接。3软件界面设计软件界面用BorlandDelphi设计。主界面运行如下：图4控制系统界面时间编程窗口如下：图5控制系统时间编程窗口主界面主要运用到的控件有tcpclient，tcpserver两个控件，这两个控件封装了WindowSocket大部分的API函数，编程者可以通过这两个控件的函数方便地实现网络连接。本系统就是通过这两个控件实现局域网的连接的。具体程序如下：ButtonlClick是连接键的单击事件。procedureTForml.ButtonlClick(Sender：TObject)；begintcpclientl.RemoteHost：一editl.Text：／／远程主机地址，也就是网卡的网络地址。tcpclientl.RemotePort：一edit2.Text；／／远程主机的连接端口，ZNE一100的默认端口是4001。tcpserverl.LocaIPort：一edit3.Text；／／本地连接端口6000tcpserverl.Active：一true；／／打开本地服务器iftcpclientl.Connectthenlabell.Caption：一’连接状态：已连接’／／tcpclientl.Connect是连接函数，作用有两个，第一是连接远程主机，第二个是返回连接的状态。成功返回true，失败返回false。elselabell.Caption：一’连接状态：断开’；end；Button2Click是断开键的单击事件。procedureTForml.Button2Click(Sender：T0bject)；begintcpclientl.Disconnect；／／断开连接，同样能返回连接状态。ifnottcpclientl.Connectedthenlabell.Caption：一’连接状态：断开’；end；Button3Click是发送键的单击事件。procedureTForml.Button3Click(Sender：TObject)；varsendbuffer，buf：array[0..3]ofbyte；／／定义发送、接收数据数组beginifnottcpclientl.Connectedthen／／N试连接状态，断开时告知并退出不执行后面代码。beginshowmessage(’未连接!’)；exit；end；sendhuffer[O]：一strtoint(edit8.Text)；sendbuffer[1]：一strtoint(comboboxl.Text)；sendbuffer[2]：一strtoint(comhobox2.Text)；sendbuffer~3]：一strtoint(edit9.Text)；开始码地址码操作码结束码tcpclientl.SendTo(sendbuffer，4·tcpclientl.GetSocketAddr(ed—itl.Text，edit2.Text))；／／tcpclientl.SendTo是发送数据函数，第一个参数是需要发送的数据，第二个参数是目标地址的信息，由GetSocketAddr函数获得。他的第一个参数是目标主机的地址，第二个是目标主机的端口。通过tcpclientl.SendTo函数可以将要发送的数组以十六进制的形式发送到中心控制主机。sleep(500)；／／延时0.5Stcpclientl.ReceiveBuf(buf，4)；／／读取中心控制主机返回的信息，同样是包含四个byte的数组。showrect(buf[1]，buf[2])；／／在grid控件中显示出返回信息，包含分机地址和操作码。end；以上3个事件就是主程序的核心，是局域网连接的必33了引三燮㈨囊兰篓纛撼薰燕一=未至弧烈圣一一一一～ll一0。。∞Ⅷ∞∞一∞∞m目w”n∞∞¨帅.