SaveToFile(FileName: String);
FileName - наименование файла, в который будет сохранена топооснова.
Метод SaveToFile сохраняет топооснову в файл.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента UiMap с наименованием «UiMap1» и компонента MapBox. UiMap является источником данных для MapBox. Также в репозитории должна присутствовать карта с идентификатором «MAP_RF».
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
MetaBase: IMetabase;
TopoBase: IMapTopobase;
Map: IMap;
Begin
MetaBase := MetabaseClass.Active;
TopoBase := MetaBase.ItemById("MAP_RF").Bind As IMapTopobase;
Map := UiMap1.Map;
Map.Topobase := TopoBase;
TopoBase.SaveToFile("C:\MAP_RF.tbs");
WinApplication.InformationBox("Топооснова '" + TopoBase.Name + "' сохранена в файл");
End Sub Button1OnClick;
После выполнения примера в компонент MapBox будет загружена карта «MAP_RF». Затем топооснова будет сохранена в файл «C:\MAP_RF.tbs», о чем будет отображено информационное сообщение.
См. также: