地理信息系统的嵌入式开发技术（2） 嵌入式开发, 技术, 信息

我是MT

3 回应方法
为完成某些功能，有时我们要允许用户对以自动化方式嵌入应用程序中的MapInfo系统进行直接操作。比如，用户可能想通过用鼠标点击图形对象的方式来查看与之相关的信息，或者是要在地图窗口中绘制一个新的图形对象。在这种情况下，应用程序并不知道用户操作事件发生和结束的具体时间，要想及时获得操作信息并作出处理，只能借助直接接受该操作的 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系统与应用程序的完美集成。不过在某些比较复杂的应用情况中，有可能需要让MapBasic程序主动从应用程序中提取数据。在OLE自动化方式下，作为服务器程序的MapInfo系统只能被动接受应用程序的操控，即使用回应方式也只是做到了主动通知，真正的数据交换还是必须由应用程序控制完成。为了让MapBasic程序在自动化方式下取得数据交换的主动权，可以采用标准的进程间通信方式：运态数据交换(DDE)技术。
4 动态数据交换技术
DDE是Windows环境下不同应用程序之间通过主动链接完成数据交换的协议标准，它可以让两个应用程序通过一条即时建立的数据通道进行动态实时的信息传递。在一次DDE会话过程中，主动申请建立数据交换通道的应用程序称为客户程序，它是数据交换服务的接受者;响应链接请求的应用程序称为服务器程序，它是数据交换服务的提供者。DDE技术允许一个应用程序同时与其他程序建立多个DDE会话，在一个DDE会话中作为客户方的程序也可以同时是另一个会话中的服务器。DDE会话有三个要素：会话对象名称(ApplicationName)、会话主题(LinkTopic)和数据项(LinkItem)。其中对象名称应当是一个支持DDE功能且正在运行的应用程序，会话主题和数据项则要符合服务器的定义。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来关闭所有的会话。
随着Windows操作系统的日益流行，嵌入式开发技术目前已成为设计大型软件系统的主流方法。由于充分利用了已有的软件成果，采用嵌入式技术可以缩短应用软件的开发周期、减少开发成本，并且使系统具有清晰的层次结构，有利于进行调试和维护。本文以MapInfo系统和VB5.0为例，详细介绍了三种主要的嵌入式集成设计技术：OLE自动化、回应方法和动态数据交换。这些方法已经被应用在智能交通调度系统、车辆监控系统、油田综合信息管理系统等多项GIS工程项目中，实践证明效果良好。