【導(dǎo)讀】方便，可擴(kuò)展性強。本文闡述了研究地理信息系統(tǒng)的背景、目的、方法，介紹了。一個實用的、方便可靠的校園地理信息系統(tǒng)的設(shè)計、構(gòu)建和開發(fā)過程。此系統(tǒng)在Windows98平臺上測試通過。成及功能，詳細(xì)討論了在設(shè)計實現(xiàn)本系統(tǒng)中所遇到的問題及解決方法。畢業(yè)設(shè)計自今年2月份以來，歷時三個多月。畢業(yè)設(shè)計得到了***老師的極大支持。在畢業(yè)設(shè)計過程中，*老師給了我很多意見

　　

【正文】 展現(xiàn)這些對象的應(yīng)用程序則稱為 OLE 自動化服務(wù)器。 OLE 自動化服務(wù)器展現(xiàn)的自動化對象使通過編程方法操縱應(yīng)用程序成為可能。通過使用 OLE 自動化，能夠完成以下的任務(wù)： 1) 創(chuàng)建 OLE 自動化服務(wù)器 2) 創(chuàng)建和操縱 OLE 自動 化對象 3) 創(chuàng)建 OLE 自動化控制器 OLE 自動化服務(wù)器對象是編程的，其可編程能力主要是通過方法和屬性這兩個類的概念及兩種類型的 OLE 自動化對象成員來實現(xiàn)。其中“方法”可以是帶有許多參數(shù)的函數(shù)，它定義了一個對象所能達(dá)到并能完成的行為，同時可以獲取或設(shè)置數(shù)據(jù)?！皩傩浴眲t是不帶有形參的函數(shù)，并能存取或設(shè)置有關(guān)對象當(dāng)前狀態(tài)的信息。實際上， OLE 自動化技術(shù)就是使任何對象展示出一組可以由其他代碼激活的方法和屬性，而自動化提供了對象描述中參數(shù)和屬性的名稱和類型的方法。 使用 OLE 帶來的好處是，不同應(yīng)用程序展現(xiàn)的對象在同一編程 環(huán)境中都是可見的，展現(xiàn)的對象可以用任何一個支持 OLE 自動化的編程工具或宏語言來訪問，因此系統(tǒng)集成者可以選擇最合適的任務(wù)開發(fā)工具。 Mapinfo 提供的 OLE 自動化對象模型如圖 13 所示。 [8] 對象 對象和對象集 圖 13： OLE 自動化對象模型 MBApplication MBGlobals Application MIMapGen MISearchInfo MIRows MIFields MISelection MIRows MIFields 第 26 頁 共 31 頁 其中 Application 對象代表 MapInfo 的一個實例。在 MBApplication 集和 MBGlobals 集中，每一個對象分別代表一個正在運行的 MapBasic 應(yīng)用程序和一個正在運行的 MapBasic 應(yīng)用程序中定義的全局變量。 MIMapGen 對象主要用于 MapInfo 網(wǎng)絡(luò)應(yīng)用程序 MISearchInfo 對象代表查找的結(jié)果。 MISelection 對象代表 MapInfo 表。 MIRows 對象集中每一個對象代表表中的每一行， MIFields 對象集中每一個對象代表表中的每一個域。 其中 MapInfo 的實例對象主要提供如下一些 常用方法： 1) Do（ string）：向 MapInfo 發(fā)送命令字符串（ MapBasic 語句）， MapInfo 將執(zhí)行這些命令； 2) Eval（ string）：應(yīng)用程序通過此方法可獲得 MapInfo 的執(zhí)行結(jié)果； 3) RunCommand（ string）：解釋并執(zhí)行 MapBasic 語句，與 Do 類似。 OLE 自動化允許在不同應(yīng)用程序之間互相訪問，可以從一種應(yīng)用程序訪問另一種應(yīng)用程序或 DDL。特別是可以訪問這些程序?qū)ο蟮姆椒ㄅc屬性，而并非原始數(shù)據(jù)；可以不用關(guān)心程序語言是如何做到這點的。 OLE 自動化有兩種主要的對象類型： OLE 自 動化服務(wù)器程序（在本文中指 MapInfo）； OLE 自動化客戶幾程序（在本文中指 Delphi）； 被自動化調(diào)用的程序叫做自動化服務(wù)器（ AUTOMATION SERVER）?？蛻舫绦蚪凶鲎詣踊刂破鳎?AUTOMATION CONTROLLER）或自動化客戶機（ AUTOMATION CLIENT）。一個程序既可以是服務(wù)器，又可以是客戶機。 通過這種方法把地圖窗口集成進(jìn) Delphi 程序時，用戶可以看到一個真實的地理圖形，并非一個簡單的靜止圖形。 第一步：新建一個工程文件，在 Form1 上放置 Panel、 Button 等控件； Panel 用于顯示地圖。 第二步：將單元 obj 列于 unit1 的 uses 字句中，這樣一來我所開發(fā)的程序就可以使用這個單元中的有關(guān)過程及函數(shù)了。這個單元包含了如何操作 OLE 自動化對象的主要代碼。例如： CreateOleObject（）函數(shù)可以在 Delphi 主要運行的同時，在內(nèi)存里啟動另外一種程序。當(dāng)執(zhí)行函數(shù) CreateOleObject（）時， Windows 檢測被調(diào)用程序是否運行，如果沒有，她將啟動被調(diào)用程序。 第三步：程序中廣泛的應(yīng)用變量，只是為了更方便的操縱 OLE 自動化對象。在單元文件的變量聲明部分將 Mapinfo 置為 variant 類型；將 hd 置為 string 類型。 Mapinfo 代表自動化對象， hd 代表放置 Mapinfo 地圖窗口的部件句柄。 Var Form1： Tform1； Mapinfo： variant； Hd： string； 第四步：雙擊 open map 按鈕編寫程序的代碼如下： procedure (Sender:TObject)。 begin mapinfo:=createoleobject(39。39。)。 str(,hd)。 (39。set application window 39。+hd)。 (39。set next document parent 39。+hd+39。style 139。)。 第 27 頁 共 31 頁 (39。open table 行政． tab39。)。 (39。map from 行政 39。)。 end； 這些代碼用于打開一個地圖窗口。下面逐一予以解釋： （ 1） 在集成環(huán)境里，運行一個 Mapinfo 程序，調(diào)用 Delphi 的 CreateOleObject（）函數(shù)，指定其返回變量。例如：如果命名該變量為 Mapinfo，下面的語句將裝載 Mapinfo 應(yīng)用程序： Mapinfo： =CreateOleObject（ ’’） 。 這行代碼指定了一個變量 Mapinfo，它代表了作為 OLE 自動化服務(wù)器程序。 （ 2） str（ , hd）用 Delphi 的 str（）函數(shù)將 Thandle 型數(shù)據(jù) 轉(zhuǎn)化為字符型數(shù)據(jù) hd。 （ 3） 在起動了 Mapinfo 以后，用 Mapbasic 命令來設(shè)置應(yīng)用程序窗口，以便在客戶程序中能看到 Mapinfo 對話框和錯誤信息的提示。 (39。set application window 39。+hd)。 （ 4） 然后調(diào)用一個 Mapinfo 窗口到 Delphi 應(yīng)用程序時，要發(fā)出一個 Set Next Document 語句，跟在創(chuàng)建窗口語句的后面，例如一下程序為 Delphi 客戶程序創(chuàng)建了一個 Mapinfo的子窗口： (39。set next document parent 39。+hd+39。style 139。)。 Set Next Document 語句“掛接”一個 Mapinfo 窗口，在這個語句里，必須指定 Delphi控件的句柄值（ hd），以便下一步所創(chuàng)建的 Mapinfo 窗口將能在這個控件上顯示，如：Map、 Graph、 Browse 等窗口；這個語句中能夠還包含著一個類型部分（ Style 子句）： Style 1 無邊框的窗口（不帶標(biāo)題欄、且被放在指定的控件內(nèi)）。 Style 2 帶圖標(biāo)的彈出窗口（標(biāo)題欄寬度比較寬）。 Style 3 不帶圖標(biāo)的彈出窗口（標(biāo)題欄寬度比較窄）。 （ 5） 最后，執(zhí)行 Mapbasic 的命令 (39。open table 行政． tab39。)，打開一張地圖“行政． tab”。并執(zhí)行 (39。map from 行政 39。)；在 Panel 上顯示地圖。 第五步：當(dāng)你通過 OLE 自動起動了 Mapinfo 之后，就可以執(zhí)行 Mapbasic 的命令來完成控制Mapinfo。 Do（）、 Runmenumand（）語句可以運行一個 Mapbasic 的菜單命令，它包含一個參數(shù) ，用于指定不同的菜單命令。利用這些命令用戶可以對地圖進(jìn)行放大、縮小、漫游、選擇等。具體內(nèi)容請參考 Mapbasic 的幫助文件。如放大、縮小、漫游、信息標(biāo)注相應(yīng)的代碼為 (1705) (1706) (1702) (1708) 第六步：雙擊 close 按鈕編寫程序的代碼，終止 Mapinfo： procedure Button2Click（ Sender： Tobject）； begin Mapinfo： =nul； End； 第 28 頁 共 31 頁 詳細(xì)設(shè)計 界面設(shè)計 啟動系統(tǒng)在 splash 畫面之后，進(jìn)入學(xué)校總體介紹界面，如圖 14： 圖 14：學(xué)?？傮w介紹界面 第五章 結(jié)束語 本校園地理信息系統(tǒng)實現(xiàn)了一個 ***大學(xué)的地理導(dǎo)航系統(tǒng)。用戶可以根據(jù)不同的需要瀏覽到校園的分層圖以及相應(yīng)的位置信息和詳細(xì)信息。系統(tǒng)采用了模塊化的面向?qū)ο蟮脑O(shè)計方法和技術(shù)，具有較好的可擴(kuò)展性。 由于時間和條件的限制，本系統(tǒng)還有許多方面的工作未能完善：首先，系統(tǒng)還有待于實現(xiàn)更 多的功能，如最優(yōu)路徑的選擇、與學(xué)校數(shù)據(jù)庫的連接等；其次，應(yīng)更充分的利用網(wǎng)絡(luò)技術(shù)，將本系統(tǒng)應(yīng)用于網(wǎng)上，成為我校的一份完備的介紹材料。 第 29 頁 共 31 頁 三個多月的畢業(yè)設(shè)計，我從中受益非淺。通過這次設(shè)計，我懂得了一些實際的工程經(jīng)驗。在整個畢業(yè)設(shè)計期間，我們小組成員均以一個實際的工程要求來要求自己。精心策劃，認(rèn)真設(shè)計，細(xì)心調(diào)試，爭取以最快的速度取得最好的效果。 通過這次設(shè)計，我學(xué)到了一些新的技術(shù)。在以往的學(xué)習(xí)中，又是學(xué)習(xí)只停留在一知半解、知其然而不知其所以然的水平。這次設(shè)計，使得我認(rèn)真的研究了一些實用的技術(shù)，不僅豐富了我的各種技術(shù) 知識，還使我得到了一些工程經(jīng)驗。 整個畢業(yè)設(shè)計期間，我和魯英兩人緊密合作，在不懂得地方大家相互探討、相互研究、相互幫助，使得我們的設(shè)計項目得以順利進(jìn)行。我深深體會到了團(tuán)結(jié)協(xié)作精神的重要性。 參考文獻(xiàn) [1] Delphi 5 實務(wù)經(jīng)典，林金霖編著，中國鐵道出版社， 2021 年 8 月第一版 [2] AutoCAD R14 繪圖軟件使用手冊，雷邵辰編著，大連理工大學(xué)出版社， 1998 年 10 月第一版 [3] 龔偉超，盛翊智，劉海洋，王文龍，一種基于 ActiveX 和 DDE 實現(xiàn) MapInfo 與 Delphi無縫連接的方法，計算機應(yīng)用研究， 2021 年第 10 期 [4] 李響，易虹， OLE AUTOMATION 技術(shù)及地圖窗口的快速實現(xiàn)方法，電腦學(xué)習(xí)， 1999年第 4 期 [5] MapInfo 6． 0 應(yīng)用開發(fā)指南，三味工作室編著，人民郵電出版社， 2021 年 1 月第一版 [6] MapInfo 5．Ｘ使用指南，康訊科技，王瑞民編著，中國鐵道出版社， 2021 年 5 月第一版 第 30 頁 共 31 頁 [7] Delphi 5 基礎(chǔ)與提高，新智工作室編著，電子工業(yè)出版社， 2021 年 3 月第一版 [8] 何晶，陳西宏，呂輝，利用 OLE 自動化技術(shù)實現(xiàn) MapInfo 與 VC++的集成，計算機應(yīng)用研究， 2021 年第 10 期 [9] 王小江，王一平，方創(chuàng)輝，利用 MapInfo 地圖窗口開發(fā) Delphi 應(yīng)用程序，現(xiàn)代電子技術(shù)，1999 年第 2 期 [10] 張凡，呂漢興，使用 MapX 組件實現(xiàn)地理圖形與數(shù)據(jù)庫的結(jié)合，計算機應(yīng)用研究， 2021年第 10 期 （感謝網(wǎng)友 ”king”提供本文 ,本站整理 供大家參考）