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的帮助和样品很难理解。尽管你需要一个支持协议才能访问Tatuk问题，但值得尝试forum :(

tatukgis，save＆amp;加载图层属性

1 个答案: