国家地面气象观测站报文上传状态提示软件的设计

李文斌，史　成，潘志豪

(广东省四会市气象局，广东　四会　526200)



国家地面气象观测站报文上传状态提示软件的设计

李文斌，史成，潘志豪

(广东省四会市气象局，广东四会526200)

该文利用Visual Basic 6.0计算机程序设计语言编写了“国家地面气象观测站报文上传状态提示软件”，软件的主要功能是对观测系统FTP报文上传的本地或共享路径作出分析判断，根据报文上传的状态在软件界面上显示相应的提示，当报文发送失败时连接计算机的外置音响会发出连续的系统警报声，使值班员能迅速作出反应，提前处理传输故障，有效提高了报文传输的时效性，同时也减轻了台站观测员的精神压力，使台站气象工作者在办公室里既能严密监控自动站报文的传输状态，又能集中精力做好其它相关的业务工作，大大提高了工作效能。

观测系统；上传提示软件；FTP报文

1　开发背景

根据中国气象局预报司的要求，从2015年7月起，全国气象资料业务系统(MDOS)平台正式运行，此项改革意味着气象主管部门对台站气象观测系统逐小时数据传输的及时性和可用性有着更严谨的要求。目前国家地面观测站每小时正点上传的FTP报文[1]均是由省气象信息中心直接转发至国家气象局，而当台站在非正点时刻观测业务系统出现故障时(即使网路稳定)，FTP报文也无法传送至省局服务器(包括广东省在内)，此时台站观测员是收不到任何的故障提示信息或电话通知，最终有可能延误了观测员处理系统故障的时效性。众多省份的气象部门至今也存在此类问题，只通过检测观测站的固定IP地址信息或UDP分钟数据流[2]来监控各台站观测系统的运行状况，单方考虑台站网路是否畅通或有无UDP分钟数据报文上传，忽略了台站观测系统会受计算机死机、FTP报文上传软件被防火墙阻止或人为误操作引起FTP报文传输失败的现象。本软件可以通过设置FTP报文上传状态检测时间间隔，对存放FTP报文的目标路径自动定时进行分析判断，一旦观测系统的FTP报文上传受阻，软件就会通过外置音响或喇叭发出故障警报声，使整个业务办公场所都能听到警报声，确实有效地起到了提前“预警”作用，为综合气象设备保障员提供了充足的维修时间，保证了报文上传的时效性。

2　软件功能简介

国家地面气象观测站报文上传状态提示软件(李文斌V通用版)适用于检测安装了地面气象综合观测系统的本机或局域网联机FTP报文的上传状态。软件的菜单栏布设了“检测时间间隔设置(Menu1)”、“开始检测(Menu2)”和“退出(Menu3)”3个主菜单，通过点击Menu1触发弹出时间设置提示框(Form2)，在Form2里输入检测间隔时间(如5 min)，保存后再点击Menu2，软件就开始执行检测任务。现全国所有台站使用的遥测站OSSMO[3]或新型站ISOS-SMO[4]观测系统每5 min自动形成一个长Z数据文件，当Z文件上传成功后，存放该文件的文件夹就会被清空；若上传不成功，Z文件仍保留在该文件夹当中。本软件就是通过检测存放长Z文件的文件夹有无清空来进行分析判断，若检测到文件夹被清空，则传输状态栏会用蓝色字体标示“报文传输成功”，若文件夹积压着长Z文件，则状态栏会标示“报文传输失败”，并且连接计算机的外置音响会发出急促的警报声，直到FTP报文全部上传完毕后报警声才会终止。

3　软件程序代码

本软件综合运用Visual Basic 6.0[5]的选择、循环、判断等结构语句，结合多媒体应用控件，定位到FTP长Z数据文件所在的盘符目录，并进行读取检测，若文件数量“>0”，软件则执行“提示+警报”命令，若文件数为“0”，则报警声会在下一检测时间时关闭，执行的“路径定位”和“检测报警”程序代码如下：

(路径定位)……

Private Sub 开始判断_Click()

On Error GoTo Err1

Dim fso As Object

If Text1.Text = "" Then MsgBox "请输入报文传输的本地或共享路径": Exit Sub

Call 读取时间

FilName = Trim(Text1.Text)

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.GetFolder(FilName).Files.Count > 0 Then

End If

设置时间.Enabled = False

Label3.Visible = True

Dim a

a = Trim(Format(Now, "yyyymmddhhMM") + Ftime)

Ntime = a

Timer1.Enabled = True

Timer1.Interval = 1000

Exit Sub

……(报警提示)

Private Sub Timer1_Timer()

Dim fso As Object

Dim Ttimer As Integer

Dim Tnow

Static K As Integer

Tnow = Format(Now, "yyyymmddhhMM")

If Ntime = Tnow Then

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.GetFolder(FilName).Files.Count > 0 Then

Label2.Caption = "报文传输失败"

WindowsMediaPlayer1.URL = App.Path & "Windows XP.wav"

Else

Label2.Caption = "报文传输成功"

WindowsMediaPlayer1.Close

End If

Ntime = Trim(Format(Now, "yyyymmddhhMM") + Ftime)

K = K + 1

Label3.Caption = "正在开始检测第 " & K & " 次........"

End If

End Sub

……

4　软件检测实况

用报文上传状态提示软件对本站2015年10月3日10时45分的长Z文件进行测试，本站使用的OSSMO观测业务系统存放长Z文件(待上传)的AwsNet2文件夹里存有10时45分没上传成功的报文。在本机的报文上传提示软件上输入局域网联机的报文上传目标路径“10.150.72.200AwsNet2”，点击Menu2，则软件界面显示“报文传输失败”的提示，同时，外置音响发出连续不断的警报声，如图1所示。

当长Z文件上传成功后，AwsNet2文件夹清空，软件自动执行第2次检测，结果显示“报文传输成功”。

通过以上测试结果，可认为由本研究开发的通用版FTP报文上传状态提示软件能应用于气象部门内部任一联网的观测系统，使台站业务人员能在办公场所的不同地点进行联机监控观测系统的报文传输状态，有效提高了数据的传输质量和工作效率。

5　结束语

本研究开发的国家地面气象报文上传状态提示软件使广大基层台站工作人员能在气象系统内部任一联网的计算机上从视觉和听觉及时获知观测业务系统正点报或加密报的传输情况，杜绝了过往“来电通知后处理”的现象，达到“先处理后恢复”的目的，让台站气象工作者在严密监控数据的同时也能专心做好本职相关的其它业务工作。研发者下一步将进一步完善和修改软件的使用功能，使软件能同时进行多机联合检测，最终实现上级业务部门能联机监控辖区所有气象台站观测系统的报文传输状态。

图1　局域网联机观测系统状态及本机检测传输状态提示和警报声浪Fig.1　State LAN on-line observation system and the detection and alarm sound transmission condition

[1] 钟静，李赟，陈海涛,等．基于SMS枝术的气象报文监控设计与实现 [J]．贵州气象， 2011，35(4)：42-43．

[2] 汤宁，方斌，王娟．贵州省气象局实时业务管理及监控平台简介 [J]．贵州气象，2012，36 (4)：42-43．

[3] 王力．OSSMO2010与2004业务软件差异分析[J]．气象科技，2015，43(2)：236-239．

[4] 宋云．ISOS新型测报软件的应用体会[J]．中国新技术新产品，2015，22(4)：35．

[5] 吴昌平．Visual Basic 6.0程序设计[M]．北京：人民邮电出版社，2002：1-2．

Design of the Software for the Message Upload Status of the National Ground Meteorological Observation Station

LI Wenbin，SHI Cheng，PAN Zhihao

(Sihui Meteorological bureau, Sihui 526200, China)

Visual Basic 6 computer programming language was used to write into a "national meteorological station message upload status prompt software", the main functions of the software realization of the observation system FTP message upload local or shared path analysis and judgment, according to a message on the transfer of state display the corresponding information on the software interface, when the messages ending failed, an external audio connection with the computer system will send the alarm sounds continuously, so that the attendant can respond rapidly to transmission failure in advance, effectively improve the efficiency of message transmission, but also reduce the observatory staff stress, the meteorological workers in the office can transfer the status message to closely monitor the automatic station again, to concentrate on other related work, greatly improving the work efficiency.

observation system; upload prompt software; FTP message

1003-6598(2016)02-0070-03

2015-10-04

李文斌(1983—)，男，工程师，主要从事综合气象观测与应用气象工作，E-mail:lwb@163.com。

P413

B