MapControl & Delphi

Question

Добрый день Всем

Подскажите плиз как добавить точку в слой в приложении на Delphi & MapControl, если есть то пример.

Answer 1

1) Получите указатель на интерфейсы IFeatureLayer и IFeatureClass слоя MapControl в который хотите добавить объект.

2) Вот пример процедуры которая добавляет объект, с заданным IGeometry и в заданный FeatureClass.

Public Sub AddShapeToFeatureClass(pGeom As IGeometry, pFC As IFeatureClass)
  Dim pFeature As IFeature
  Set pFeature = pFC.CreateFeature
  Set pFeature.Shape = pGeom
  pFeature.Store
End Sub

Примеры на Дельфи попробуйте поискать на arcobjectsonline.esri.com

Answer 2

В следующем коде указатель IFeatureLayer я получаю правильно а вот IFeatureClass он возвращает nil

pMap.Get_Layer(0, pLayer);
pFeatureLayer:=pLayer as IFeatureLayer;

pFeatureLayer.Get_FeatureClass(pFeatureClass);

Answer 3

Посмотрите вот эти ссылки:

https://forum.esri-cis.ru/index.php?qa=8661

https://forum.esri-cis.ru/index.php?qa=9504

Answer 4

Спасибо, буду пробовать, мое начальство требует писать на C++Builder6, я попробовал создавать библиотеки, проблемы как и в Д7, есть у билдера еще проблемы?

Answer 5

Сам я с Borland не работаю, но другие проблемы (кроме этой) мне на глаза не попадались.

Answer 6

Подскажите пожалуйста где я не прав? 

 m_pEd:=CoEditor.Create as IEditor;
  pEditor:=m_pEd as IEditor;
  pEditLayers:=pEditor as IEditLayers;
  pEditLayers.SetCurrentLayer(pFeatureLayer as IFeatureLayer,1);
  pFeatureLayer.Get_FeatureClass(pFeatureClass);
  pEditor.StartOperation;
  pFeatureClass.CreateFeature(pFeature);
  pPoint:=CoPoint.Create as IPoint;      
   with pPoint do begin
     Set_X(100);
     Set_Y(100);
   end; { end of with }
  pFeature._Set_Shape(pPoint as IGeometry);//В этом месте  вылетает ошибка
  pFeature.Store;

Answer 7

Слой у вас точечный ?

Если да то проверьте Extent (XY Domain) у этого слоя, попадает ли ваша точка в него или нет ?

Answer 8

Да, слой точечный, и точка попадает в него.

 Если есть пример с добавлением обьекта  со всеми действиями от начала до конца подскажите пожалуйста

Answer 9

Я сразу не обратил внимания, у меня после вызова

pFeatureClass.CreateFeature(pFeature);

pFeature=nil

похоже проблема в этом.