地理信息系统的嵌入式开发技术研究

　　地理信息系统（GIS）是近年来兴起的一门新兴技术，它能够直观有效地利用和表达地理信息数据，满足了信息综合管理和数据服务可视化的需要，在地质勘测、交通管理、遥控遥测等领域被广泛应用。应用型地理信息的开始通常主要有三种方法：⑴独立开发；⑵单独二次开发；⑶组件式GIS开发。随着计算机技术的发展，组件式GIS成为当代GIS的重要发展方向。如果设计开发GIS系统时采用嵌入式技术，既能够发挥通用编辑工具的强大程序开发能力，又能充分利用现有GIS系统的丰富功能，从而给开发工作带来极大的方便。

　　1 嵌入式开发技术简介

　　嵌入式开发技术是指以在应用程序中嵌入由其他程序所提供的数据或对象的方式来获得特定功能的程序设计方法。　　嵌入式是当前发展快、应用广、有发展前景的信息技术应用领域之一。它具有以下特点：

　　◆ 它是以应用为中心，以计算机技术为基础，软，硬件可裁剪，适应应用系统对功能、体积、功耗等要求的专用计算机系统。

　　◆ 嵌入式系统与计算机系统有着明显的区别。

　　◆ 它由嵌入式处理器，嵌入式软件，嵌入式应用软件组成。

　　◆ 随着微电子技术与计算机技术的发展微控制芯片的功能越来越强大，而嵌入式设备也逐渐出现在人们的日常生活中。

     本文将以目前流行的MapInfo地理信息系统和Visual Basic 5.0程序设计语言为例，系统地介绍利用嵌入式技术开发GIS应用软件的方法。

　　MapInfo是一个功能强大的通用地理信息和空间数据管理系统，能提供丰富的地理信息数据编辑转换、分析处理、浏览显示、查询检索等功能，是目前应用为广泛的GIS基础平台之一。为了支持二次开发，MapInfo提供了简单易用的MapBasic语言，并在4.0以后的版本中全面支持嵌入式技术。在应用程序中嵌入MapInfo系统所使用的主要方法有OLE自动化、回应广泛和动态数据交换三种。

　　2 OLE自动化技术

　　OLE自动化技术是在微软公司的对象链接和嵌入（OLE）技术和组件对象模型技术（COM）基础上发展起来的一种程序设计标准，它允许一个程序模块控制其他程序模块的执行。换句话说，支持自动化的程序模块的行为是可以通过编程来控制的，这种控制通过应用程序对自动化支持程序所提供的对象的访问来完成。OLE自动化实质上是两个不同的应用程序之间以客房机/服务器方式进行的动态信息交换过程，作为服务器一方的应用程序提供一组具有特定方法和属性的对象模型，客房程序则使用标准的通信接口对其进行访问和控制。MapInfo所提供的OLE自动化对象模型如图1所示。

　　从图1可以看出，MapInfo提供的OLE自动化对象体系具有很明显的层次结构。层是Application对象即MapInfo系统本身的运行实例，其下是MapBasic应用程序对象集合MBApplications及其公共变量对象集合MBGlobals.所有的对象和对象集合都有相应的方法和属性，应用程序可以调用这些方法和属性来实现特定的功能。以VB5.0为例，要想在程序中嵌入MapInfo对象，首先要声明一个ActiveX对象变量并用其创建MapInfo运行实例，方法如下：

　　Public MapInfo As Object

　　Set MapInfo=CreateObject（'MapInfo.Application'）

　　上述代码将使MapInfo系统启动并自动在后台运行。与独立运行时相比，作为自动化对象的MapInfo系统没有自己的启动窗体和用户界面（菜单、工具条等），其行为完全由调用它的应用程序控制。通过访问Application对象的属性和方法可以获得MapInfo系统的绝大多数功能。常用的方法主要有三种：Do方法将一个代表MapBasic语句的字符串传递给MapInfo系统执行：Eval方法将一个代表MapBasic表达式的字符串传递给MapInfo系统并返回其值：RunMenuCommand方法通知MapInfo系统执行指定的菜单功能项。如果需要使用MapInfo的地图显示功能，可以把其他图窗口嵌入到指定的窗体或图形控件中。例如，下面的代码可以使MapInfo的地图窗口显示在应用程序窗体2的Picture控件中：

　　MapInfo.Do"Set Application Window"& Form2. Picture 1.hwnd

　　MapInfo.Do"Set Next Docment Parent"& Form2. Picture1.hwnd &"Style 1"

