Einzelnen Beitrag anzeigen

Der schöne Günther

Registriert seit: 6. Mär 2013
5.866 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Internet Explorer meldet Fehler in Script

  Alt 16. Mai 2017, 18:43
Tipp: Dir ist auch klar dass der TWebBrowser standardmäßig einen uralten Internet Explorer 7 emuliert, oder? Der hat natürlich dann auch mit Dingen wie Skripten und HTML5-Elementen Probleme die ein aktueller IE nicht mehr hat.

Das kann man nur über die Registry steuern, aber wenn man das direkt bei Anwendungsstart macht kann man es sich aussuchen in welchem IE-Modus der TWebBrowser läuft...


Delphi-Quellcode:
unit Common.Classes.Browser.EmulationAdjuster;

interface uses System.IoUtils, Winapi.Windows;

type
   /// <summary> <para>Setzt die Browser-Emulation für diese Anwendung (im HKCU-Hive)
   /// auf den angegebenen Wert. Standardmäßig, ohne Eingriff ist es in Windows immer
   /// <see cref="IE7_embedded" /></para>
   /// </summary>
   /// <remarks>
   /// Das Setzen des Emulations-Werts sollte so früh wie möglich
   /// passieren denn spätestens nach dem ersten Navigieren des WebBrowsers ist es zur
   /// ganzen Laufzeit der Anwendung fest und lässt sich nachträglich nicht mehr ändern
   /// </remarks>
   TBrowserEmulationAdjuster = class
      private
         class function GetExeName(): String; inline;
      public const
         // Quelle: https://msdn.microsoft.com/library/ee330730.aspx, Stand: 2017-04-26
         IE11_default   = 11000;
         IE11_Quirks      = 11001;
         IE10_force      = 10001;
         IE10_default   = 10000;
         IE9_Quirks      = 9999;
         IE9_default      = 9000;
         /// <summary>
         /// Webpages containing standards-based !DOCTYPE directives are displayed in IE7
         /// Standards mode. Default value for applications hosting the WebBrowser Control.
         /// </summary>
         IE7_embedded   = 7000;
      public
         class procedure SetBrowserEmulationDWORD(const value: DWORD);
   end platform;

implementation uses System.Win.Registry, System.SysUtils;

{ TBrowserEmulationAdjuster }

class function TBrowserEmulationAdjuster.GetExeName(): String;
begin
   Result := TPath.GetFileName( ParamStr(0) );
end;

class procedure TBrowserEmulationAdjuster.SetBrowserEmulationDWORD(const value: DWORD);
const
   registryPath = 'Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION';
var
   registry:   TRegistry;
   exeName:   String;
begin
   exeName := GetExeName();

   registry := TRegistry.Create(KEY_SET_VALUE);
   try
      registry.RootKey := HKEY_CURRENT_USER;
      Win32Check( registry.OpenKey(registryPath, True) );
      registry.WriteInteger(exeName, value)
   finally
      registry.Destroy();
   end;
end;

end.
  Mit Zitat antworten Zitat