SaveToFile(FileName: String);
FileName. Наименование файла, в который будет сохранена топооснова.
Метод SaveToFile сохраняет топооснову в файл.
Для выполнения примера предполагается наличие на форме компонентов Button, MapBox, UiMap с наименованиями Button1, MapBox1 и UiMap1 соответственно. UiMap1 является источником данных для MapBox1. Также в файловой системе должен присутствовать файл «C:\MAP_RF.tbs», содержащий топооснову.
Пример является обработчиком события OnClick для компонента Button1.
Добавьте ссылки на системные сборки: ExtCtrls, Forms, Map, Metabase, Ui.
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», о чём будет отображено информационное сообщение.
См. также: