0 引言
PowerBuilder 是一个面向对象的用于构造基于客户/服务器（Client/Server）数据库应用系统的开发工具，它通过ODBC可同时支持Sysbase、Oracle、Informix、SQL Server等多种关系数据库，具有强大的数据库应用程序开发功能，尤其是它提供的如数据窗口（Data Window）等工具，使其能够更加方便有效地访问与操纵数据库。
MapInfo是由美国MapInfo公司推出的地理信息系统开发平台，其核心包括MapInfo Professional和MapBasic两个部件。通过MapInfo平台，能把大量信息直观地与地理图形有机联系起来，使枯燥的表格数据可视化，从而极大地方便了数据分析和辅助决策。
利用PowerBuilder强大的数据访问与操纵能力和MapInfo的地图信息管理功能，结合Integrated Mapping技术、OLE自动化技术等，将MapInfo地图集成到PowerBuilder的应用中，可以迅速地开发出具有强大地图处理能力的应用程序，使数据库中繁杂抽象的数据快速、准确、灵活地显示于电子地图之上，将数据可视化，实现空间数据和属性数据的有机结合。
1 开发框架
使用PowerBuilder和MapInfo集成开发技术所开发的应用程序，称为集成的地图应用程序（Integrated Mapping Application）。在集成的地图应用程序中，以客户/服务器的开发模式，使用PowerBuilder开发的应用程序称为客户程序。客户程序运行在前台，通过OLE调用在后台运行的作为OLE自动化服务器的Mapinfo。
在集成的地图应用程序中，根据MapInfo提供的Integrated Mapping接口，在PowerBuilder客户程序中使用Outbound OLE Automation（输出OLE自动化）技术，将MapInfo的地图窗口集成到客户程序中，从而使客户程序具备地图处理能力。客户程序使用MapInfo OLE自动化对象、MapBasic OLE自动化对象的有关属性和方法，通过MapInfo OLE自动化服务器对集成的地图窗口进行控制。图1给出了客户程序和服务器程序间的关系。
2．建立PowerBuilder客户程序和MapInfo OLE服务器的连接
建立PowerBuilder客户程序和MapInfo OLE服务器的连接在原理上是：在PowerBuilder开发的客户程序中，通过使用Outbound OLE Automation技术实现客户程序和MapInfo服务器的连接，借助OLE调用MapInfo服务器。具体实现上是：在包含地图窗口的框架窗口的Open事件中添加代码，创建一个新的OLEObject，而将MapInfo作为这个新的OLEObject的OLE服务器。要调用MapInfo服务，则需调用ConnectToNewObject（）函数并传递OLE Programmable Object的程序标识，即“MapInfo.Application”：
//OLEObject对象的实例
OLEObject MapInfo
//接收错误代码
Integer ErrCode
//创建一个与MapInfo进行通信的OLE自动化对象
MapInfo = Create OLEObject
//连接OLE自动化对象到MapInfo服务器
ErrCode = MapInfo.ConnectToNewObject("MapInfo.Application")
If ErrCode <> 0 Then
MessageBox("Fatal Error", "Error connecting to the map server. Exiting...")
Ruturn
End If
在退出应用程序时，要调用DisConnectToObject（）函数断开OLE自动化对象和MapInfo OLE自动化服务器之间的连接，并撤消OLE自动化对象，以释放其占用的系统资源。为此，可在上述框架窗口的Close事件中添加代码实现：
//断开与OLE自动化对象与MapInfo服务器的连接
MapInfo.DisConnectToObject()
//释放OLE自动化对象
Destroy MapInfo
3．将地图窗口集成到PowerBuilder应用程序中
要将MapInfo的地图窗口集成到PowerBuilder开发的客户程序中，必须在客户程序中为MapInfo中的应用窗口重新指定父窗口，并指定一个Picture控件作为集成的地图窗口的父窗口。可以使用OLE自动化对象的Do方法实现上述功能：
//重新指定MapInfo中的应用窗口的父窗口为应用程序窗口
//其中w_map为一个窗口
MapInfo.Application.Do ("Set Application Window " + String(Handle(w_map)))
//指定一个Picture控件棗p_map为地图窗口的父窗口，将地图窗口集成到客户程序中
MapInfo.Do ("Set Next Document Parent " + string(Handle(p_map)) + " Style 1")
