2009-08-19 51 views
2

如果有人有TatukGIS開發核心產品的一些經驗,你能解釋一下如何以編程方式保存和喜歡他們的免費TatukGIS瀏覽器產品的承重層屬性?tatukgis,保存和負載層性能

我用的環境是德爾福7和BDS 2006

感謝

編輯,這個代碼不工作:

 
var 
    lyrPeta: TGIS_LayerSHP; 
begin 
    MapPath:= ExtractFilePath(Application.ExeName) + '\maps\'; 
    lyrPeta:= TGIS_LayerSHP.Create; 
    lyrPeta.Path:= MapPath + 'jabodetabek'+'_asjalan.shp'; 
    lyrPeta.Name:= 'jabodetabek'+'_asjalan.shp'; 
    lyrPeta.IgnoreShapeParams:= True; 
    lyrPeta.UseConfig:= True; 
    lyrPeta.ConfigName:= MapPath + 'jalan.ini'; 
    lyrPeta.ReadConfig; 
    GIS_Viewer.Add(lyrPeta); 

回答

3

我們在VB6做到這一點,如下。我認爲我們的代碼最初是基於this FAQ entry。它makes Tatuk控件保存具有圖層屬性的INI文件。我相信它會在應用程序再次啓動時自動重新加載圖層屬性。如果您只需要一個文件,而不是每層一個文件,則可以使用一個TTKGP文件try

With layer ' the layer is an XGIS_LayerVector ' 
    .StoreParamsInProject = False 
    .ConfigName = "c:\test\mylayer.ini" ' a separate INI file for each layer ' 
    .WriteConfig 
    .SaveAll 
End With 

編輯:和加載再次 - 我認爲這是後的層已被添加到GIS控制。

With layer ' the layer is an XGIS_LayerVector ' 
    .StoreParamsInProject = False 
    .ConfigName = "c:\test\mylayer.ini" ' a separate INI file for each layer ' 
    .RereadConfig 
End With 

恕我直言,Tatuk的幫助和樣品很難理解,雖然產品本身非常強大。雖然你需要一個支持協議來訪問它,但值得嘗試forum的問題,雖然你需要一個支持協議來訪問它:(

+0

謝謝,我從來沒有意識到關於ConfigName&WriteConfig(但我知道關於SaveAll),我會調查這 – Dels 2009-08-20 01:46:00

+0

你可以給解決方案通過選擇配置文件讀取配置?我有它像我的問題,但不知何故它不能工作 – Dels 2009-08-20 07:47:11

+0

已經完成,我還添加了一個鏈接到Tatuk上的常見問題頁面 - 我*認爲*我們的代碼最初是基於這個。http://www.tatukgis.com/faq/question.aspx?show=/faq/store/q10668.htm – MarkJ 2009-08-20 08:17:17