Delpi实现Topcon全站仪自动展点.docVIP

Delphi实现Topcon全站仪自动展点 　　摘 要：随着现代电子测量技术日新月异的发展，Topcon全站仪以其较高的性价比被广泛用于测绘行业，操作简单易学，数据结构科学合理。由Borland公司推出的Delphi是全新的可视化编程环境，为我们提供了一种方便、快捷的Windows应用程序开发工具，它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想，采用了弹性可重复利用的完整的面向对象程序语言、当今世界上最快的编译器、最为领先的数据库技术。该文结合Topcon测图数据，利用Delphi实现了数据下载、预处理、展点一系列方法。 中国论文网 /1/viewhtm　　关键词：Topcon 数据格式 展点 Delphi 测绘 　　中图分类号：TP3 文献标识码：A 文章编号：1674-098X（2016）06（b）-0082-03 　　1 Topcon数据存储格式 　　拓普康内存中的数据分测量坐标数据文件和坐标数据文件，前者是数据采集模式下生成的文件，在仪器中用“M”标识；后者是为放样模式准备的坐标文件，在仪器中用“C”标识。对两者数据下载后进行分析，测量数据所记录的信息是完整的测量信息，反映的是测量的过程与采集成果，而坐标数据文件相对简单，是点的坐标记录集合。以下分别截取一个测量数据和坐标数据片断，“//”后为注释。 　　JOB Z08010， //数据采集文件名 　　INST GTS-330 Ver.3.30 //仪器型号、内置系统版本 　　UNITS M，D //单位，此处为米、度 　　STN T44，0.000， //测站标识 测站点号 仪器高 　　XYZ 504882.246，3803796.484，0.000 //测站坐标标识 测站点N、E、Z值 　　BS T45，0.000 //后视标识 后视点号 棱镜高 　　XYZ 504888.430，3803837.337，-1.992 //后视坐标标识 后视点N、E、Z值 　　SS 1，0.000，FW //前视测点标识 前视点号 棱镜高 测点标识码 　　XYZ 504853.177，3803776.161，1.469 //前视坐标标识 前视测点N、E、Z值 　　SS 2，0.000，L 　　XYZ 504854.387，3803776.077，1.864 　　…… 　　1，1125.057，1122.351，50.413，L //前视点号 前视测点N、E、Z值，测点标识码 　　2，1132.123，1126.359，50.744，FW 　　…… 　　2 数据下载 　　配合全站仪使用的下载工具一般由厂家提供，比如拓普康的T_COM软件，但这种软件输出的数据格式是由软件提供者控制的，在操作与使用环节上用户难以根据自己的需要灵活定制。在Delphi开发平台上，数据下载功能可以借助Spcomm控件实现，与数据通信相关的几个重要属性：端口CommName、波特率BaudRate、数据位ByteSize、奇偶位ParityCheck、停止位StopBits，这些属性既可以在程序设计过程中指定，也可以在程序运行期间指定。 　　电脑与仪器通信参数要保持一致。通过激发数据下载动作，执行事件 　　procedure 　　TfrmDataChg.Comm1ReceiveData（Sender：Tobject；Buffer：Pointer；Buffer Length： Word）； 　　var 　　s： string； 　　begin 　　SetLength（s， BufferLength）； 　　Move（Buffer^， pchar（s）^， BufferLength）； 　　memo1.Lines.Add（s）； 　　end； 　　下载的数据是可识别ASSIC格式，显示在Memo1控件中，可以进一步保存或处理。 　　3 数据预处理 　　在对数据文件格式及各组成部分含义明确理解的情况下，使用高级程序语言进行数据文件信息的提取、分离、处理。该文利用Delphi对数据进行读取与处理。 　　3.1 算法设计 　　程序的主要算法是：打开测量数据文件，逐行读取数据行，查找标识“XYZ”行并定位，以其为参照向前一行定位，查找行首标识“STN、BS、SS”并判断该行性质，对本行进行信息分离、提取。 　　3.2 程序实现 　　（1）文件的打开，利用Delphi中的OpenDialog控件。 　　If OpenDialog1.Execute then filename：=OpenDialog1.FileName； 　　（2）逐行读取数据文件，使用语句Readln（file，LineStr），同时创建Tstringlist对象，用于保存读入的数据行，每读一行，stri