　　在地图窗口嵌入后，应用程序还可以象对待正常窗口一样对其进行放大、缩小和移动操作。同样的方法也可以用来嵌入MapInfo系统所能提供的其他，如图例窗口、布局窗口、信息窗口和数据浏览窗口等。

　　在进行一些比较复杂的地理信息操作时，仅仅使用Do方法一条条地发送MapBasic指令显示是不方便的，应当采用编写Mapbasic程序的方式处理，并把执行结果返回给应用程序。这样能够避免在应用程序和MapInfo系统之间过于频繁的数据交换，从而节省了系统资源、提高了运行效率。调用MapBasic程序的代码如下：

　　MapBasic.Do"Run Application" & Mbfilename

　　要实现对MapBasic程序的控制并从中获取数据，可以使用MBApplications对象集合。把MBApplications称作对象集合是因为它代表了当前所有在MapInfo系统中运行的MapBasic程序。与Application对象的使用方法相同，我们首先要创建MBApplications对象，然后再访问其属性和方法。如果要访问一个具体的MapBasic程序对象，可以在集合对象后加上序号来指定。下面的代码通过访问MBApplication对象集合把当前正在运行的所有MapBasic程序名称返回给数组Mbfilename（）：

　　Dim MbApplist As Object

　　Set MbApplist=MapInfo.MBApplications

　　i=1

　　Do While i <=MbApplist.Count

　　Mbfilename（i）=MbApplist（i）。Name

　　i=i+1

　　Loop

　　MBApplications对象集合的属性是只读的，其值不能由应用程序改变。如果要对某一MapBaisc程序对象进行控制，必须使用其Do方法。MapBasic程序对Do方法的响应是通过执行RemoteMsgHandler（）过程来完成的。在Do方法被调用的，MapInfo会自动执行指定程序的RemoteMsgHandler（）过程，这时可以用CommandInfo（）函数来获得Do方法的调用参数，加以判断后再转到相应的执行代码。类似的，要从MapBasic程序中返回数据可以使用其Eval方法，而程序返回什么值由其RemoteQueryHandler（）函数中的代码决定。对于在MapBasic程序中使用的公共变量，应用程序也可以通过MBGlobals对象集合来直接访问。比如要将序号为1的MapBasic程序中的公共变量global 1的值加1,可以使用下面的代码：

　　Dim globinfo As Object,Oldval As Integer

　　Set globinfo=Mapinfo.MBApplications（1）。MBGlobals

　　Oldval=globinfo（"global 1"）。Value

　　globinfo（"global 1"）。Value-Oldval+1

　　通过OLE自动化技术，应用程序可以使用MapInfo系统几乎所有的功能。不过，由于采用了客户机/服务器的运行模式，在OLE自动化方式下应用程序总是处于主动的地位，而MapInfo系统只能作为被动的服务提供方。这样在实际应用中，一些需要由MapInfo主动提供信息的情况就变得很难处理了。因此仅使用OLE自动化技术还不能完全满足应用需要，必须用其他方法来补充其功能。采用下面要介绍的CallBack（回应）方法可以很好地解决这一问题。

　　3 回应方法

　　为完成某些功能，有时我们要允许用户对以自动化方式嵌入应用程序中的MapInfo系统进行直接操作。

　　在MapInfo系统中，回应方法通过使用OLE技术实现。引发回应信息的事件主要有三类：地图窗口状态的改变、特定功能控制（菜单、按钮、工具条）的选择以及在绘图对象选择等特定状态下地图窗口内的用户输入事件。要在应用程序中使用回应方法，首先要创建一个专门负责回应信息接收和处理的OLE对象类（class），然后在其中定义不同的方法以处理不同类型的回应信息。以获取地图窗口状态变化的回应信息为例，首先在VB工程中添加一个自定义类MIResponder,并在其中添加如下过程：

　　Public Sub WindowContertsChanged （RyVal CommandInfoStr As Integer）

　　然后创建接收CallBack信息的OLE类对象theResponder:

　　Set theResponder=New MIResponder

　　MapInfo.SetCallback theResponder

　　则当某一地图窗口状态因用户操作而改变时，theResponder对象的WindowContertsChanged方法就会因MapInfo系统的调用而自动执行。此时的CommandInfoStr参数就是MapInfo传来的一个整数值即通知窗口状态改变的回应信息，代表发生变化的地图窗口的标识号，而WindowChanged方法中的代码就可以利用这个参数从MapInfo中获取详细的信息并作出处理。

