2009-08-19 49 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