delphi - tatukgis，保存和加载图层属性

Question

如果有人对 TatukGIS 开发人员内核产品有一些经验，您能解释一下如何以编程方式保存和加载图层属性，就像在他们的免费 TatukGIS 查看器产品中一样？

我使用的环境是 Delphi 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);

Answer 1

我们在 VB6 中如下所示执行此操作。我认为我们的代码最初是基于 this FAQ entry .它makes Tatuk 控件保存一个带有图层属性的 INI 文件。我相信它会在应用程序再次启动时自动重新加载图层属性。如果您只想要一个文件，而不是每层一个文件，您可以 try一个 TTKGP 文件。

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对于 Tatuk 问题，尽管您需要支持协议(protocol)才能访问它:(