　　在绝大多数情况下，使用OLE自动化技术和回应方法已经可以实现MapInfo系统与应用程序的完美集成。在OLE自动化方式下，作为服务器程序的MapInfo系统只能被动接受应用程序的操控，即使用回应方式也只是做到了主动通知，真正的数据交换还是必须由应用程序控制完成。为了让MapBasic程序在自动化方式下取得数据交换的主动权，可以采用标准的进程间通信方式：运态数据交换（DDE）技术。

　　4 动态数据交换技术

　　DDE是Windows环境下不同应用程序之间通过主动链接完成数据交换的协议标准，它可以让两个应用程序通过一条即时建立的数据通道进行动态实时的信息传递。MapInfo系统和使用VB开发的应用程序都支持DDE功能，并且定义了一套会话主题供其他程序使用。

　　要实现DDE会话，应用程序首先要向Windows操作系统申请建立数据通道，并提供会话对象的名称和主题作为参数。操作系统随后将这一请求转发合拥有该名称和主题的应用程序。在得到响应后就在内存中建立一个数据交换通道，并把标识返回给会话双方。数据通道建立后，会话双方就可以互相传递数据项完成信息交换。只要服务器程序支持，在一个数据通道内可以传递多个数据项。在数据交换完成后，客户程序应当主动提出内存资源。以MapBasic程序向VB应用程序申请数据交换服务的DDE会话为例，建立数据交换通道的程序代码如下：

　　Dim channelID As Integer

　　ChannelID=DDEInitiate（"vbappname","form 1"）

　　其中vbappname是VB应用程序的名称，form1是其拥有的一个支持DDE功能的窗体。由于VB对DDE的支持是以控件为单位，因此其提供的DDE会话数据项就是拥有所请求数据的控件，而该控制所在的窗体就是会话主题。一旦与窗体建立了DDE数据通道，就可以与该窗体中所有支持DDE功能的控件进行数据交换。在MapBasic程序中，如果要从数据项获取数据可以使用函数DDERequest$（），发送数据则使用DDEPoke语句。例如，下面的代码将读取VB文本控件Text1的值，随后返回一个新的字符串值：

　　Dim Oldtext As string,Newtext as string

　　Oldtext=DDERequest$（ChannelID,"text1"）

　　Newtext=Oldtext &"newstring"

　　DDEPoke ChannelID,"text1",Newtext

　　数据交换结束后，可以用DDETerminate语句来终止对话：

　　DDETerminate ChannelID

　　对于同时有多个DDE会话的情况，也可以用DDETerminateAll来关闭所有的会话。

    本文以MapInfo系统和VB5.0为例，详细介绍了三种主要的嵌入式集成设计技术：OLE自动化、回应方法和动态数据交换。这些方法已经被应用在智能交通调度系统、车辆监控系统、油田综合信息管理系统等多项GIS工程项目中，实践证明效果良好。

　　5 嵌入式GIS的应用

　　嵌入式GIS开发在测绘、智能交通（ITS）、海事、国防、公安等领域都有无限广阔的应用前景，可广泛应用于军事、野外测绘、医疗、汽车导航等领域；个人汽车导航和PDA（或手机）定位服务（LBS）的出现与发展更是将嵌入式地理信息技术深入到每个人的日常生活。目前主要的应用领域有：

　　（1）智能交通（交通信息管理系统、车辆导航系统等大量嵌入式GIS软件在交通部门的应用将大大提高交通系统的智能化程度）；

　　（2）野外数据采集和各种普查（公路普查、环保普查等）；

　　（3）军事国防领域（步兵装备、装甲、坦克、情报收集等）；

　　（4）智能汽车（集通信、信息、导航、地图、娱乐和各类安全电子系统于一体的智能汽车将是未来汽车的发展方向）；

　　（5）个人用户（结合手机和个人PDA的应用，将提供实时的地图信息和出行参考，大大提高人们的生活质量）。

　　随着定位手段的多样性（美国GPS 、俄罗斯的GLONASS、欧盟的Galileo、中国的"北斗"、基站）、通信网路的广泛性（GPRS、CDMA、CDPD等无线公网）、用户终端的广泛性（手机、PDA）以及巨大市场潜力的无限性（以我国两亿手机用户一个月5元的地理信息服务，一年将是120亿的市场），我们可以看到嵌入式GIS的前景广阔，由于嵌入式GIS市场巨大，因此竞争非常激烈，国外的GIS巨头纷纷投入巨资开发自己的嵌入式GIS产品，国内也有近十家企业进行相关产品开发工作。