Delphi Webbrowser: Wie kann man das Javascript Fehler verhindern oder verbergen?

Question

Ich bin TEmbedweb laufen und ich habe einen JavaScript-Timeout-Fehler beim Navigieren auf dieser TEmbeddedwb.

(Ich habe diesen Fehler nicht während in meinem Internet Explorer ausgeführt!)

Der Browser fragt mich, ob ich die Ausführung des Skripts beenden möchten.

Ich habe die TEmbeddedwb propertioes zu

silent = true

dialogoBox.disableAll = true

Aber ich habe immer noch das Popup comming out!

1) Warum habe ich diesen Fehler (durch 2 Stück getestet), während es kein Fehler, während auf Internet Explorer Navigation

2), wie Sie dieses Popup deaktivieren/verstecken?

Grüße

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

Wie JavaScript-Fehler in TEmbeddedWB behandeln?

einen Handler für das Ereignis OnScriptError schreiben und eine der verfügbaren TScriptErrorAction Werte im ScriptErrorAction Ausgabeparameter zurück. Um den Skriptfehler zu ignorieren und die Verwendung fortzusetzen, verwenden Sie z. B .:

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