Сохранение mhd-файла в DELPHI

Question

На форме в DELPHI существует пустой MapControl

Программно на него помещаю *.shp, *.lyr, *.tif...

Теперь программно надо сохранить mxd-файл  проекта с MapControla.

В HELP-e используют SAVE и SAVEAS , но с использованием MapDocument. Но в их примерах информацию на MapControl помещают уже с готового mxd-файла ( m_pMapDocument.Open sFilePath - он уже существует и не пустой) . В моем случае надо "информацию" о проекте в MapControle "передать" в MapDocument(который пока пустой), а потом использовать уже SAVE

 

Мой пример:

Var
  sFilePath : String;   m_pMapDocument : IMapDocument;
begin   

  sFilePath := 'C:\Test.mxd';
  m_pMapDocument := MapDocumentClass.Create;

{надо передать инфу о проекте MapDocument-у}

  m_pMapDocument.SaveAs(sFilePath,True, True);
end;

Answer 1

http://forums.esri.com/Thread.asp?c=93&f=993&t=12956 1&mc=5#msgid374458

procedure TForm1.SaveDoc;
var
pMapDoc: IMapDocument;
begin
pMapDoc := coMapDocument.Create as IMapDocument;
pMapDoc.New('SaveMap.mxd');
pMapDoc.ReplaceContents(MapControl1.Map as IMxdContents);
pMapDoc.SetActiveView(MapControl1.ActiveView);
pMapDoc.Save(True,True);
end;

Answer 2

Спасибо, заработало...

Приятно получить оперативную и РАБОЧУЮ помощь...