Ole error 80040200

This had me scratching my head for a while, I can tell you. Anyway, eventually the penny dropped
that the answer must lie in the difference between the way TEventObject is implemented
and TServerEventDispatch in OleServer.Pas.

The key is that TServerEventDispatch implements a custom QueryInterface

function TServerEventDispatch.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
  begin
    Result := S_OK;
    Exit;
  end;
  if IsEqualIID(IID, FServer.FServerData^.EventIID) then
  begin
    GetInterface(IDispatch, Obj);
    Result := S_OK;
    Exit;
  end;
  Result := E_NOINTERFACE;
end;

whereas TEventObject does not. Once I’d spotted that, it was straightforward to extend
TEventObject to do likewise, and voila! the error returned by «CP.Advise» went away.

For completeness, I’ve included the complete source
of the updated TEventObject below. It is the

if IsEquallIID then ... 

which makes the difference between

Res := CP.Advise(IEvt, Cookie);

returning the $800040200 error and zero for success. With the «if IsEquallIID then …»
commented out, the RefCount on IEvt is 48 (!) after «CP.Advise …» returns, by which time
TEventObject.QueryInterface has been called no less than 21 times.

I hadn’t realised
previously (because TEventObject didn’t previously have its own version to observe)
that when «CP.Advise …» is executed, the COM system calls «TEventObject.QueryInterface»
with a succession of different IIDs until it returns S_Ok on one of them. When I have some free time, maybe I’ll try to look up what these other IIDs are: as it is, the IID for IDispatch is quite a long way down the list of IIDs that are queried for, which seems strangely sub-optimal seeing as I’d have though that would be the one that IConnectionPoint.Advise would be trying to get.

Code for updated TEventObject is below. It includes a rather rough’n ready customization
of its Invoke() which is specific to handling Word’s DocumentOpen event.

type
   TInvokeEvent = procedure(Sender : TObject; const Doc : _Document) of object;

  TEventObject = class(TInterfacedObject, IUnknown, IDispatch)
  private
    FOnEvent: TInvokeEvent;
    FEventIID: TGuid;
  protected
    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer;
      NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
  public
    constructor Create(const AnEvent : TInvokeEvent);
    property OnEvent: TInvokeEvent read FOnEvent write FOnEvent;
    property EventIID : TGuid read FEventIID;
  end;

constructor TEventObject.Create(const AnEvent: TInvokeEvent);
begin
  inherited Create;
  FEventIID := DIID_ApplicationEvents2;
  FOnEvent := AnEvent;
end;

function TEventObject.GetIDsOfNames(const IID: TGUID; Names: Pointer;
  NameCount, LocaleID: Integer; DispIDs: Pointer): HResult;
begin
  Result := E_NOTIMPL;
end;

function TEventObject.GetTypeInfo(Index, LocaleID: Integer;
  out TypeInfo): HResult;
begin
  Pointer(TypeInfo) := nil;
  Result := E_NOTIMPL;
end;

function TEventObject.GetTypeInfoCount(out Count: Integer): HResult;
begin
  Count := 0;
  Result := E_NOTIMPL;
end;

function TEventObject.Invoke(DispID: Integer; const IID: TGUID;
  LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
  ArgErr: Pointer): HResult;
var
  vPDispParams: PDispParams;
  tagV : TagVariant;
  V : OleVariant;
  Doc : _Document;
begin
  vPDispParams := PDispParams(@Params);
  if (vPDispParams <> Nil) and (vPDispParams^.rgvarg <> Nil) then begin
    tagV := vPDispParams^.rgvarg^[0];
    V := OleVariant(tagV);
    Doc := IDispatch(V) as _Document;
    //  the DispID for DocumentOpen of Word's ApplicationEvents2 interface is 4
    if (DispID = 4) and Assigned(FOnEvent) then
      FOnEvent(Self, Doc);
    end;
  Result := S_OK;
end;

function TEventObject.QueryInterface(const IID: TGUID; out Obj): HResult;
begin
  if GetInterface(IID, Obj) then
  begin
    Result := S_OK;
    Exit;
  end;
  if IsEqualIID(IID, EventIID) then
  begin
    GetInterface(IDispatch, Obj);
    Result := S_OK;
    Exit;
  end;
  Result := E_NOINTERFACE;
end;

Обновлено февраль 2023: остановите эти сообщения об ошибках и устраните распространенные проблемы с помощью этого инструмента. Получить сейчас в эту ссылку

1. Скачайте и установите программного обеспечения.
2. Он просканирует ваш компьютер на наличие проблем.
3. Затем инструмент исправить проблемы которые были найдены.

