利用MapX實(shí)現(xiàn)電力通訊設(shè)備可視化

2013-12-12 10:44:48 電力信息化　點(diǎn)擊量：評論 (0)

摘要：目前電力通信網(wǎng)絡(luò)資源的管理基本上還停留在手工管理為主、計(jì)算機(jī)管理為輔的水平上，本文介紹了使用Delphi開發(fā)平臺與MapX組件來開發(fā)電力通信資源管理系統(tǒng)，實(shí)現(xiàn)電力通信設(shè)備的可視化管理。本文介紹了系統(tǒng)

元對象，所以為省圖順序編號，使標(biāo)號與面圖元對象的keyvalue屬性一一對應(yīng)。從而在用戶輸入編號后，可以根據(jù)編號找到對應(yīng)的省圖并連續(xù)打印。例如打印編號1，2，3或者編號1-7對應(yīng)地圖對象，甚至是1，2，3，6-9這種混合方式對應(yīng)的地圖對象。在這里筆者選擇了Delphi中Tstinglist對象的Delimiter和DelimitedText屬性方法實(shí)現(xiàn)對編號字符串的分割。以用戶輸入打印編號2,4-6,7-10,21的打印請求為例。首先對打印輸入框的字符串用“，”進(jìn)行分割，使分割后的Tstringlist字符串?dāng)?shù)組中包含2，4-6，7-10，21等4個元素。不包含“—”的元素可以直接尋找編號對應(yīng)的圖元對象打印出來。而對包含“—”的數(shù)組元素用“—”進(jìn)行二次分割。生成新的字符串?dāng)?shù)組由4,6,7,10組成。設(shè)置循環(huán),打印編號從4-6 和從7-10的地圖。最終我們使打印輸入框的輸入方式與windows打印程序類似。

復(fù)雜地圖的打?。哼x擇設(shè)備圖層，調(diào)用Map1.PrintMap()打印函數(shù)的時候，如果打印的地圖區(qū)域內(nèi)圖元對象(光纖站，光線線路)比較密集或者背景圖比較復(fù)雜，則打印時報錯，地圖邊線線條變粗，打印失敗。而一旦選擇簡單的地圖打印則可正常完成。初步猜測是打印連接異常產(chǎn)生了錯誤，于是試圖捕獲異常：

Try

printer.orientation:=polandscape;

Printer.BeginDoc;

Map1.PrintMap(Printer.Handle, 2500,500, Map1.Width * 35, Map1.Height * 35);

Printer.EndDoc;

except

Printer.Abort;

MessageDlg('不能打印地圖', mtError, [mbOK], 0);

end;

系統(tǒng)不能捕獲到異常，可以排除文件傳輸錯誤導(dǎo)致打印不出地圖的可能。筆者通過多次測試發(fā)現(xiàn)：如果創(chuàng)建一個隱藏的地圖對象map2,讓它與map1的邊界和顯示圖層完全一樣。這樣通過查看設(shè)置map1而實(shí)際打印隱藏地圖map2時，能夠正常完成操作。

Map2.bounds:=Map1.bounds; for i:=1 to map1.layers.count; //設(shè)置map2與map1一致

If (Map1.layers.item[i].visible=false)

then Map2.layers.item[i].visible:=false;

Map2.PrintMap(Printer.Handle, 2500,500, Map1.Width * 35, Map1.Height * 35); //打印map2

⑵添加比例尺、圖例和邊框：為了使地圖打印效果更加逼真需要向地圖添加比例尺、圖例和邊框。使用Layer集合的AddUserDrawLayer方法，該方法返回了創(chuàng)建的Layer對象，并在此layer對象中創(chuàng)建比例尺和圖例。當(dāng)需要添加比例尺和圖例時，系統(tǒng)自動觸發(fā)DrawUserLayer事件。

首先，添加用戶繪制圖層到圖層集合：

lyr = Map1.Layers.AddUserDrawLayer("My Layer", 1)；

然后，設(shè)置 DrawUserLayer 事件中的代碼以繪制

上一頁 1 2 3 4 5 6 7 下一頁

責(zé)任編輯：和碩涵

免責(zé)聲明：本文僅代表作者個人觀點(diǎn)，與本站無關(guān)。其原創(chuàng)性以及文中陳述文字和內(nèi)容未經(jīng)本站證實(shí)，對本文以及其中全部或者部分內(nèi)容、文字的真實(shí)性、完整性、及時性本站不作任何保證或承諾，請讀者僅作參考，并請自行核實(shí)相關(guān)內(nèi)容。

我要收藏

個贊