Ｄｅｌｐｈｉ编程实现远程数据波形显示的方法.docVIP

Ｄｅｌｐｈｉ编程实现远程数据波形显示的方法 　　摘要：该文介绍了在Delphi中通过网络传输下位机采集的数据，使用IXYPlot控件将数据实时以直观的工控波形界面进行显示的方法，并结合应用实例给出了数据显示的应用程序。 　　关键词：Delphi；实时数据；波形；显示 　　中图分类号：TP312文献标识码：A文章编号：1009-3044(2008)33-1386-02 　　The Method of Realizing Remote Data Wave Display by Delphi Programming 　　GONG Juan, WANG Huan-yan, YAN Hai-yan, XUE Zhi-liang 　　(Hunan Railway Profess Ional Technology College, Zhuzhou 412001, China) 　　Abstract: This paper presents the method that the internet transmits the data collected by the controller system in Delphi, and the IXPlot Controls display the real-time data by intuitionistic monitor and control interface. This paper exemplifies the data displaying application program. 　　Key words:Delphi; real-time data; wave; display 　　1 引言 　　在自动化控制应用中，经常要对系统中各类设备进行控制和诊断，因此我们要组成微机为上位机而单片机等为下位机的控制网络。在通常的控制应用中，我们通过下位机采集并传送控制设备的状态信息如电流、电压、压力等等并以数字的形式实时显示。但是，随着自动化控制应用的发展和深入，很多应用需要将采集检测到的离散的数据绘制成波形，用来对数据进行追踪记录和比较。如何通过简单高效的方法方便快捷的将采集到的离散数据传输到上位机并绘制成波形呢？本文给出了利用IXYPlot控件将通过网络传输采集的离散数据绘制成波形的方法，并给出了在Delphi环境下利用该控件将离散数据以波形形式实时显示的应用实例。 　　2 实时数据的采集传输和显示方法 　　在应用系统中，为了减少布线充分利用网络系统优势，通常采用下位机传感器、IO通道等对模拟数据、数字量数据进行实时采集。采集到的数据由下位机根据协议的要求进行编码处理后通过网络发送给上位机，上位机接收到下位机传来的数据后同样根据通讯协议对接收到的数据进行解码，并将解码后的数据送给显示系统，根据相应设置进行数据的显示。 　　在数据显示中我们设定纵坐标和横坐标分别代表两个不同的量，显示出的波形则记录了数据在随横坐标变化过程中的变化情况，从而由各离散数据绘制出相应的波形。根据应用的需要我们可以在一个界面上同时记录多路数据，各路数据的波形以不同颜色进行区分，各路数据的位置可以随意设定，数据显示效果如图1所示： 　　 　　 　　图1 数据显示效果 　　通过以上分析说明我们可以利用系统下位机就近对数据进行采集，利用网络进行数据的传输，利用控件的编程和设计对数据进行显示处理，简单而高效的实现了将检测的离散数据以波形的方式显示。 　　3 数据显示应用实例 　　下面通过一个具体实例来说明在Delphi6.0中实现工控数据显示的方法。 　　1) 界面设计： 　　打开一个新的工程，在窗体上安排一个iXYPlot控件，将其Align属性设为alClient，并设置好相关其它属性，最后完成界面设计如图2所示。 　　 　　 　　图2 界面设计图 　　2) 程序如下： 　　var 　　Main_FM: TMain_FM; 　　Drawgraph,DrawGraphID:Thandle; 　　implementation 　　{$R *.dfm} 　　//波形显示线程； 　　Function F_DrawGraph:Longint; 　　Var 　　TempB1,temp2,temp3:Byte; 　　Begin 　　IF (Main_Fm.GET_SwitchLed.Active)Then //显示按钮激活 　　Begin 　　If main_fm.xvaluemain_fm.X_span then //满一屏后，横坐标右移 　　main_fm.iXYPlot.XAxis[0].Min :=main_fm.iXYPlot.XAxis[0