www.integro.ru

[АлексейЛ]

Здравствуйте!

возможно ли подключиться к приложению Ингео из внешней программы, написанной на VB.NET 2003?

Сейчас делаю так:
в Reference добавил COM библиотеку Ингео

пытаюсь создать соединение
Dim ingeoApp As Object = CreateObject("Ingeo.IngeoApplication")
и возникает исключение

успешно проходит операция
Dim mx As Object = CreateObject("IngeoMapX.IngeoMapXControl")
и mx не пустой

что я делаю не так?

[Воинов Вячеслав]

если ИнГео активно, то можно попробовать вот так
System.Runtime.InteropServices.Marshal.GetActiveObject(progID)

[АлексейЛ]

не помогает
подозреваю, что проблема в том, что неверно указываю progID
в реестре нет объекта с clsid Ingeo.IngeoApplication

[Михаил Власов]

Пример на C#:

[Михаил Власов]

Если поискать у нас на форуме, то можно наткнуться на такую ветку:
http://www.integro.ru/forum/viewtopic.php?t=537

[Кузнецова Татьяна]

Использую код
public IngeoApplication GetActiveIngeo()
{
IntPtr ppunk;
Guid rclsid = new Guid("{09EFE6F8-BDB7-486B-9874-4BF30B561A8C}");
GetActiveObject(ref rclsid, IntPtr.Zero, out ppunk);
if (ppunk.ToInt32() != 0) return Marshal.GetObjectForIUnknown(ppunk) as IngeoApplication;
else return null;
}
Программа на VS 2008, но почему то ppunk всегда пусть. Подскажите в чем причина, иожет еще что-то надо сделать?

[Алексей В. Бастриков]

Откуда берете GUID? Мне кажется вы не тот используете...

[Кузнецова Татьяна]

[Алексей В. Бастриков]

GUID для подключения к ИнГЕО можно получить следующим образм:

System.Guid GUID;
string StartupPath = System.Windows.Forms.Application.StartupPath;
string IngeoAssemblyPath = StartupPath + "\\Interop.Ingeo.dll";
System.Reflection.Assembly IngeoAssembly = System.Reflection.Assembly.LoadFile(IngeoAssemblyPath);
System.Type IngeoAppClass = IngeoAssembly.GetType("Ingeo.IngeoApplicationClass");
GUID = IngeoAppClass.GUID;