ＰｏｗｅｒＢｕｉｌｄｅｒ與ＭａｐＩｎｆｏ結(jié)合進(jìn)行地理信息系統(tǒng)（ＧＩＳ）二次開發(fā)

摘要：主要探討了在基于MapInfod的二次開發(fā)應(yīng)用系統(tǒng)中，采用OLE自動化以及與客戶/服務(wù)器開發(fā)工具PowerBuilder系統(tǒng)集成開發(fā)的基本方法和集成開發(fā)中的一些關(guān)鍵技術(shù)的實(shí)現(xiàn)方法。

關(guān)鍵詞：PowerBuilder；MapInfo；MapBasic；OLE自動化

中圖分類號：TP311文獻(xiàn)標(biāo)識碼：A文章編號：1009-3044(2008)34-1564-03

PowerBuilder MapInfo in conjunction with the Geographic Information System (GIS) Secondary Development

ZHENG Tao

(The Information and Control Engineering School， Xi’an University of Architecture and Technology， Xi’an 710055， China)

Abstract: Based on MapInfod discussed in the secondary development of application systems， and by using OLE automation and client / server development tools PowerBuilder integrated development system， the basic method and integrated development in a number of key technology implementation.

Key words: PowerBuilder; MapInfo; MapBasic; OLE Automation

1 引言

MapInfo是由美國MapInfo公司推出的地理信息系統(tǒng)開發(fā)平臺，其核心包括MapInfo Professional和MapBasic兩個(gè)部件。MapInfo地理信息系統(tǒng)平臺作為一個(gè)圖形－文字信息完善結(jié)合的軟件工具，能將所需要的信息資料形象、直觀地與地理圖形緊密地聯(lián)結(jié)起來，能提供大量常用的分析、查詢功能，能將結(jié)果以圖形或表格的方式顯示出來。MapBasic作為與MapInfo配套的開發(fā)工。用戶使用MapBasic，可以設(shè)計(jì)、建立符合自己特點(diǎn)和要求的純用戶化的應(yīng)用系統(tǒng)。作為一種結(jié)構(gòu)化語言，MapBasic提供了380多種函數(shù)和命令語句，既簡潔明了、易于學(xué)習(xí)，又具有強(qiáng)大的功能，可以完成用戶的各種需求。與傳統(tǒng)的GIS軟件相比較，良好的軟件集成環(huán)境和面向?qū)ο蠹笆录?qū)動的編程思想，都是MapBasic的優(yōu)點(diǎn)。

PowerBuilder 是一個(gè)面向?qū)ο蟮挠糜跇?gòu)造基于客戶/服務(wù)器（Client/Server）數(shù)據(jù)庫應(yīng)用系統(tǒng)的開發(fā)工具，它通過ODBC可同時(shí)支持Sysbase、Oracle、Informix、SQL Server等多種關(guān)系數(shù)據(jù)庫，具有強(qiáng)大的數(shù)據(jù)庫應(yīng)用程序開發(fā)功能，尤其是它提供的如數(shù)據(jù)窗口（Data Window）等工具，使其能夠更加方便有效地訪問與操縱數(shù)據(jù)庫。

2 對OLE自動化技術(shù)簡介

其它應(yīng)用程序與MapInfo的連接，其它應(yīng)用程序與MapInfo的連接方式。

1) OLE自動化；

2) 回調(diào)(CallBake)]\\；

3) 動態(tài)數(shù)據(jù)交換(DDE)；

4) 運(yùn)行其它應(yīng)用程序；

5) 調(diào)用動態(tài)鏈接庫(DLL)。

其中，運(yùn)行其它應(yīng)用程序方法比較簡單，這里不贅談，而調(diào)用動態(tài)鏈接庫(DLL)方法需要比較高的技巧，且比較繁瑣，不利于實(shí)際應(yīng)用，主要針對OLE自動化技術(shù)進(jìn)行簡單說明。

MapInfo允許其它支持OLE(Object linking and embedding，對象連接嵌入)功能的應(yīng)用程序把MapInfo作為一個(gè)對象加以調(diào)用。MapInfo作為OLE服務(wù)器向其它應(yīng)用程序提供它的對象，而客戶應(yīng)用程序則使用它的對象。其它應(yīng)用程序通過調(diào)用OLE自動化對象(如MapInfo)的方法。屬性來操作MapInfo。例如，調(diào)用DO(string)的方法向MapInfo

發(fā)送命令串來對MapInfo進(jìn)行操作。Do語句把后面的字符串解釋為MapBasic語句，使得MapInfo就像在執(zhí)行MapBasic交互命令窗口中鍵入的命令一樣執(zhí)行這個(gè)命令字符串。

下面是使用Delfi5.0利用自動化OLE技術(shù)與MapInfo建立連接的具體步驟：

1) 對象聲明

Var olemapinfo:Variant；//MapInfo應(yīng)用程序?qū)ο?/p>

2) 初始化對象

Olemapinfo:=CreatOLEobject(‘olemapinfo.Application’)；//啟動MapInfo應(yīng)用程序?qū)ο?/p>

3) 工作方式（以在窗體的panell中打開地圖窗口為例）

Olemapifo.Do (‘Set next Document parent’+panell.Handle +’style 1’)；//“重復(fù)化”下一個(gè)文檔窗口（如map）

Olemapifo.Do（‘open table “c:\\data\\world”+’map from world’）；

//打開world地圖窗口。

在跨平臺集成地圖的應(yīng)用系統(tǒng)中，OLE客戶程序必須能夠充當(dāng)自動化OLE的控制器，能夠創(chuàng)建接口的諸要素，如窗口、窗體以及控制，同時(shí)還必須能夠獲取窗口的窗口號(HWND)。

3 開發(fā)框架

使用PowerBuilder和MapInfo集成開發(fā)技術(shù)所開發(fā)的應(yīng)用程序，稱為集成的地圖應(yīng)用程序（Integrated Mapping Application）。在集成的地圖應(yīng)用程序中，以客戶/服務(wù)器的開發(fā)模式，使用PowerBuilder開發(fā)的應(yīng)用程序稱為客戶程序。客戶程序運(yùn)行在前臺，通過OLE調(diào)用在后臺運(yùn)行的作為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)行控制。

4 建立PowerBuilder客戶程序和MapInfo OLE服務(wù)器的連接

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

//OLEObject對象的實(shí)例

OLEObject MapInfo；

//接收錯(cuò)誤代碼

Integer ErrCode；

//創(chuàng)建一個(gè)與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)用程序時(shí)，要調(diào)用DisConnectToObject（）函數(shù)斷開OLE自動化對象和MapInfo OLE自動化服務(wù)器之間的連接，并撤消OLE自動化對象，以釋放其占用的系統(tǒng)資源。為此，可在上述框架窗口的Close事件中添加代碼實(shí)現(xiàn)：

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

MapInfo.DisConnectToObject()；

//釋放OLE自動化對象

Destroy MapInfo；

5 將地圖窗口集成到PowerBuilder應(yīng)用程序中

要將MapInfo的地圖窗口集成到PowerBuilder開發(fā)的客戶程序中，必須在客戶程序中為MapInfo中的應(yīng)用窗口重新指定父窗口，并指定一個(gè)Picture控件作為集成的地圖窗口的父窗口。可以使用OLE自動化對象的Do方法實(shí)現(xiàn)上述功能：

//重新指定MapInfo中的應(yīng)用窗口的父窗口為應(yīng)用程序窗口

//其中w_map為一個(gè)窗口

