基于Delphi和MapObjects的地理信息系统二次开发

河南科技２００８．１上
信息技术
ＩＴＷＯＲＬＤ
地理信息系统（Ｇｅｏｇｒａｐｈｉｃａｌ
ＩｎｆｏｒｍａｔｉｏｎＳｙｓ－ｔｅｍ，ＧＩＳ）是一种决策支持系统，它具有信息系统的各
种特点。

地理信息系统与其它信息系统的主要区别在于其存储和处理的信息是经过地理编码的，地理位置及与该位置有关的地物属性信息是信息检索的重要部分。

在地理信息系统中，现实世界被表达成一系列的地理要素和地理现象，这些地理特征至少由空间位置参考信息和非位置信息两个部分组成。

全球最大的ＧＩＳ厂商ＥＳＲＩ（美国环境系统研究所）
的桌面地图信息系统ＡｒｃＧｉｓ是功能强大的工具型
ＧＩＳ，被广泛应用于各个领域，并且它还提供了二次开发
语言ＭａｐＯｂｊｅｃｔ，用于建立专题ＧＩＳ时进行二次开发和功能扩充。

本文介绍了如何利用Ｄｅｌｐｈｉ开发语言以及地理信息系统二次开发组件ＭａｐＯｂｊｅｃｔ进行地理信息系统的二次开发。

一、系统软件开发技术
本系统利用组件式技术作为核心的软件开发技术，采用了组件式技术中的ＡｃｔｉｖｅＸ技术，ＡｅｔｉｖｅＸ技术是建立在ＣＯＭ技术基础上，结合ＯＬＥ技术发展而来的，它是一套与其创建语言无关，支持软件组件在网络环境中进行互操作的面向对象的软件体系结构。

在开发系统的过程中，将组件式ＧＩＳ软件ＭａｐＯｂｊｅｃｔｓ２．１作为一个
ＡｃｔｉｖｅＸ控件集成到可视化开发语言Ｄｅｌｐｈｉ中，应用组
件ＭａｐＯｂｊｅｃｔｓ２．１的方法、属性、事件来实现与应用程序的交互，而编程的大部分甚至全部工作都用Ｄｅｌｐｈｉ来完
由若干相关的对象交互合作来完成。

对于这种系统内部的协作关系和过程行为，可以通过绘制顺序图和合作图来帮助观察和理解。

此外，描述工作流和并发处理行为还可以用活动图，表达从一个活动到另一个活动的控制流。

顺序图和合作图适合描述多个对象的协同行为，状态图适合描述一个对象穿越多个用例的行为。

状态图与活动图的区别是，状态图描述的是对象类响应事件的外部行为，活动图描述的是响应内部处理的对象类的行为。

下面以顺序图为例，来说明ＵＭＬ２．０在数字图书馆统一登录服务系统中的应用。

统一登录模式是以数字图书馆用户身份统一认证服务为核心的服务使用模式。

用户登录系统后，即可利用统一登录服务系统支持的所有数字图书馆服务。

用户使用在统一登录服务系统注册的账号登录统一认证服务系统，认证服务进行对用户信息的验证，如果账号有效，则数字图书馆系统接受访问，并向用户返回访问结果。

基于ＵＭＬ２．０建立用户身份统一认证的顺序图如图２所示：
四、统一登录服务系统的实现、测试和系统配置经过系统分析与设计后，就可以根据设计模型在具体的环境中实现系统，生成系统的源代码、可执行程序和相应的软件文档，建立一个可执行的系统。

然后需要对系统进行测试和排错，保证系统符合预定的要求，获得一个无错的系统实现。

测试的结果将确认所完成的系
统可以真正使用。

最后系统配置的任务是在真实的使用运行环境中配置、调试系统，解决系统正式使用前可能存在的任何问题。

五、结束语
数字图书馆的研究和发展方兴未艾，需要应用和集成最新的信息技术，以达到对数字信息资源的最有效利用和共享。

本文通过对数字图书馆统一登录服务系统的分析，探讨了ＵＭＬ２．０的具体应用。

参考文献：
［１］郑巧英，杨宗英．图书馆自动化新论：信息管理自动化［Ｍ］．上海：上海交通大学出版社，２０００．
［２］
张龙详．ＵＭＬ与系统分析设计［Ｍ］．北京：人民邮电出版社，
２００４．
［３］郑巧英．数字图书馆的一种模式——
—网络图书馆［Ｊ］．现代图书情报技术，２００５．
图２用户身份统一认证顺序图
华北水利水电学院
聂相田陈钰华郭长起
基于Ｄｅｌｐｈｉ和ＭａｐＯｂｊｅｃｔｓ的地理信息系统二次开发
３０
河南科技２００８．１上
成，从而在一个可视化的界面来实现系统的大部分功能。

二、ＭａｐＯｂｊｅｃｔ简介
ＭａｐＯｂｊｅｃｔｓ是一套制图软件集，它使程序员能够把
地图加到应用程序中去。

通过ＭａｐＯｂｊｅｃｔｓ可灵活地建立适合用户的地图接口。

在小内存空间中，能用多种工业标准程序环境之一去建立应用程序，你能够联合使用
ＭａｐＯｂｊｅｃｔｓ与其它软件去实现地图与用户信息的联系。

通过ＭａｐＯｂｊｅｃｔｓ可完成以下甚至更多功能：
１．显示一张多图层地图（道路，河流，边界）。

２．放大，缩小，漫游。

３．生成图形元素，如点，线，圆，多边形。

４．说明注记。

５．识别地图上被选中的元素。

６．通过线，方框，区域，多边形，圆来拾取物体。

７．拾取距某参照物特定范围内的物体。

８．通过ＳＱＬ描述来选择物体。

９．对选取物体进行基本统计。

１０．对所选地图元素的属性进行更新，查询。

１１．绘制专题图。

１２．标注地图元素。

１３．从航片或卫星图片上截取图像。

１４．动态显示实时或系列时间组数据。

１５．在图上标注地址或定位。

ＭａｐＯｂｊｅｃｔｓ可以执行许多基础制图功能，但不能执
行某些高级功能，如高质量地图输出、地图坐标系投影、表面模型或网络分析等高级空间分析功能以及拓扑编辑。

可利用ＥＳＲＩ公司的其他产品（如Ａｒｃ／Ｉｎｆｏ、Ａｒ－
ｃＶｉｅｗ）来实现这些高级功能。

三、系统功能简介
本地理信息系统实现了地理信息图形放大、缩小、全屏、漫游、坐标显示、图层的叠加显示、图层特征与图形的属性显示、图层管理等功能，实现地理信息系统的查询、浏览、分析以及数据库管理功能，见下面图１的界面：
本系统的数据类型有两类，一是ｄｂｆ数据库，二是
Ｓｈａｐｅ文件数据，用与存放空间位置数据。

