- 相關(guān)推薦
PowerBuilder和MapInfo的集成開發(fā)技術(shù)
PowerBuilder和MapInfo的集成開發(fā)技術(shù) 中國人民解放軍電子工程學(xué)院 梁亞聲摘要： 本文介紹了客戶/服務(wù)器開發(fā)工具PowerBuilder和桌面地圖信息系統(tǒng)MapInfo集成開發(fā)的基本方法。重點討論了集成開發(fā)中的一些關(guān)鍵技術(shù)的實現(xiàn)方法。
關(guān)鍵詞：PowerBuilder，MapInfo，MapBasic，系統(tǒng)集成，OLE自動化,回調(diào)
0 引言
PowerBuilder 是一個面向?qū)ο蟮挠糜跇?gòu)造基于客戶/服務(wù)器（Client/Server）數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)工具，它通過ODBC可同時支持Sysbase、Oracle、Informix、SQL Server等多種關(guān)系數(shù)據(jù)庫，具有強(qiáng)大的數(shù)據(jù)庫應(yīng)用程序開發(fā)功能，尤其是它提供的如數(shù)據(jù)窗口（Data Window）等工具，使其能夠更加方便有效地訪問與操縱數(shù)據(jù)庫。
MapInfo是由美國MapInfo公司推出的地理信息系統(tǒng)開發(fā)平臺，其核心包括MapInfo Professional和MapBasic兩個部件。通過MapInfo平臺，能把大量信息直觀地與地理圖形有機(jī)聯(lián)系起來，使枯燥的表格數(shù)據(jù)可視化，從而極大地方便了數(shù)據(jù)分析和輔助決策。
利用PowerBuilder強(qiáng)大的數(shù)據(jù)訪問與操縱能力和MapInfo的地圖信息管理功能，結(jié)合Integrated Mapping技術(shù)、OLE自動化技術(shù)等，將MapInfo地圖集成到PowerBuilder的應(yīng)用中，可以迅速地開發(fā)出具有強(qiáng)大地圖處理能力的應(yīng)用程序，使數(shù)據(jù)庫中繁雜抽象的數(shù)據(jù)快速、準(zhǔn)確、靈活地顯示于電子地圖之上，將數(shù)據(jù)可視化，實現(xiàn)空間數(shù)據(jù)和屬性數(shù)據(jù)的有機(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ù)器對集成的地圖窗口進(jìn)行控制。圖1給出了客戶程序和服務(wù)器程序間的關(guān)系。
圖1 PowerBuilder客戶程序和MapInfo服務(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的程序標(biāo)識，即“MapInfo.Application”：
//OLEObject對象的實例
OLEObject MapInfo
//接收錯誤代碼
Integer ErrCode
//創(chuàng)建一個與MapInfo進(jìn)行通信的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")
圖2 回調(diào)技術(shù)的實現(xiàn)
4．實現(xiàn)回調(diào)
在PowerBuilder的客戶程序中，是通過OLE自動化對象對集成的地圖窗口進(jìn)行控制，如圖2所示。當(dāng)客戶程序在地圖窗口進(jìn)行有關(guān)的操作后（例如使用某個自定義工具在地圖窗口上單擊某個地圖對象時），對應(yīng)的事件只傳遞給MapInfo服務(wù)器，而不直接傳遞給客戶程序，為了在客戶程序中對事件進(jìn)行處理，必須采用回調(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)用程序中添加對地圖窗口事件進(jìn)行處理的子程序。當(dāng)對客戶程序中的集成地圖窗口進(jìn)行操作時，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ù)值標(biāo)識符
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)用程序進(jìn)行控制的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表的管理等方面的強(qiáng)大功能。
在將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的方法和屬性來解決，可以達(dá)到事半功倍之效果。
與MapInfo OLE自動化對象相似，MapBasic的OLE自動化對象MBApplications也有自己的Do方法和Eval方法。每當(dāng)PowerBuilder客戶程序調(diào)用它們時，MapInfo就會自動調(diào)用MapBasic的保留過程RemoteMsgHandler（）或RemoteQueryHandler（）過程，并可以在過程中通過CommandInfo(CMD_INFO_MSG)得到調(diào)用Do方法或Eval方法的參數(shù)。
以下代碼運用MBApplications的Do方法，實現(xiàn)改變當(dāng)前選中地圖對象的顏色：
//要求將當(dāng)前選中地圖對象的顏色改為蘭色
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)用卻很少，以至很多人認(rèn)為難以利用PowerBuilder實現(xiàn)對MapInfo的集成開發(fā)，就算實現(xiàn)了也難以很好地完成對
地圖窗口的控制。本文介紹了如何將MapInfo地圖集成到PowerBuilder的開發(fā)應(yīng)用中的基本方法，以及其中的一些關(guān)鍵技術(shù)。運用此方法開發(fā)應(yīng)用程序，可以充分發(fā)揮PowerBuilder強(qiáng)大的數(shù)據(jù)訪問與操縱能力和MapInfo的地圖信息管理功能，迅速地、靈活地開發(fā)基于地理信息系統(tǒng)的客戶/服務(wù)器的信息管理系統(tǒng)。
參考文獻(xiàn)：
1.William B.Heys著，王藝，徐利平，范維等譯PowerBuilder 6 開發(fā)指南，1998
2.張劍平，任福繼，葉榮華，駱紅波著，地理信息系統(tǒng)與MapInfo應(yīng)用，科學(xué)出版社，1999
3.宜晨等著，MapInfo 4.0 實用培訓(xùn)教程，電子工業(yè)出版社，1998
【PowerBuilder和MapInfo的集成開發(fā)技術(shù)】相關(guān)文章：
利用PowerBuilder開發(fā)WEB應(yīng)用08-06
利用PowerBuilder開發(fā)WEB應(yīng)用08-06
利用PowerBuilder開發(fā)WEB應(yīng)用08-06
利用PowerBuilder開發(fā)WEB應(yīng)用08-06
PowerBuilder的分布式計算技術(shù)及其應(yīng)用08-06
PowerBuilder數(shù)據(jù)窗口編程技巧08-06
Powerbuilder6.5應(yīng)用實例08-12