PowerBuilder和MapInfo的集成開發(fā)技術(shù)2007-09-12 13:15PowerBuilder 是一個面向?qū)ο蟮挠糜跇?gòu)造基于客戶/服務(wù)器（Client/Server）數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)工具，它通過ODBC可同時支持Sysbase、Oracle、Informix、SQL Server等多種關(guān)系數(shù)據(jù)庫，具有強大的數(shù)據(jù)庫應(yīng)用程序開發(fā)功能，尤其是它提供的如數(shù)據(jù)窗口（Data Window）等工具，使其能夠更加方便有效地訪問與操縱數(shù)據(jù)庫。 
MapInfo是由美國MapInfo公司推出的地理信息系統(tǒng)開發(fā)平臺，其核心包括MapInfo Professional和MapBasic兩個部件。通過MapInfo平臺，能把大量信息直觀地與地理圖形有機聯(lián)系起來，使枯燥的表格數(shù)據(jù)可視化，從而極大地方便了數(shù)據(jù)分析和輔助決策。
利用PowerBuilder強大的數(shù)據(jù)訪問與操縱能力和MapInfo的地圖信息管理功能，結(jié)合Integrated Mapping技術(shù)、OLE自動化技術(shù)等，將MapInfo地圖集成到PowerBuilder的應(yīng)用中，可以迅速地開發(fā)出具有強大地圖處理能力的應(yīng)用程序，使數(shù)據(jù)庫中繁雜抽象的數(shù)據(jù)快速、準確、靈活地顯示于電子地圖之上，將數(shù)據(jù)可視化，實現(xiàn)空間數(shù)據(jù)和屬性數(shù)據(jù)的有機結(jié)合。

1．開發(fā)框架
使用PowerBuilder和MapInfo集成開發(fā)技術(shù)所開發(fā)的應(yīng)用程序，稱為集成的地圖應(yīng)用程序（Integrated Mapping Application）。在集成的地圖應(yīng)用程序中，以客戶/服務(wù)器的開發(fā)模式，使用PowerBuilder開發(fā)的應(yīng)用程序稱為客戶程序。客戶程序運行在前臺，通過OLE調(diào)用在后臺運行的作為OLE自動化服務(wù)器的Mapinfo。
在集成的地圖應(yīng)用程序中，根據(jù)MapInfo提供的Integrated Mapping接口，在PowerBuilder客戶程序中使用Outbound OLE Automation（輸出OLE自動化）技術(shù)，將MapInfo的地圖窗口集成到客戶程序中，從而使客戶程序具備地圖處理能力。客戶程序使用MapInfo OLE自動化對象、MapBasic OLE自動化對象的有關(guān)屬性和方法，通過MapInfo OLE自動化服務(wù)器對集成的地圖窗口進行控制。圖1給出了客戶程序和服務(wù)器程序間的關(guān)系。

2．建立PowerBuilder客戶程序和MapInfo OLE服務(wù)器的連接
建立PowerBuilder客戶程序和MapInfo OLE服務(wù)器的連接在原理上是：在PowerBuilder開發(fā)的客戶程序中，通過使用Outbound OLE Automation技術(shù)實現(xiàn)客戶程序和MapInfo服務(wù)器的連接，借助OLE調(diào)用MapInfo服務(wù)器。具體實現(xiàn)上是：在包含地圖窗口的框架窗口的Open事件中添加代碼，創(chuàng)建一個新的OLEObject，而將MapInfo作為這個新的OLEObject的OLE服務(wù)器。要調(diào)用MapInfo服務(wù)，則需調(diào)用ConnectToNewObject（）函數(shù)并傳遞OLE Programmable Object的程序標識，即“MapInfo.Application”：

//OLEObject對象的實例
OLEObject MapInfo
//接收錯誤代碼
Integer ErrCode
//創(chuàng)建一個與MapInfo進行通信的OLE自動化對象
MapInfo = Create OLEObject
//連接OLE自動化對象到MapInfo服務(wù)器
ErrCode = MapInfo.ConnectToNewObject("MapInfo.Application")
If ErrCode <> 0 Then 
    MessageBox("Fatal Error", "Error connecting to the map server. Exiting...")
    Ruturn
End If

在退出應(yīng)用程序時，要調(diào)用DisConnectToObject（）函數(shù)斷開OLE自動化對象和MapInfo OLE自動化服務(wù)器之間的連接，并撤消OLE自動化對象，以釋放其占用的系統(tǒng)資源。為此，可在上述框架窗口的Close事件中添加代碼實現(xiàn)：

//斷開與OLE自動化對象與MapInfo服務(wù)器的連接
MapInfo.DisConnectToObject()
//釋放OLE自動化對象
Destroy MapInfo

3．將地圖窗口集成到PowerBuilder應(yīng)用程序中
要將MapInfo的地圖窗口集成到PowerBuilder開發(fā)的客戶程序中，必須在客戶程序中為MapInfo中的應(yīng)用窗口重新指定父窗口，并指定一個Picture控件作為集成的地圖窗口的父窗口。可以使用OLE自動化對象的Do方法實現(xiàn)上述功能：
//重新指定MapInfo中的應(yīng)用窗口的父窗口為應(yīng)用程序窗口
//其中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").gif (11237 字節(jié))" src="/lunwen/UploadFiles/200505/20050517200008607.gif" width=681>

4．實現(xiàn)回調(diào)
在PowerBuilder的客戶程序中，是通過OLE自動化對象對集成的地圖窗口進行控制，如圖2所示。當客戶程序在地圖窗口進行有關(guān)的操作后（例如使用某個自定義工具在地圖窗口上單擊某個地圖對象時），對應(yīng)的事件只傳遞給MapInfo服務(wù)器，而不直接傳遞給客戶程序，為了在客戶程序中對事件進行處理，必須采用回調(diào)技術(shù)。由于在PowerBuilder中不能定義公共的回調(diào)類，因此必須編寫一個在MapInfo服務(wù)器中運行的MapBasic應(yīng)用程序，用來將回調(diào)信息反饋給PowerBuilder客戶程序。其實現(xiàn)過程為：
首先，在包含集成地圖窗口的PowerBuilder應(yīng)用窗口創(chuàng)建一個用戶自定義事件ue_SelectionMade，事件ID為pbm_Custom01（= 1024）。
然后，編寫一個在MapInfo服務(wù)器中運行的MapBasic應(yīng)用程序，在此應(yīng)用程序中添加對地圖窗口事件進行處理的子程序。當對客戶程序中的集成地圖窗口進行操作時，MapBasic程序中對應(yīng)的事件處理程序被觸發(fā)。在事件處理程序中，可以將要傳遞給客戶程序的信息保存到MapBasic中定義的一個全局變量中，然后使用Win32 API函數(shù)PostMessage（），以PowerBuilder應(yīng)用窗口的句柄和該窗口的用戶自定義事件的ID為參數(shù)，向PowerBuilder客戶程序發(fā)送消息，這樣PowerBuilder客戶程序就可以在該窗口的用戶自定義事件中處理地圖窗口事件了，并且還可以使用MBApplications對象的方法，獲取MapBasic全局變量中保存的事件信息。如下代碼展示了MapBasic應(yīng)用程序在接收到地圖對象選擇事件時的處理的過程：

' 預(yù)定義PowerBuilder應(yīng)用窗口的用戶自定義事件的唯一數(shù)值標識符
DEFINE SELECTION_MADE 1024
'響應(yīng)地圖對象選擇事件
Sub SelChangedHandler()
    '如果選中一個地圖對象
    If CommandInfo(CMD_INFO_SELTYPE) = 1 Then 
       '保存地圖對象所在的表的名稱
       g_seltabname = SelectionInfo(SEL_INFO_TABLENAME) 
       '向PowerBuilder客戶程序發(fā)送消息
       iRc = PostMessage(g_pbhwnd_bg,SELECTION_MADE,0,0) 
    End If
End Sub 

下面的程序段中給出了實現(xiàn)回調(diào)時PowerBuilder客戶程序的處理過程。該處理過程使用了MapBasic編寫的mbserver.mbx程序。在MapBasic程序中保存事件信息的變量為g_SelTabName，而g_PbHWnd是MapBasic程序中用來接收PowerBuilder客戶程序窗口句柄的全局變量。

//在MapInfo服務(wù)器中運行MapBasic應(yīng)用程序
MapInfo.Do("Run Application ~"" + gs_AppDir + "DataFusion.mbx~"")
//創(chuàng)建對MapBasic應(yīng)用程序進行控制的OLE自動化對象
MBAppOleObject = Create OleObject 
MBAppOleObject = MapInfo.MBApplications.Item(1)
//傳遞PowerBuilder客戶程序中的窗口句柄給MapBasic應(yīng)用程序
//以便MapBasic應(yīng)用程序?qū)⒎祷亟oPowerBuilder客戶程序
MBAppOleObject.MBGlobals.Item("g_pbhwnd_bg").Value = String(Handle(this))

由下面代碼所示的PowerBuilder客戶程序就可以在窗口w_map的用戶自定義事件ue_SelectionMade中處理地圖窗口事件：

//在PowerBuilder客戶程序的用戶自定義事件中使用MBAppOleObject對象獲取回調(diào)信息
ls_MI_CommandInfo = MBAppOleObject.MBGlobals.Item("g_CommandInfoString").Value

5．充分利用MapBasic應(yīng)用程序
MapBasic是MapInfo提供的用戶系統(tǒng)開發(fā)工具，它具有對地圖對象的管理、對含有地圖對象的MapInfo表的管理等方面的強大功能。
在將MapInfo地圖集成到PowerBuilder的開發(fā)應(yīng)用中，MapBasic不僅僅能用來實現(xiàn)回調(diào)，還可實現(xiàn)其它諸多功能。例如，在開發(fā)過程中經(jīng)常會遇到需要保存地圖對象類型的中間結(jié)果的問題，而在PowerBuilder中沒有與之對應(yīng)的數(shù)據(jù)類型，又難以通過MapInfo OLE自動化對象的方法和屬性實現(xiàn)等諸如此類的問題，若利用MapBasic應(yīng)用程序以及使用它的OLE自動化對象MBApplications的方法和屬性來解決，可以達到事半功倍之效果。
與MapInfo OLE自動化對象相似，MapBasic的OLE自動化對象MBApplications也有自己的Do方法和Eval方法。每當PowerBuilder客戶程序調(diào)用它們時，MapInfo就會自動調(diào)用MapBasic的保留過程RemoteMsgHandler（）或RemoteQueryHandler（）過程，并可以在過程中通過CommandInfo(CMD_INFO_MSG)得到調(diào)用Do方法或Eval方法的參數(shù)。

以下代碼運用MBApplications的Do方法，實現(xiàn)改變當前選中地圖對象的顏色：

//要求將當前選中地圖對象的顏色改為蘭色
MBAppOleObject.Do("Blue")

MapInfo將自動調(diào)用RemoteMsgHandler（）過程：
Sub RemoteMsgHandler()
    Dim MyObject As Object
    '獲取并分析Do方法的參數(shù)
    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方法的調(diào)用與Do方法的類似，只不過MapInfo將自動調(diào)用RemoteQueryHandler（）過程，并要求返回一個結(jié)果。

6 結(jié)束語    
目前，關(guān)于MapInfo地圖的集成應(yīng)用大都是利用VB、VC++開發(fā)的，利用PowerBuilder開發(fā)的實際應(yīng)用卻很少，以至很多人認為難以利用PowerBuilder實現(xiàn)對MapInfo的集成開發(fā)，就算實現(xiàn)了也難以很好地完成對地圖窗口的控制。本文介紹了如何將MapInfo地圖集成到PowerBuilder的開發(fā)應(yīng)用中的基本方法，以及其中的一些關(guān)鍵技術(shù)。運用此方法開發(fā)應(yīng)用程序，可以充分發(fā)揮PowerBuilder強大的數(shù)據(jù)訪問與操縱能力和MapInfo的地圖信息管理功能，迅速地、靈活地開發(fā)基于地理信息系統(tǒng)的客戶/服務(wù)器的信息管理系統(tǒng)。