Не удаётся получить интерфейс IApplication (Interface not supported)

[JunexKK]

При попытке получить интерфейс октрытого КОМПАСа выдаёт "Interface not supported"

Код Выделить Развернуть

if runKompasAPI = nil then
    runKompasAPI := GetActiveOleObject('Kompas.Application.7') as IApplication;
а при попытке создания приложения - "Недопустимая строка с указанием класса, ProgID:"Kompas.Application.7""

Код Выделить Развернуть

if newKompasAPI = nil then
    newKompasAPI := CreateOleObject('Kompas.Application.7') as IApplication;

Не работает на компьютере с Windows 7

[Sabahs]

У всех работает, а у Вас нет.
http://forum.ascon.ru/index.php/topic,27429.msg204826.html#msg204826

[JunexKK]

В том то и дело, что один и тот же код работает на  ПК с Win8 и не работает на ПК с Win7

[Sabahs]

У меня работает.

[Sprinter500]

Попробуй вот так:
function InitCMPS(): bool;//Активация КОМПАСа
begin
  try
    KompasApi:=GetActiveOleObject('KOMPAS.Application.7') as IApplication;
    ksDoc := KompasApi.ActiveDocument;
    pKompasDocument2D :=  ksDoc as iKompasDocument2D;
    result:=true;
  except
    KompasApi:=CreateOleObject('KOMPAS.Application.7') as IApplication;
    KompasApi.Visible:=TRUE;
    result:=false;
  end;
end;

У меня вроде аналогичная проблема была. Вот этот код заработал.  НО - у меня код для исполняемого EXE-файла, а не под библиотеку RTW - так что не знаю будет ли там работать.

[Sabahs]

В dll(rtw) смысла в этом нет, т.к. она работает в адресном пространстве Компаса.

[Sprinter500]

Так вот и надо узнать для какого случая спрашивал JunexKK: для dll (rtw) или для exe