Connect to SDE 9

Question

Подскажите как мне правильно сделать Connect для SDE 9 и затем добавить слой в MapControl1: TMapControl; в DELPHI.

В C# connect делается так:

// openSDEWorkspace:  create and open the sde workspace based on the provided information
//
public IWorkspace openSDEWorkspace(string Server, string Instance, string User,
                                      string Password, string Database, string version)
{
  IWorkspace ws = null;

  IPropertySet pPropSet  = new PropertySetClass();
  IWorkspaceFactory pSdeFact = new SdeWorkspaceFactoryClass();

  pPropSet.SetProperty("SERVER", Server);
  pPropSet.SetProperty("INSTANCE", Instance);
  pPropSet.SetProperty("DATABASE", Database);
  pPropSet.SetProperty("USER", User);
  pPropSet.SetProperty("PASSWORD", Password);
  pPropSet.SetProperty("VERSION", version);

  ws = pSdeFact.Open(pPropSet, 0);
  return ws;
}

Answer 1

  

   pSdeFact:=CoSdeWorkspaceFactory.Create as IWorkspaceFactory;
   pPropSet:=coPropertySet.create as IPropertySet;
   pPropSet.SetProperty('SERVER','имя сервера');
   pPropSet.SetProperty('INSTANCE','esri_sde');
   pPropSet.SetProperty('USER','sde');
   pPropSet.SetProperty('PASSWORD','пароль');
   pPropSet.SetProperty('VERSION','sde.DEFAULT');
   pSdeFact.Open(pPropSet,0,pwork);
   pFeatureWorkspace:=pwork as IFeatureWorkspace;

   pFeatureWorkspace.OpenFeatureClass('имя слоя',pObjectClass);

 pLayer:=coFeatureLayer.create as IFeatureLayer;
 pLayer._Set_FeatureClass(pObjectclass);
 MapControl1.Map.AddLayer(pLayer as ILayer);

 

Answer 2

Замечательно, спасибо - я приблизительно так и начинал делать, НО

и в моем коде и в вашем компилятор спотыкается на строке

     pSdeFact:=CoSdeWorkspaceFactory.Create as IWorkspaceFactory;

[Error] frmMain.pas(148): Undeclared identifier: 'CoSdeWorkspaceFactory'

Поиск в хелпе по слову CoSdeWorkspaceFactory ничего не находит, а по SdeWorkspaceFactory кое что находит:

     SdeWorkspaceFactory CoClass (esriDataSourcesGDB)

     ESRI SDE Workspace Factory.

     Product Availability

     Available with ArcGIS Engine, ArcGIS Desktop, and ArcGIS Server.

 

 

модуля esriDataSourcesGDB_TLB почемуто нет?!

 

Попытался изменть на

     pSdeFact:=CoWorkspaceFactory.Create as IWorkspaceFactory;

Компилируется нормально, НО во время выполнения в этой же строке срабатывает исключение EOleSysError с сообщением 'Класс не зарегистрирован'

Подскажите в чем дело.

Answer 3

Модуль esriDataSourcesGDB_TLB необходимо импортировать вручную!

Project\Import Type Lybrary

Answer 4

Благодарю за помощь. Все ОК.