Problem TEvsWebBrowser

[hahe]

Super! So werden die Fehler abgefangen, vielen Dank!!

Grüße
Hendrik

[gocher]

Sorry war ein paar Tage nicht online, so werden Javascript Fehler unterdrückt/nicht angezeigt:

Code: Alles auswählen

procedure TForm1.FormCreate(Sender: TObject);
var ovUrl, ovNull: Olevariant;
begin
  Browser := TEvsWebBrowser.Create(Self);
  ActiveXContainer1.ComServer := Browser.ComServer;
  ActiveXContainer1.Active := true;
  Browser.OnStatusTextChange := @OnStatusTextChange;
  ovUrl := Utf8decode('about:blank'); // eigentlich sollte hier an Stelle des : ein Doppelpunkt stehen, Fehler kommt durch Syntax Highlighting
  ovNull := NULL;
  Browser.ComServer.Navigate2(ovUrl, ovNull, ovNull, ovNull, ovNull);
  Browser.ComServer.Silent := true;  // Unterdrückung von Javascript Fehlermeldungen im Browser
end;  

Fehlermeldungen fängt man am Besten im Ursprung ab!