Отслеживание изменений в документе `TWebBrowser` в режиме редактирования: эффективные методы мониторинга

Delphi , Интернет и Сети , Браузер

Отслеживание изменений в документе TWebBrowser в режиме редактирования: эффективные методы мониторинга

Вопрос пользователя заключается в необходимости отслеживания изменений, вносимых пользователем в HTML-документ, отображаемый в компоненте TWebBrowser в режиме редактирования. По умолчанию такой возможности нет, и пользователь пытался перехватить события WM_PASTE и WM_KEYDOWN, но без успеха.

Подтвержденный ответ

Для отслеживания изменений в документе в режиме редактирования необходимо использовать интерфейс IMarkupContainer2 для регистрации объекта, реализующего интерфейс IHTMLChangeSink через метод RegisterForDirtyRange. После регистрации изменения в документе будут уведомлять через метод IHTMLChangeSink.Notify. Однако, есть несколько подводных камней:

1. После изменения свойства designMode объекта IHTMLDocument2, компонент TWebBrowser перезагружает текущий документ и теряет все зарегистрированные объекты IHTMLChangeSink. Поэтому регистрацию необходимо выполнять после перевода документа в режим редактирования.

2. При переходе в режим редактирования документ перезагружается, что приводит к изменению свойства readyState документа на 'loading', а затем на 'complete'. Изменения в readyState также будут уведомлять зарегистрированный объект IHTMLChangeSink. Важно отметить, что событие TWebBrowser.OnDocumentComplete не вызывается после перехода в режим редактирования. Поэтому необходимо игнорировать уведомления до полной перезагрузки документа в режиме редактирования.

3. Метод RegisterForDirtyRange создает "куки" (cookie), которые необходимо поддерживать для последующей отмены регистрации объекта IHTMLChangeSink.

Реализация

Для реализации описанного подхода можно создать класс TWebBrowserDesign, который будет реализовывать интерфейс IHTMLChangeSink и управлять регистрацией изменений в документе:

uses
  System.SysUtils, SHDocVw, MSHTML;

type
  TWebBrowserDesign = class(TInterfacedObject, IHTMLChangeSink)
  private
    FDirtyRangeCookie: LongWord;
    FDocumentComplete: Boolean;
    FHTMLDocument2: IHTMLDocument2;
    FMarkupContainer2: IMarkupContainer2;
    FOnChange: TProc;
    // реализация интерфейса IHTMLChangeSink
    function Notify: HResult; stdcall;
  public
    constructor Create(WebBrowser: TWebBrowser; const AOnChange: TProc);
    destructor Destroy; override;
  end;

Конструктор класса TWebBrowserDesign переводит документ в режим редактирования и регистрирует объект IHTMLChangeSink. Деструктор класса отменяет регистрацию и переводит документ в обычный режим отображения.

Дополнительно, можно реализовать компонент TWebBrowserDesign для использования в дизайнере форм и регистрации обработчика события изменения документа.

Пример использования

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
begin
  // ввод в режим редактирования
  FWebBrowserDesign := TWebBrowserDesign.Create(WebBrowser1, procedure
    begin
      ButtonSave.Enabled := True;
    end);
end;

Заключение

Для отслеживания изменений в документе TWebBrowser в режиме редактирования необходимо использовать интерфейсы IMarkupContainer2 и IHTMLChangeSink. Необходимо учитывать особенности работы с этими интерфейсами, такие как перезагрузка документа и изменение свойства readyState. Реализация класса TWebBrowserDesign позволяет упростить процесс регистрации и отмены регистрации обработчика изменений.

Комментарии

Пользователи отметили, что предложенный ответ превышает их ожидания и работает корректно. Однако, были выявлены некоторые проблемы, связанные с использованием в Delphi XE7 и обработкой первого изменения. Для уточнения документ-режима IE, рекомендуется обратиться к документации Microsoft и связанным статьям на Stack Overflow.

Создано по материалам из источника по ссылке.

Ответ на вопрос пользователя требует отслеживания изменений в HTML-документе, отображаемом в компоненте `TWebBrowser` во время редактирования, что обычно не поддерживается по умолчанию и требует использования специальных методов и интерфейсов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Браузер ::