Когда вы пытаетесь вручную зарегистрировать элемент управления из командной строки с помощью утилиты RegSvr32.exe, появляется сообщение об ошибке, указывающее, что элемент управления ActiveX был загружен, но вызов DllRegisterServer завершился неудачно с кодом ошибки 0x80040200.

Эта ошибка может возникать в системах Windows с включенным контролем учетных записей пользователей. Поскольку для реестра требуется доступ к ограниченной области реестра, его следует использовать с повышенными привилегиями через административную командную строку. Для этого щелкните правой кнопкой мыши значок командной строки и выберите «Запуск от имени администратора» или в Widows 8.1 или Windows 10 щелкните правой кнопкой мыши значок Windows в строке состояния системы и выберите «Командная строка (администратор)».

Если вы используете 64-разрядную версию Windows, вам также следует убедиться, что вы зарегистрировали правильную версию элемента управления. В 32-битных версиях Windows ActiveX SocketTools устанавливаются в C:WindowsSystem32. В 64-битной Windows 32-битные элементы управления ActiveX устанавливаются в C:WindowsSyswow64, а 64-битные элементы ActiveX устанавливаются в C:WindowsSystem32. Чтобы зарегистрировать 32-битный элемент управления в 64-битной системе Windows, команда должна выглядеть так:

%windir%syswow64regsvr32%windir%syswow64control.ocx

Где элемент управления — это имя файла элемента управления ActiveX, который вы хотите зарегистрировать. При ручном копировании элемента управления из одной системы в другую следует также помнить, что сохранение элемента управления отличается от предоставления лицензии. Чтобы развернуть приложение, использующее элемент управления ActiveX SocketTools, его необходимо скомпилировать в системе с лицензией на разработку SocketTools. Сохраненный элемент управления всегда будет генерировать ошибку лицензии во время выполнения, если приложение не лицензировано должным образом для распространения.

Запустите командную строку в режиме повышенных привилегий

Вы пытались запустить командную строку в режиме повышенных привилегий (администратор), чтобы отменить регистрацию файла DLL?

Если нет, запустите командную строку в режиме администратора и посмотрите, сможете ли вы успешно отменить регистрацию файла.

• Конечно. Щелкните Пуск. Введите cmd в поле поиска при запуске.
• Щелкните правой кнопкой мыши cmd.exe и выберите, хотите ли вы работать от имени администратора.
• Против. regsvr32 / у cdo32.dll
• ре. Проверьте, была ли регистрация успешно отменена.

Обновите свою систему

Это лучший и самый простой способ решить проблему. Если у вас возникла техническая проблема, первое, что вы должны сделать, это обновить свою систему. Этот шаг может решить мелкие или серьезные проблемы.

Перезагрузка вашей системы обновит вашу сеть, что автоматически решит большинство проблем путем перенаправления конфигурации. Если вы использовали этот метод раньше, вы можете использовать следующий метод, чтобы исправить эту ошибку.

Запустите файл OCX (расширение управления OLE) из папки System32.

Шаг 1: Откройте проводник и перейдите к папке с файлом .OCX.

Шаг 2: Щелкните правой кнопкой мыши файл .OCX и выберите «Вырезать» в контекстном меню.

Шаг 3: Перейдите в папку C:WindowsSystem32 и вставьте файл .OCX.

Шаг 4: Повторите установку.

Сохраните файл еще раз после установки программы

Шаг 1. Откройте проводник и перейдите к месту установки, вызвавшему эту ошибку.

Шаг 2: Щелкните правой кнопкой мыши программу установки и выберите «Запуск от имени администратора» в контекстном меню.

Шаг 3. Следуйте инструкциям на экране, чтобы завершить установку. Если вы видите такое же сообщение об ошибке 0x80040200, нажмите «ОК» и перейдите к следующему шагу.

Шаг 4: Нажмите клавиши Windows + R, чтобы открыть окно запуска.

Шаг 5: Введите cmd и нажмите Ctrl + Shift + Enter, чтобы открыть командную строку с повышенными правами CMD. Нажмите «Да», чтобы предоставить права администратора по запросу системы контроля учетных записей (UAC).

Шаг 6: Введите следующие команды и нажимайте Enter после каждой команды, чтобы отменить регистрацию и повторно зарегистрировать зависимость OCX.
spr32x30.ocx / ОТМЕНИТЬ РЕГИСТРАЦИЮ
spr32x30.ocx / РЕГИСТРАЦИЯ

Шаг 7: перезагрузите компьютер.

ОДОБРЕННЫЙ: Чтобы исправить ошибки Windows, нажмите здесь.

Сообщение Просмотров: 87