MapInfoGIS应用系统二次开发技术

ＭａｐＩｎｆｏＧＩＳ应用系统二次开发技术

吕丽英，耿云峰

（河北省第三测绘院，河北石家庄０５００３１）

［摘要］

对ＭａｐＩｎｆｏ基本产品进行了介绍，系统阐述了三种利用ＭａｐＩｎｆｏ产品进行的二次开发模式：

ＭａｐＩｎｆｏ作为独立开发平台，利用ＭａｐＢａｓｉｃ进行二次开发模式；将ＭａｐＩｎｆｏ作为ＯＬＥ对象的开发模式；利用基于ＡｃｔｉｖｅＸ的ＭａｐＸ控件所进行的开发模式。

［关键词］地理信息系统；ＭａｐＩｎｆｏ产品；二次开发；ＭａｐＢａｓｉｃ；ＯＬＥ对象；ＭａｐＸ控件［中图分类号］Ｐ２０８

［文献标识码］Ａ

［文章编号］１００７－３０００

（２００８）０２－４［收稿日期］２００７－１２－１３

［作者简介］吕丽英（１９７６－），女，汉族，河北省石家庄人，工程师，主要从事航测遥感及地理信息系统应用开发工作。

常用的地理信息系统平台产品种类很多，但是由于这类产品具有广泛的适用性，因此用户在进行本行业内的地理信息应用系统建设时，往往需要进行这些系统的二次开发，以适应具体业务的需要。

ＭａｐＩｎｆｏ系列产品具有良好的性价比，在国

内外的ＧＩＳ应用中相当普及，易于进行各种方式的二次开发，根据所积累的实践经验，下面简要介绍如何利用ＭａｐＩｎｆｏ部分产品进行地理信息系统的二次开发。

１ＭａｐＩｎｆｏ基本产品介绍

ＭａｐＩｎｆｏ是美国ＭａｐＩｎｆｏ公司１９８６年推出的

桌面地图信息系统，至今已从最初的ＭａｐＩｎｆｏｆｏｒ

ＤＯＳ１．０发展到了ＭａｐＩｎｆｏｐｒｏｆｅｓｓｉｏｎａｌ８．５。ＭａｐＩｎｆｏ产品定位在桌面地图信息系统上，与ＡｒｃＩｎｆｏ等大型ＧＩＳ系统相比，因ＭａｐＩｎｆｏ图元数

据不含拓扑结构，它的制图及空间分析能力相对较弱，但对大众化的ＰＣ桌面数据可视及信息地图化应用来说，ＭａｐＩｎｆｏ小巧玲珑，易学易用，价位较低，是一个优选ＧＩＳ产品。

在ＭａｐＩｎｆｏ的系列产品中，应用最为广泛的是ＭａｐＩｎｆｏＰｒｏｆｅｓｓｉｏｎａｌ。ＭａｐＩｎｆｏＰｒｏｆｅｓｓｉｏｎａｌ是一种基于普通ＰＣ微机的通用桌面地理信息系统软件，作为基础的ＭａｐＩｎｆｏ产品模块，其主要技术特点如下：

１）快速数据查询，高速屏幕刷新，用户界面具

有良好的图形显示效果；

２）集成能力强，能够根据数据的地理属性分

析信息的应用开发工具，有功能强大的地图数据组织和显示软件包；

３）数据可视化和数据分析能力较强，可以直

接访问多种数据库的数据，如Ｏｒａｃｌｅ、Ｍｉｃｒｏｓｏｆｔ

Ａｃｃｅｓｓ、Ｉｎｆｏｒｍｉｘ、ＳＱＬＳｅｒｖｅｒ、Ｄｂａｓｅ等；

４）专题地图制作方便，数据地图化方便；５）同时支持１６／３２位的应用开发，适用于多

种计算机操作系统，如Ｗｉｎｄｏｗｓ３．１、Ｗｉｎｄｏｗｓ９５、

ＷｉｎｄｏｗｓＮＴ、ＯＳ／２等；

６）完整的Ｃｌｉｅｎｔ／Ｓｅｒｖｅｒ体系结构；７）完善的图形无缝连接技术；

８）支持ＯＬＥ２．０标准，使得其它开发语言如

ＶｉｓｕａｌＢａｓｉｃ、ＶｉｓｕａｌＣ＋＋、ＰＢ、Ｄｅｐｈｉ等能运用ＩｎｔｅｇｒａｔｅｄＭａｐｐｉｎｇ技术将ＭａｐＩｎｆｏ作为ＯＬＥ对

象进行开发。

２

ＭａｐＩｎｆｏ的开发模式

ＭａｐＩｎｆｏ提供了自己的二次开发平台，用户

可以在平台上开发各自的ＧＩＳ应用。二次开发方法归结起来有三种，ＭａｐＩｎｆｏ作为独立开发平台，利用ＭａｐＢａｓｉｃ所进行的二次开发模式；将

ＭａｐＩｎｆｏ作为ＯＬＥ对象的开发模式；利用基于ＡｃｔｉｖｅＸ的ＭａｐＸ控件所进行的开发模式。２．１ＭａｐＩｎｆｏ作为独立开发平台，

利用

ＭａｐＢａｓｉｃ的二次开发模式

ＭａｐＩｎｆｏＰｒｏｆｅｓｓｉｏｎａｌ提供了基本的ＧＩＳ功

能，如数据接收功能、建库功能、图形功能、数据

查询与检索功能、专题图制作功能、简单分析功能、数据输出功能等。而ＭａｐＢａｓｉｃ是建立在ＭａｐＩｎｆｏ平台上的用户开发语言，是针对ＭａｐＩｎｆｏＰｒｏｆｅｓｓｉｏｎａｌ进行的二次开发，完善ＭａｐＩｎｆｏＰｒｏｆｅｓｓｉｏｎａｌ的功能和灵活地进行各种专业所需功能的开发。它是一种类似Ｂａｓｉｃ的解释性语言，利用ＭａｐＢａｓｉｃ编程生成的＊．ｍｂｘ文件能在ＭａｐＩｎｆｏ软件平台上运行，早期的ＭａｐＩｎｆｏ二次开发都是基于ＭａｐＢａｓｉｃ进行的。ＭａｐＢａｓｉｃ学起来容易，用起来却束缚多多，无法实现较复杂的自定义功能，用它来建立用户界面也很麻烦，从现在角度看，ＭａｐＢａｓｉｃ比较适合用于扩展ＭａｐＩｎｆｏ功能。

２．２将ＭａｐＩｎｆｏ作为ＯＬＥ对象的开发模式尽管ＭａｐＩｎｆｏＰｒｏｆｅｓｓｉｏｎａｌ和ＭａｐＢａｓｉｃ具有强大的功能，可以实现一般的ＧＩＳ功能，但是随着用户需求的不断变化，其功能毕竟还是有限的。对于任何ＧＩＳ软件平台而言，为了能够维持其生命力，就必须要求该平台具有可扩展能力，即支持ＯＬＥ标准。ＭａｐＩｎｆｏ有效地解决了这个问题，允许其它开发语言将它作为ＯＬＥ对象来进行开发。

１）建立ＭａｐＩｎｆｏ自动化对象

ＯＬＥ自动化开发的首要一步就是建立ＭａｐＩｎｆｏ自动化对象，以Ｄｅｌｐｈｉ为例（后面都是如此），设定一个ｖａｒｉａｎｔ类型的全程变量代表ＯＬＥ自动化对象，假设该变量名为ｏｌｅＭａｐＩｎｆｏ，那么有代码：

ｏｌｅＭａｐＩｎｆｏ：＝ｃｒｅａｔｅｏｌｅｏｂｊｅｃｔ（＇ＭａｐＩｎｆｏ．ａｐｐｌｉｃａｔｉｏｎ＇）

一旦ＯＬＥ自动化对象建立，也就是后台ＭａｐＩｎｆｏ成功启动，就可以使用该对象的ｄｏ方法向ＭａｐＩｎｆｏ发送命令，如代码：

ｏｌｅＭａｐＩｎｆｏ．ｄｏ（＇ｓｅｔｎｅｘｔｄｏｃｕｍｅｎｔ．ｎｂｓｐｐａｒｅｎｔ＇＋ｗｉｎｈａｎｄ＋＇ｓｔｙｌｅ１＇）

这一命令使ＭａｐＩｎｆｏ窗口成为应用程序的子窗口，ｗｉｎｈａｎｄ是地图窗口句柄，ｓｔｙｌｅ１是没有边框的窗口类型。另外还可以使用自动化对象的ｅｖａｌ方法返回ＭａｐＢａｓｉｃ表达式的值，如下面语句返回当前所打开的表数，代码如下：

ｔａｂｌｅｓｎｕｍ：＝ｏｌｅＭａｐＩｎｆｏ．ｅｖａｌ（＇ｎｕｍｔａｂｌｅｓ（）＇）

也可以直接调用ＭａｐＩｎｆｏ菜单或按钮命令对地图窗口进行操作，如地图放大显示，代码如下：

ｏｌｅＭａｐＩｎｆｏ．ｒｕｎｍｅｎｕｃｏｍｍａｎｄ（１７０５）

２）建立客户自动化对象触发ｃａｌｌｂａｃｋ

基于ＯＬＥ自动化开发的难点在于所谓的ｃａｌｌｂａｃｋ。ＭａｐＩｎｆｏ服务器对客户程序地图窗口的反应叫ｃａｌｌｂａｃｋ，假如在地图窗口中移动地图目标，ＭａｐＩｎｆｏ能返回信息告诉你地图目标当前的坐标位置，这就是ｃａｌｌｂａｃｋ功能。如果想定制自己的地图操作工具或菜单命令，就必须依靠ｃａｌｌｂａｃｋ。但是想捕获ｃａｌｌｂａｃｋ信息，你的客户程序必须具备接收ｃａｌｌｂａｃｋ信息的能力，为此需要在客户程序中定义自己的ＯＬＥ自动化对象，如代码：

／／定义界面

ｉｍｙｃａｌｌｂａｃｋ＝ｉｎｔｅｒｆａｃｅ（ｉｄｉｓｐａｔｃｈ）

［＇｛２ｆ４ｅ１ｆａ１－６ｂｃ７－１１ｄ４－９６３２－９１３６８２ｄ１ｅ６３８｝＇］

Ｆｕｎｃｔｉｏｎｗｉｎｄｏｗｃｏｎｔｅｎｔｓｃｈａｎｇｅｄ（ｖａｒｗｉｎｄｏｗｉｄ：ｉｎｔｅｇｅｒ）

：ｓｃｏｄｅ；ｓａｆｅｃａｌｌ；

ｆｕｎｃｔｉｏｎｓｅｔｓｔａｔｕｓｔｅｘｔ（ｖａｒｓｔａｔｕｓｔｅｘｔ：ｗｉｄｅｓｔｒｉｎｇ）

：ｓｃｏｄｅ；ｓａｆｅｃａｌｌ；

／／定义界面实现

ｔｍｙｃａｌｌｂａｃｋ＝ｃｌａｓｓ（ｔａｕｔｏｏｂｊｅｃｔ，ｉｍｙｃａｌｌｂａｃｋ）ｆｕｎｃｔｉｏｎｓｅｔｓｔａｔｕｓｔｅｘｔ（ｖａｒｓｔａｔｕｓｔｅｘｔ：ｗｉｄｅｓｔｒｉｎｇ）：ｓｃｏｄｅ；ｓａｆｅｃａｌｌ；

ｆｕｎｃｔｉｏｎｗｉｎｄｏｗｃｏｎｔｅｎｔｓｃｈａｎｇｅｄ（ｖａｒｗｉｎｄｏｗｉｄ：ｉｎｔｅｇｅｒ）

：ｓｃｏｄｅ；ｓａｆｅｃａｌｌ；

其中，ｗｉｎｄｏｗｃｏｎｔｅｎｔｓｃｈａｎｇｅｄ函数用于返回变化窗口的ｉｄ号，即当地图窗口变化时（如放大、缩小），让ＭａｐＩｎｆｏ将地图窗口的ｉｄ号返回给客户程序；另一个ｓｅｔｓｔａｔｕｓｔｅｘｔ函数返回ＭａｐＩｎｆｏ状态条变化信息。编程人员不能随意定义这些函数，因为只有在三种情况下ＭａｐＩｎｆｏ服务器的ｃａｌｌｂａｃｋ才会被触发：（１）地图窗口发生变化，触发函数为ｗｉｎｄｏｗｃｏｎｔｅｎｔｓｃｈａｎｇｅｄ；（２）ＭａｐＩｎｆｏ状态条信息改变，触发函数为ｓｅｔｓｔａｔｕｓｔｅｘｔ；（３）用户选择自定义工具或菜单命令在地图窗口上操作，如用户定制的画线工具，当用户在地图窗口画线时触发ＭａｐＩｎｆｏ的ｃａｌｌｂａｃｋ返回线的坐标位置。

建立客户自动化对象后，调用ＭａｐＩｎｆｏ自动化对象的ｓｅｔｃａｌｌｂａｃｋ方法可将客户自己定义的自动化对象告诉ＭａｐＩｎｆｏ。只要程序一运行，客户自动化对象就会自动在注册表中注册，然后就能