Mit TWebBrowser/TEmbeddedWB Edge von Windows 10 kapseln?

[redox]

Poste doch bitte (d)ein funktionierendes XE5 Demo-Projekt.

Poste doch bitte (d)ein nicht funktionierendes XE8 Demo-Projekt.

MfG

[ScharfeMietze]

Wass soll ich da posten ein neu erstelltes vcl
mit Browser 1 Button
Webbrowser1.Navigate('www.google.de');

Unter XE8 erzeugt ... siehe bild geht nicht
Unter XE5 erzeugt läuft auf anhieb.

der Code

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    embdwb1: TEmbeddedWB;
    btn1: TButton;
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
embdwb1.Go('www.google.de',1000)
end;

end.

[mquadrat]

Schon bei Emba gemeldet?

[hathor]

Was ist mit
....Navigate('www.google.de');
....Go('www.google.de',1000);
?
Gleicher Fehler?

[ScharfeMietze]

ja die gleichen Fehler es wird einfach nichts angezeigt

[greenmile]

Im aktuellen TEmbeddedWB ist ein Bug drin der dafür sorgt, dass unter Windows 10 nur eine leere Seite erscheint. Die Eigenschaft von "BrowserEmulation" ist irgendein Schrott, wenn man sie nichts definiert. Das sorgt dafür, dass irgendein Wert in

Code:

\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION

geschrieben wird. Windows 10 mag das überhaupt nicht, wenn was ungültiges (<0 oder > 11) da drin steht. Also am besten den Inhalt der Funktion "TEmbeddedWB.setbrowserversion" ausremen (ein Exit gleich am Anfang der Funktion), den Wert aus der Registry löschen (Name der EXE in dem Registry-Pfad) und schon läuft es.

[uligerhardt]

Zitat von greenmile:

ausremen

Du hast mal VB programmiert, oder?

[greenmile]

Ausremen ist nur kürzer als "auskommentieren".

[uligerhardt]

Zitat von greenmile:

Ausremen ist nur kürzer als "auskommentieren".

Stimmt.

[ScharfeMietze]

Der Tipp war super,
allerdings habe ich es noch etwas anders erschlagen
http://fs2.directupload.net/images/150819/zvmy85fb.jpg
Ich überschreibe einfach den Versionswert

Delphi-Quellcode:

procedure TEmbeddedWB.setbrowserversion( version : integer );
const
  REG_KEY_EMULATOR = '\Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION';
  var reg : tregistry;
begin
// Wert "version" am 19.08.2015 überschrieben für XE8 kompatibilität
// 11001 (0x2EDF) Internet Explorer 11. Webpages are displayed in IE11 Standards mode, regardless of the !DOCTYPE directive.
version:= 00011001;
  if not (csdesigning in componentstate) then begin   // sonst steht da stumpf bds.exe
    reg := Tregistry.create(KEY_WRITE);
    reg.rootkey :=  HKEY_CURRENT_USER;
    try
      reg.OpenKey(REG_KEY_EMULATOR,true);
      reg.WriteInteger(TWD_GetAppname, version);
      reg.CloseKey;
    finally
      //
    end;
    freeandnil(reg);
  end;
end;

Ein großen superlieben Dank!!
SM