delphi webbrowser: cách ngăn chặn hoặc ẩn lỗi javascript đó?

Question

Tôi đang chạy TEmbeddedwb và tôi gặp lỗi thời gian chờ javascript trong khi điều hướng trên TEmbeddedwb đó.

(Tôi không có lỗi này khi chạy trong trình duyệt Internet Explorer của tôi!)

Trình duyệt hỏi tôi nếu tôi muốn dừng việc thực hiện các kịch bản.

tôi đặt propertioes TEmbeddedwb để

im lặng = true

dialogoBox.disableAll = true

Nhưng tôi vẫn có popup này đến ra!

1) tại sao tôi có lỗi này (thử nghiệm trên 2pcs) trong khi không có lỗi trong khi điều hướng trên Internet explorer

2) làm thế nào để vô hiệu hóa/giấu popup này?

liên quan

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. 

Answer 1

Làm thế nào để xử lý các lỗi JavaScript trong TEmbeddedWB?

Viết một handler cho sự kiện OnScriptError và trở về một trong những sẵn TScriptErrorAction giá trị trong tham số ScriptErrorAction đầu ra. Để bỏ qua lỗi tập lệnh và tiếp tục sử dụng, ví dụ:

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