delphi webbrowser: как предотвратить или скрыть эту ошибку javascript?

Я запускаю TEmbeddedwb, и я получил ошибку тайм-аута javascript при навигации по этому TEmbeddedwb .

(У меня нет этой ошибки во время работы в моем internet explorer !)

enter image description here

браузер спрашивает меня, хочу ли я остановить выполнение скрипта.

Я положил TEmbeddedwb propertioes к

silent = true

dialogoBox.disableAll = true

Но Я все еще есть это всплывающее окно !

1) Почему у меня есть эта ошибка (проверено на 2шт), пока нет ошибки при навигации по Internet explorer

2) Как отключить / скрыть всплывающее окно ?

в отношении

    unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleCtrls, SHDocVw_EWB, EwbCore, EmbeddedWB;

type
  TForm1 = class(TForm)
    iemain: TEmbeddedWB;
    procedure iemainScriptError(Sender: TObject; ErrorLine, ErrorCharacter,
      ErrorCode, ErrorMessage, ErrorUrl: String;
      var ScriptErrorAction: TScriptErrorAction);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.iemainScriptError(Sender: TObject; ErrorLine,
  ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl: String;
  var ScriptErrorAction: TScriptErrorAction);
begin
       MessageDlg('hello', mtWarning, [mbOK], 0);
       if ErrorCode='123' then    ScriptErrorAction := eaContinue;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    iemain.Navigate('http://www.expedia.fr/Hotels');
end;

end.
6
browser delphi twebbrowser webbrowser-control

1 ответов

как обрабатывать ошибку JavaScript в TEmbeddedWB ?

напишите обработчик для OnScriptError событие и возврат одного из доступных TScriptErrorAction значения ScriptErrorAction выходной параметр. Чтобы игнорировать ошибку скрипта и продолжать использовать, например:

procedure TForm1.EmbeddedWB1ScriptError(Sender: TObject; ErrorLine,
  ErrorCharacter, ErrorCode, ErrorMessage, ErrorUrl: string;
  var ScriptErrorAction: TScriptErrorAction);
begin
  if ErrorCode = 123 then
    ScriptErrorAction := eaContinue;
end;
5