摘要： 本文介紹了客戶/服務器開發工具PowerBuilder和桌面地圖信息系統MapInfo集成開發的基本方法。重點討論了集成開發中的一些關鍵技術的實現方法。 
　
關鍵詞：PowerBuilder，MapInfo，MapBasic，系統集成，OLE自動化,回調 
　
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給出了客戶程序和服務器程序間的關系。
圖1 PowerBuilder客戶程序和MapInfo服務器的關系
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")
圖2 回調技術的實現
4．實現回調
在PowerBuilder的客戶程序中，是通過OLE自動化對象對集成的地圖窗口進行控制，如圖2所示。當客戶程序在地圖窗口進行有關的操作后（例如使用某個自定義工具在地圖窗口上單擊某個地圖對象時），對應的事件只傳遞給MapInfo服務器，而不直接傳遞給客戶程序，為了在客戶程序中對事件進行處理，必須采用回調技術。由于在PowerBuilder中不能定義公共的回調類，因此必須編寫一個在MapInfo服務器中運行的MapBasic應用程序，用來將回調信息反饋給PowerBuilder客戶程序。其實現過程為：
首先，在包含集成地圖窗口的PowerBuilder應用窗口創建一個用戶自定義事件ue_SelectionMade，事件ID為pbm_Custom01（= 1024）。
然后，編寫一個在MapInfo服務器中運行的MapBasic應用程序，在此應用程序中添加對地圖窗口事件進行處理的子程序。當對客戶程序中的集成地圖窗口進行操作時，MapBasic程序中對應的事件處理程序被觸發。在事件處理程序中，可以將要傳遞給客戶程序的信息保存到MapBasic中定義的一個全局變量中，然后使用Win32 API函數PostMessage（），以PowerBuilder應用窗口的句柄和該窗口的用戶自定義事件的ID為參數，向PowerBuilder客戶程序發送消息，這樣PowerBuilder客戶程序就可以在該窗口的用戶自定義事件中處理地圖窗口事件了，并且還可以使用MBApplications對象的方法，獲取MapBasic全局變量中保存的事件信息。如下代碼展示了MapBasic應用程序在接收到地圖對象選擇事件時的處理的過程：
' 預定義PowerBuilder應用窗口的用戶自定義事件的唯一數值標識符
DEFINE SELECTION_MADE 1024
'響應地圖對象選擇事件
Sub SelChangedHandler()
'如果選中一個地圖對象
If CommandInfo(CMD_INFO_SELTYPE) = 1 Then 
'保存地圖對象所在的表的名稱
g_seltabname = SelectionInfo(SEL_INFO_TABLENAME) 
'向PowerBuilder客戶程序發送消息
iRc = PostMessage(g_pbhwnd_bg,SELECTION_MADE,0,0) 
End If
End Sub 
下面的程序段中給出了實現回調時PowerBuilder客戶程序的處理過程。該處理過程使用了MapBasic編寫的mbserver.mbx程序。在MapBasic程序中保存事件信息的變量為g_SelTabName，而g_PbHWnd是MapBasic程序中用來接收PowerBuilder客戶程序窗口句柄的全局變量。
//在MapInfo服務器中運行MapBasic應用程序
MapInfo.Do("Run Application ~"" + gs_AppDir + "DataFusion.mbx~"")
//創建對MapBasic應用程序進行控制的OLE自動化對象
MBAppOleObject = Create OleObject 
MBAppOleObject = MapInfo.MBApplications.Item(1)
//傳遞PowerBuilder客戶程序中的窗口句柄給MapBasic應用程序
//以便MapBasic應用程序將返回給PowerBuilder客戶程序
MBAppOleObject.MBGlobals.Item("g_pbhwnd_bg").Value = String(Handle(this))
由下面代碼所示的PowerBuilder客戶程序就可以在窗口w_map的用戶自定義事件ue_SelectionMade中處理地圖窗口事件：
//在PowerBuilder客戶程序的用戶自定義事件中使用MBAppOleObject對象獲取回調信息
ls_MI_CommandInfo = MBAppOleObject.MBGlobals.Item("g_CommandInfoString").Value
5．充分利用MapBasic應用程序
MapBasic是MapInfo提供的用戶系統開發工具，它具有對地圖對象的管理、對含有地圖對象的MapInfo表的管理等方面的強大功能。
在將MapInfo地圖集成到PowerBuilder的開發應用中，MapBasic不僅僅能用來實現回調，還可實現其它諸多功能。例如，在開發過程中經常會遇到需要保存地圖對象類型的中間結果的問題，而在PowerBuilder中沒有與之對應的數據類型，又難以通過MapInfo OLE自動化對象的方法和屬性實現等諸如此類的問題，若利用MapBasic應用程序以及使用它的OLE自動化對象MBApplications的方法和屬性來解決，可以達到事半功倍之效果。
與MapInfo OLE自動化對象相似，MapBasic的OLE自動化對象MBApplications也有自己的Do方法和Eval方法。每當PowerBuilder客戶程序調用它們時，MapInfo就會自動調用MapBasic的保留過程RemoteMsgHandler（）或RemoteQueryHandler（）過程，并可以在過程中通過CommandInfo(CMD_INFO_MSG)得到調用Do方法或Eval方法的參數。
以下代碼運用MBApplications的Do方法，實現改變當前選中地圖對象的顏色：
//要求將當前選中地圖對象的顏色改為蘭色
MBAppOleObject.Do("Blue")
MapInfo將自動調用RemoteMsgHandler（）過程：
Sub RemoteMsgHandler()
Dim MyObject As Object
'獲取并分析Do方法的參數
CmdInfoStr = CommandInfo(CMD_INFO_MSG)
'改變地圖對象的顏色
If CmdStr= "Blue" then 
MyObject = Selection.obj
Alter Object MyObject Info 2, MakeCustomSymbol ("Towe1-32.bmp", RGB(0,0,255), 18, 2)
Update Selection set obj = MyObject Where RowID = 1
End If
End Sub
MBApplications的Eval方法的調用與Do方法的類似，只不過MapInfo將自動調用RemoteQueryHandler（）過程，并要求返回一個結果。
6 結束語
目前，關于MapInfo地圖的集成應用大都是利用VB、VC++開發的，利用PowerBuilder開發的實際應用卻很少，以至很多人認為難以利用PowerBuilder實現對MapInfo的集成開發，就算實現了也難以很好地完成對地圖窗口的控制。本文介紹了如何將MapInfo地圖集成到PowerBuilder的開發應用中的基本方法，以及其中的一些關鍵技術。運用此方法開發應用程序，可以充分發揮PowerBuilder強大的數據訪問與操縱能力和MapInfo的地圖信息管理功能，迅速地、靈活地開發基于地理信息系統的客戶/服務器的信息管理系統。

參考文獻：
1.William B.Heys著，王藝，徐利平，范維等譯PowerBuilder 6 開發指南，1998
2.張劍平，任福繼，葉榮華，駱紅波著，地理信息系統與MapInfo應用，科學出版社，1999
3.宜晨等著，MapInfo 4.0 實用培訓教程，電子工業出版社，1998