Mit TWebBrowser/TEmbeddedWB Edge von Windows 10 kapseln?

[ScharfeMietze]

Hey

Ich suche nach einer Möglichkeit, Programme die mit TWebBrowser/TEmbeddedWB gecodet wurden unter Windows 10 zum laufen zu bringen.
Diese verweigern erfolgreich den Dienst, obwohl der IE auf dem System ist.

Indy zu verwenden ist KEINE Option, da zu viele functions darauf aufbauen.
Hoffentlich ist hier jemand Fit genug :)

Grüße Mietze :)

[hathor]

Zitat:
"Die neue Engine "EdgeHTML" ist der neue Standard für Windows 10, Spartan und den Internet Explorer.

Die ältere IE11-Engine (Trident/MSHTML) ist aber auch im Spartan-Browser enthalten: Sie rendert Legacy-Websites, die ältere Techniken wie etwa angepasste ActiveX-Komponenten oder Browser Helper Objects verwenden. Bei modernen Websites würde die neue Engine zum Einsatz kommen, erklärt Weber. Man wolle auf diese Weise die Kompatibilität mit "Millionen von existierenden Firmen-Websites" sicherstellen, die für den Internet Explorer optimiert worden sind. Der Internet Explorer wird deshalb auch für Windows 10 verfügbar sein und auf dieselbe Dual-Engine zurückgreifen wie Spartan."

Die Dual-Engine wird die Ursache sein, dass TWebBrowser/TEmbeddedWB
nicht mehr funktionieren...

OleCtrls.pas und SHDocVw.pas müssten angepasst werden.

[Bernhard Geyer]

Was funktioniert den nicht? Die funkion die wir mit dem Ie-ActiveX Control realisieren wir funktionieren auch unter Win10

[ScharfeMietze]

Es werden keine Webseiten angesteuert/angezeigt, die Seiten bleiben einfach leer

Gibt es dafür einen Kompatibilitätsmodus? Oder einen andern Kniff?


OleCtrls.pas und SHDocVw.pas funktionstüchtig anzupasen ist nicht meine Gehaltsstufe..... Wenn da jemand was hat wird es gerne genommen.!

Grüße Mietze

[Bernhard Geyer]

Und was für einen Code verwendest du genau?

[ScharfeMietze]

http://fs2.directupload.net/images/150802/5gtblj4w.jpg

Nur ein einfacher Aufruf. Die Seite ist und bleibt einfach leer. Kein fehler, keine exception, nur leer.
Das Ergebnis bleibt gleich auch wenn zum Beispiel mit Navigate aufgerufen wird, oder mit dem Standard Browser.
mit XE8 erstellt.

[Roadmap]

Also wir nutzen in D7, XE2 und XE5 Projekten den TWebBrowser auch mit Ole-Fernsteuerung.

Diese Apps verrichten unter Windows 10 genauso klaglos ihren Dienst wie unter Win7/Win8!??!

[redox]

Schon mal
'https://www.google.de/'
oder
'http://www.google.de/'
ausprobiert?

[ScharfeMietze]

Ob http oder https eingegeben wird bringt keine Verbesserung......
Ist echt zum Mäusemelken

[ScharfeMietze]

Ich habe gerade ausprobiert unter XE5 funktioniert bei mir auch das Browsen.
Aber ein Project das unter XE8 gecodet wurde bzw XE5 die extra Umgeschrieben wurden wieder zu ändern... Hab ich Zahnschmerzen mit

Mal abgesehen davon das Rad ja auch nicht ganz billig ist.

[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:

Zitat von greenmile (Beitrag 1311699)

ausremen

Du hast mal VB programmiert, oder? :mrgreen:

[greenmile]

Ausremen ist nur kürzer als "auskommentieren".

[uligerhardt]

Zitat:

Zitat von greenmile (Beitrag 1311707)

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 :thumb: