Проблема с IWorkspaceFactory в VB 6.0

Question

Всем привет. У меня проблемка с IWorkspaceFactory в VB 6.0.
Проблема странная, так как следующий код:

1) Dim pWorkspace As IWorkspace
2) Dim pFact As IWorkspaceFactory
3) Set pFact = New ShapefileWorkspaceFactory
4) Set pWorkspace = pFact.OpenFromFile("D:\VBProjects\CreateShape", 0)
5) Dim pFWorkspace As IFeatureWorkspace
6) Set pFWorkspace = pWorkspace

вылетает на четвёртой строчке с ошибкой "Automation error".
Странная эта ошибка потому, что в VBA данный код работает замечательно без ошибок, а в VB 6.0 не хочет, хотя все нужные библиотеки подключены, втом числе GeoDatabase.

Answer 1

Код в stand alone app. или в dll?

Answer 2

Проект в VB 6.0 Standart EXE (обычный внешний экзешник).
Я думаю, если сделать DLL в виде кнопки на панели в ArcMap, то проблем может быть и не будет, но мне нужно внешнее приложение через которое можно создавать Shape-файлы, без использования ArcMap.

Answer 3

Проверил, в DLL всё работает, но нужен, блин , внешний EXE.

Answer 4

Начиная с версии 9.1 для stand alone apps нужно инициализировать приложение для соответствующего типа лицензии, используя IAoInitialize.

"The AoInitialize object must be used by developers to initialize each application with a suitable license(s) in order for it to run successfully on any machine it is deployed on to. License configuration must be undertaken at application start time, before any ArcObjects are accessed. Failure to do so will result in application errors.

All applications need to be configured with a license except when the application is not a stand-alone executable i.e. if it's a dll that will be incorporated into an application that will itself perform the license configuration."

http://edndoc.esri.com/arcobjects/9.1/default.asp?URL=/arcobjects/9.1/ComponentHelp/esriSystem/AoInitialize.htm

Answer 5

Всё ясно. Благодарю за помощь.