MapInfo.Application.Do (\"Set Application Window \" + String(Handle(w_map)))；

//指定一個(gè)Picture控件棗p_map為地圖窗口的父窗口，將地圖窗口集成到客戶程序中

MapInfo.Do (\"Set Next Document Parent \" + string(Handle(p_map)) + \" Style 1\").gif (11237 字節(jié))\" src=\"/Newspic/20051181642511909.gif\" width=681>；

6 實(shí)現(xiàn)回調(diào)

在PowerBuilder的客戶程序中，是通過OLE自動化對象對集成的地圖窗口進(jìn)行控制，如圖2所示。當(dāng)客戶程序在地圖窗口進(jìn)行有關(guān)的操作后（例如使用某個(gè)自定義工具在地圖窗口上單擊某個(gè)地圖對象時(shí)），對應(yīng)的事件只傳遞給MapInfo服務(wù)器，而不直接傳遞給客戶程序，為了在客戶程序中對事件進(jìn)行處理，必須采用回調(diào)技術(shù)。由于在PowerBuilder中不能定義公共的回調(diào)類，因此必須編寫一個(gè)在MapInfo服務(wù)器中運(yùn)行的MapBasic應(yīng)用程序，用來將回調(diào)信息反饋給PowerBuilder客戶程序。其實(shí)現(xiàn)過程為：

首先，在包含集成地圖窗口的PowerBuilder應(yīng)用窗口創(chuàng)建一個(gè)用戶自定義事件ue_SelectionMade，事件ID為pbm_Custom01（= 1024）。

然后，編寫一個(gè)在MapInfo服務(wù)器中運(yùn)行的MapBasic應(yīng)用程序，在此應(yīng)用程序中添加對地圖窗口事件進(jìn)行處理的子程序。當(dāng)對客戶程序中的集成地圖窗口進(jìn)行操作時(shí)，MapBasic程序中對應(yīng)的事件處理程序被觸發(fā)。在事件處理程序中，可以將要傳遞給客戶程序的信息保存到MapBasic中定義的一個(gè)全局變量中，然后使用Win32 API函數(shù)PostMessage（），以PowerBuilder應(yīng)用窗口的句柄和該窗口的用戶自定義事件的ID為參數(shù)，向PowerBuilder客戶程序發(fā)送消息，這樣PowerBuilder客戶程序就可以在該窗口的用戶自定義事件中處理地圖窗口事件了，并且還可以使用MBApplications對象的方法，獲取MapBasic全局變量中保存的事件信息。如下代碼展示了MapBasic應(yīng)用程序在接收到地圖對象選擇事件時(shí)的處理的過程：

' 預(yù)定義PowerBuilder應(yīng)用窗口的用戶自定義事件的唯一數(shù)值標(biāo)識符

DEFINE SELECTION_MADE 1024；

'響應(yīng)地圖對象選擇事件

Sub SelChangedHandler()；

'如果選中一個(gè)地圖對象

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；

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

//在MapInfo服務(wù)器中運(yùn)行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；

7 充分利用MapBasic應(yīng)用程序

MapBasic是MapInfo提供的用戶系統(tǒng)開發(fā)工具，它具有對地圖對象的管理、對含有地圖對象的MapInfo表的管理等方面的強(qiáng)大功能。

在將MapInfo地圖集成到PowerBuilder的開發(fā)應(yīng)用中，MapBasic不僅僅能用來實(shí)現(xiàn)回調(diào)，還可實(shí)現(xiàn)其它諸多功能。例如，在開發(fā)過程中經(jīng)常會遇到需要保存地圖對象類型的中間結(jié)果的問題，而在PowerBuilder中沒有與之對應(yīng)的數(shù)據(jù)類型，又難以通過MapInfo OLE自動化對象的方法和屬性實(shí)現(xiàn)等諸如此類的問題，若利用MapBasic應(yīng)用程序以及使用它的OLE自動化對象MBApplications的方法和屬性來解決，可以達(dá)到事半功倍之效果。

與MapInfo OLE自動化對象相似，MapBasic的OLE自動化對象MBApplications也有自己的Do方法和Eval方法。每當(dāng)PowerBuilder客戶程序調(diào)用它們時(shí)，MapInfo就會自動調(diào)用MapBasic的保留過程RemoteMsgHandler（）或RemoteQueryHandler（）過程，并可以在過程中通過CommandInfo(CMD_INFO_MSG)得到調(diào)用Do方法或Eval方法的參數(shù)。

以下代碼運(yùn)用MBApplications的Do方法，實(shí)現(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（）過程，并要求返回一個(gè)結(jié)果。

8 結(jié)束語

本文主要說明了如何將MapInfo地圖集成到PowerBuilder的開發(fā)應(yīng)用中的一些基本方法和關(guān)鍵技術(shù)。運(yùn)用此方法開發(fā)應(yīng)用程序，可以充分發(fā)揮PowerBuilder強(qiáng)大的數(shù)據(jù)訪問與操縱能力和MapInfo的地圖信息管理功能，迅速地、靈活地開發(fā)基于地理信息系統(tǒng)的客戶/服務(wù)器的信息管理系統(tǒng)。

參考文獻(xiàn)：

[1] 陳述彭.地理信息系統(tǒng)導(dǎo)論[M].北京:科學(xué)出版社，2000.

[2] 張劍平，任福繼，葉榮華，等.地理信息系統(tǒng)與MapInfo應(yīng)用[M].北京:科學(xué)出版社，1999.

[3] 龔健雅.地理信息系統(tǒng)基礎(chǔ)[M].武漢:科學(xué)出版社，1999.