工业控制中对等网的运用袜子胶刮刀洗地机铜螺丝垫毯

工业控制中对等的运用

一、概述

在分布式控制系统中，控制计算机担任了对过程或运动的直接控制，而监控计算机或工程师站则负责对整个工艺过程的工艺参数进行监视、调整或存储打印。在监控点数目较多或距控制机较远时，我们采用建立工业以太的方式，完成计算机之间的数据传递。监控机作为服务端，监听控制机发出的信息，并做出回应。这样，就需要在计算机之间制定一套应用层的协议，以完成数据交换。在在分布式控制系统中，控制计算机担任了对过程或运动的直接控制，而监控计算机或工程师站则负责对整个工艺过程的工艺参数进行监视、调整或存储打印。在监控点数目较多或距控制机较远时，我们采用建立工业以太的方式，完成计算机之间的数据传刀头递。监控机作为服务端，监听控制机发出的信息，并做出回应。这样，就需要在计算机之间制定一套应用层的协议，以完成数据交换。在Delphi中，可采用相应的Socket 控件完成这项工作。

二、软硬件环境

1. 卡：10压电式负荷传感器的扭转试验机优点M ISA BNC与RJ45双口，NOVELL NE2000兼容，符合Windows95 PnP

准。

2. 线：RG58AU同轴电缆。其具有价格便宜，络扩充及维护简单的特点。

3. 络操作系统：Windows95或WINDOWS NT。

三、络硬件的安装

1. 卡的安装：

首先像安装其他任何硬件卡一样，将卡插入首先像安装其他任何硬件卡一

样，将卡插入PC机的一个ISA插槽中，固定好即可。

2. 线的安装：

在线上安装BNC接头，再接上T型头后，插入卡，最后联上终端电阻。

四、软件的安装与调试

首先在计算机中安装Windows95，对于PnP卡，开机时系统会提示发现新设备，要求加载设备驱动程序，这时可直接使用Windows95提供的设备驱动程序，并设置卡的中断北票和输入输出地址。卡的设置完成以后进行络的设置。

1. 添加“络客户\MICROSOFT客户”。

2. 添加“协议”。选择“络协议?/FONT IPX/SPX兼容协议”及“NetBEUI”。

添加“协议”。选择“络协议?/FONT IPX/SPX兼容协议”及“NetBEUI”。

试片的厚度为（2.0±0.2）mm

3. 设定络厂家及用户都不胜其烦的文件和打印机共享。

4. 在“基本络登录方式”中选“MICROSOFT络登录”。

5. 输入计算机名称和工作组名称,每台机器应该有不同的名称。最后按“确定”，这时系统会提示放入Windows95的安装盘，安装好相应的驱动程序后，重新启动系统。

6. 络资源的共享。设置计算机中可以在络中被共享的设备。当所有的机器都设置好了以后，就可以像访问自己的一样访问其它计算机的硬盘了。如果经常用某个络驱动器，也可以把某个络驱动器映射到自己的计算机上。

至此，一个局域就设置完毕。在络上共享资源，上每一台计算机都可以互相访问，计算机之间也没有主次之分，各自都有绝对的自主权的络被称为对等式的络(PEER TO PEER)，也叫点对点的络。这种络的优点是安装维护方便，不需要专门的服务器，价格也就相应地便宜。

五、络环境下的数据传递。

1. 客户端

1．1 在Delphi的表单上加入ClientSocket控件，并在某个事件发生时激活此控件。

begin

if wn then

if input发射管query(所需传递数据的计算机,IP地址:,net_sever) then

begin

if length(net_sever) 0 then

begin

tive:=true;

st:=net_sever;

end;

end

else

begin

wn:=false;

end;

if not wn then

tive:=false;

end;

1．2 在ClientSocket控件的事件中，加入相应的响应代码。

procedure ientSocket1Error(Sender: TObject;

Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode:Integer);

begin

nels[0 .装配机text:=net_sever+: 络故障;

end;

procedure ientSocket1Connect(Sender: TObject;

Socket: TCustomWinSocket);

begin

nels[0 .text:=net_sever+:络已连通;

end;

procedure ientSocket1Disconnect(Sender: TObject;

Socket: TCustomWinSocket);

begin

nels[0 .text:=net_sever+:络已断开;

end;

1．3 在需要发送数据时，采用Socket的SendText方法即可。

if tive then ndText(net_string);

2. 服务端

2．1在Delphi的表单上加入ServerSocket控件，并在某个事件发生时激活此控件。

procedure tton1Click(Sender: TObject);

begin

tive:=not tive;

end;

2．2 在需要接受数据时，采用Socket的receiv