OLE自動(dòng)化技術(shù)在Delphi與MapInfo集成地圖開(kāi)發(fā)中

要使用回調，客戶(hù)端程序必須能充當OLE 自動(dòng)化服務(wù)器，而利用Delphi 能很輕易實(shí)現。
其實(shí)現原理如圖2：

圖 2 Delphi 中實(shí)現MapInfo 的callback 的原理圖
Fig.2 The schematic diagram of realizing callback of MapInfo in Delphi
要實(shí)現 Maplnfo 的CallBack，一般有以下幾個(gè)步驟：
1)創(chuàng )建一個(gè)類(lèi)，定義若干OLE 方法(Method)。如果要得到MapInfo 的狀態(tài)欄上的內容，
則創(chuàng )建SetStatusText 方法(帶一個(gè)字符串參數)；如果要取得發(fā)生變化的地圖窗口的ID 號，
則創(chuàng )建Windowcontentschanged 方法(帶一個(gè)整形參數)；
2)為在1)中定義的類(lèi)創(chuàng )建一個(gè)對象；
3)在確認MapInfo 已經(jīng)啟動(dòng)后，調用MapInfo 的SetCallBack 方法，將OLE 自動(dòng)化對象
注冊MapInfo 所發(fā)送消息的“接收器”中；
4)自定義菜單或按鈕，通過(guò)這些菜單或按鈕來(lái)調用在1)中定義的方法。
當 MapInfo 中發(fā)生一個(gè)事件時(shí)，MapInfo 就會(huì )將相應的信息組織成一定的形式，以方法
的參數方式傳遞到客戶(hù)應用程序。在這些方法的內部，程序員可以對這些信息進(jìn)行處理，提
取所需的信息。以自定義客戶(hù)程序的狀態(tài)欄為例，回調的使用方法如下：
1）建一個(gè)類(lèi)，定義SetStatusText 方法。此方法帶一個(gè)WideString 類(lèi)型的參數StatusText。
這個(gè)參數是MapInfo 向客戶(hù)程序傳遞過(guò)來(lái)的。
在 Delphi6.0 中選擇File｜New｜ActiveX｜Automation Object，通過(guò)啟動(dòng)Automation
Object 向導打開(kāi)“Type Library”編輯器來(lái)實(shí)現。這里假設創(chuàng )建的類(lèi)名為T(mén)myCallBack。
2）應用程序窗體中添加狀態(tài)欄。
3）使用第一步中定義的類(lèi)創(chuàng )建一個(gè)對象。
varCallBack := TMyCallBack.Create；
4）調用自動(dòng)OLE 對象的SetCallBack 方法傳遞參數。
oleMapInfo.SetCallback(varCallBack As IMyCallBack)；
5）在SetStatusText 方法中處理由MapInfo 傳遞的StatusText 參數，控制狀態(tài)欄的顯示。
procedure TMyCallBack.SetStatusText(const StatusText: WideString)；
begin MainForm.StatusBar1.Panels[0].Text := StatusText；
//MainForm 是容納地圖組件的窗體，StatusBar1 是添加狀態(tài)欄的缺省名，panel，用于顯
示MapInfo 的狀態(tài)欄上的內容；End；
4 結束語(yǔ)
利用 OLE 自動(dòng)化技術(shù)， 通過(guò) Delphi 實(shí)現了MapInfo 的二次開(kāi)發(fā)，充分發(fā)揮了Delphi
編程工具強大的數據庫編程能力和MapInfo Professional 的圖形處理能力。而在開(kāi)發(fā)過(guò)程中，
兩者是相互獨立的，Delphi 可以很方便地并不需做任何改動(dòng)地調用MapBasic 代碼，實(shí)現通
過(guò)簡(jiǎn)單的OLE 自動(dòng)化技術(shù)提交控制命令來(lái)完成MapInfo Professional 的功能和效果，取得很
好的應用效果。同時(shí)，在進(jìn)行MapInfo 消息回調處理方法上，也可利用OLE 自動(dòng)化技術(shù)來(lái)
MapInfo Professional 的自動(dòng)回調消息。