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

　　Public Sub WindowContentsChanged (ByVal CommandInfoStr As Integer)

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

　　Set theResponder = New MIResponder

　　MapInfo.SetCallback theResponder

　　则当某一地图窗口状态因用户操作而改变时,theResponder对象的WindowContentsChanged 方法就会因MapInfo系统的调用而自动执行。此时的CommandInfoStr参数就是MapInfo传来的一个整数值即通知窗口状态改变的回应信息,代表发生变化的地图窗口的标识号,而WindowContentsChanged方法中的代码就可以利用这个参数从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″, ″form1″)

　　其中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