IE9 in edit Mode & TWebBrowser = EZeroDivide

  В начале предисловия предисловие

  Приветствую тебя случайный гость. Данный блог давно задумывался, но все что то мешало, то не было темы с которой можно начать, то природная лень брала верх над намеченным. Основная цель преследуемая блогом это упорядочивание знаний, закрепление опыта, развитие навыков изложения материала, вообщем как и у всех, т.е. для себя. Если такие цели, то "какого черта" простите ждать? Садимся и пишем! Так и появилась первая запись в этом блоге, посмотрим что в дальнейшем из этого может выйти.

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

  В программной системе на моей текущей работе для отображения HTML разметки используется компонент TWebBrowser, который как известно является оберткой для COM ядра Internet Explorer'а. С недавних пор у некоторых клиентов нашего приложения  фрейм содержащий TWebBrowser стал валиться c исключением EZeroDivide - ошибка деления на ноль. В дальнейшем выяснилось, что ошибка имеет место лишь при установленном IE9 находящемся в режиме редактирования в OS Windows 7 64bit. И как только пользователь касался полосы прокрутки всплывало исключение. 

Место генерации исключения было не в Delphi обертке и находилось где то внутри IE.  Гугление показало, что я не одинок в своей проблеме, и нас как минимум трое=). Удалось установить и причину проблемы.   

  Все дело в том, что по умолчанию в MSVC и библиотеках написанных на нем при выполнение операций в FPU не возбуждаются исключения на ошибки, а возвращает значения NaN, +INF, -INF.  За настройку данного поведения в FPU отвечает так называемый регистр управляющее слово - Control Word (CW).Кроме того, через него можно задать и другие параметры влияющие на вычисление операций над числами с плавающей запятой, например точность. 

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

var 
 CW: word;

procedure TForm1.FormCreate(Sender: TObject);
begin
   CW := Get8087CW(); // Запоминаем предыдущее состояние регистра
   System.Set8087CW($133f);  // Выключаем исключения
end; 

procedure TForm1.FormDestroy(Sender: TObject);
begin
   System.Set8087CW(CW); // Восстанавливаем предыдущее значение регистра 
end;

  Но данный способ приемлем если у вас форма с TWebBrowser открыта модально или приложение не большое. В случае же если приложение MDI, большое и пользователь может динамически выполнять скрипты, то ни как не хотелось бы отключать генерацию исключений на все время работы приложения. Но как сделать так, что бы исключения были выключены только для TWebBrowser? 

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

TEventObject = class(TInterfacedObject,IDispatch)
  private
    FOnEvent: TProc;
  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;
  public
    constructor Create(const OnEvent: TProc);
    property OnEvent: TProc read FOnEvent write FOnEvent;
  end;

var
  webBrowser: IWebBrowser;
  iDocument2: IHTMLDocument2;
  eoMouseLeave, eoMouseEnter: TEventObject;
  iElement2: IHTMLElement2;
  j: Integer;
  CW: Word;

implementation

function TEventObject.Invoke(DispID: Integer; const IID: TGUID;
  LocaleID: Integer; Flags: Word; var Params; VarResult, ExcepInfo,
  ArgErr: Pointer): HResult;
begin
  if (Dispid = DISPID_VALUE) then
  begin
    if Assigned(FOnEvent) then
      FOnEvent; // Вызываем обработчик события 
    Result := S_OK;
  end
  else Result := E_NOTIMPL;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  {Создание объектов обработчиков реализующих IDispatch}
  eoMouseEnter := TEventObject.Create(self.OnMouseEnter);
  eoMouseLeave := TEventObject.Create(self.OnMouseLeave);
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  {Устанавливаем обработчики на события после загрузки страницы}
  webBrowser := pDisp as IWebBrowser;
  if Assigned(webBrowser.Document) then
  begin
    iDocument2 := webBrowser.Document as IHTMLDocument2;
    iDocument2.DesignMode := 'On';

    for j:=0 to iDocument2.All.Length-1 do
    begin
      iElement2 := iDocument2.All.item(j,EmptyParam) as IHTMLElement2;
      iElement2.AttachEvent('onmouseenter', eomouseEnter);
      iElement2.AttachEvent('onmouseleave', eoMouseLeave);
    end;
  end;
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  {отсоединяем обработчики от событий, перед загрузкой новой страницы}  
  if Assigned(webBrowser.Document) then
  begin
    iDocument2 := webBrowser.Document as IHTMLDocument2;
    for j:=0 to iDocument2.All.Length-1 do
    begin
      iElement2:=All.item(i,EmptyParam) as IHTMLElement2;
      iElement2.detachEvent('onmouseenter', eoMouseEnter);
      iElement2.detachEvent('onmouseleave', eoMouseLeave);
    end;
  end;
end;


procedure TForm1.OnMouseEnter;
begin
  CW := Get8087CW();  
  System.Set8087CW($133f); // Отключаем исключения
end;

procedure TForm1.OnMouseLeave;
begin
   System.Set8087CW(CW); // Восстанавливаем значение регистра
end;

  Здесь мы вешаем обработчики на события OnMouseEnter и OnMouseLeave, т.к. MSDN говорит нам, что события не всплывающие(не проходят по всей иерархии DOM до верхнего уровня), то обработчики устанавливаем на все объекты документа.  В качестве обработчика метод IHTMLDocument.AttachEvent просит объект с IDispatch, для этого реализуем TEventObject. И не забываем, что eoMouseEnter, eoMouseleave надо удалить перед закрытием формы.