四、程序实现显示图层属性：
ＳｔｒｉｎｇＧｒｉｄ１．Ｃｅｌｌｓ［０，０］：＝
‘字段’；ＳｔｒｉｎｇＧｒｉｄ１．Ｃｅｌｌｓ［１，０］：＝
‘字段值’；ＳｔｒｉｎｇＧｒｉｄ１．Ｃｏｌ－Ｗｉｄｔｈｓ［１］：＝ＳｔｒｉｎｇＧｒｉｄ１．ｄｅｆａｕｌｔＣｏｌＷｉｄｔｈS ３；
与数据库连接：
ｄｃ：＝ＩＭｏＤａｔａＣｏｎｎｅｃｔｉｏｎ（ＣｒｅａｔｅＯｌｅＯｂｊｅｃｔ（＇ＭａｐＯｂ－ｊｅｃｔｓ２．ＤａｔａＣｏｎｎｅｃｔｉｏｎ＇））；ｄｃ．ＤａｔａＢａｓｅ：＝ｓａｍｐｌ．ＲｅｔｕｒｎＤａｔａ－Ｐａｔｈ（＇ｗｏｒｌｄ＇）；
ｉｆｎｏｔｄｃ．Ｃｏｎｎｅｃｔｔｈｅｎ
ｅｘｉｔ；
显示点层图：
ｌａｙｅｒ１：＝ＩＭｏＭａｐＬａｙｅｒ（ＣｒｅａｔｅＯｌｅＯｂｊｅｃｔ（＇ＭａｐＯｂｊｅｃｔｓ２．ＭａｐＬａｙｅｒ＇））；
ｌａｙｅｒ１．ＧｅｏＤａｔａｓｅｔ：＝ｄｃ．ＦｉｎｄＧｅｏＤａｔａＳｅｔ（＇ｃｉｔｉｅｓ＇）；Ｉ－ＭｏＳｙｍｂｏｌ（ｌａｙｅｒ１．Ｓｙｍｂｏｌ）．Ｃｏｌｏｒ：＝ｍｏＲｅｄ；ＩＭｏＳｙｍｂｏｌ（ｌａｙ－ｅｒ１．Ｒｅｃｏｒｄｓ．Ｆｉｅｌｄｓ．Ｉｔｅｍ（＇ｎａｍｅ＇））．Ｃｏｌｏｒ：＝ｍｏＢｌａｃｋ；
Ｍａｐ１．Ｌａｙｅｒｓ．Ａｄｄ（Ｌａｙｅｒ１）；ｆｔ：＝ＴＦｏｎｔ．Ｃｒｅａｔｅ；
ｆｔ．ｎａｍｅ：＝＇ＴｉｍｅｓＮｅｗＲｏｍａｎ＇；ｆｔ．ｓｉｚｅ：＝３５b
ｏｌｅＦｔ：＝ＦｏｎｔＴｏＯｌｅＦｏｎｔ（ｆｔ）；
定位地图：
ｉｆｎｏｔｒｅｃｓ．ｅｏｆｔｈｅｎｂｅｇｉｎ
ｔｄｅｓｃ：＝ＩＭｏＴａｂｌｅＤｅｓｃ（ＣｒｅａｔｅＯｌｅＯｂｊｅｃｔ
（＇ＭａｐＯｂｊｅｃｔｓ２．ＴａｂｌｅＤｅｓｃ＇））；
ｔｄｅｓｃ：＝ｒｅｃｓ．ＴａｂｌｅＤｅｓｃ；ｆｌｄｓ：＝ｒｅｃｓ．Ｆｉｅｌｄｓ；
ｆｏｒｉ：＝０ｔｏｔｄｅｓｃ．ＦｉｅｌｄＣｏｕｎｔ－１ｄｏｂｅｇｉｎ
ｆｌｄ：＝ｆｌｄｓ．Ｉｔｅｍ（ｔｄｅｓｃ．ＦｉｅｌｄＮａｍｅ［ｉ］）；ＳｔｒｉｎｇＧｒｉｄ１．Ｃｅｌｌｓ［０，ｉ＋１］：＝ｆｌｄ．ｎａｍｅ；
ＳｔｒｉｎｇＧｒｉｄ１．Ｃｅｌｌｓ［１，ｉ＋１］：＝ｆｌｄ．ｖａｌｕｅａｓｓｔｒｉｎｇ；ｅｎｄ；ｅｎｄ；
ｒ：＝Ｍａｐ１．Ｅｘｔｅｎｔb
五、结语
本文采用ＭａｐＯｂｊｅｃｔｓ组件与Ｄｅｌｐｈｉ相结合的集成二次开发模式，利用这种开发模式，开发者能够方便、快捷地实现电子地图的主要功能，而且开发出的应用型地理信息系统系统界面简洁，操作方便，功能齐全，运行稳定，便于维护，大大方便了普通用户对地理信息的需求。

本系统作为应用型的城市地理信息系统，具有实际的应
用价值。

参考文献：
［１］毛锋等．ＡｒｃＧＩＳ８开发与实践［Ｍ］．北京：科学出版社．２００３．［２］
刘光，刘小东．地理信息系统二次开发实例教程［Ｍ］．北京：科学出版社．２００３．
图１
ＩＴＷＯＲＬＤ
信息技术
３１。