Sie verwenden eine veraltete Browserversion

[nahpets]

Der TWebBrowser meldet sich als etwas veraltete Version bei den Servern.

Dem kann man eventuell durch einen Eintrag in der Registry abhelfen:

Delphi-Quellcode:

procedure IERegFake(sProgName : String; dwVersion :DWord);
var
          reg : TRegistry;
begin
  // 10001 = Version 10.0
  // 8000  = Version  8.0 Build = 86001
  // 7000  = Version  7.0
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION',true);
  reg.WriteInteger(sProgName,dwVersion);
  reg.Free;
end;

Aufruf z. B.: IERegFake(ExtractFileName(Application.ExeName),8000); Hab' das inzwischen im Initialisierungsteil einer Unit, die ich in jedes Programm einbinde, das den TWebBrowser nutzt.

[Rued]

Zitat von nahpets:

Der TWebBrowser meldet sich als etwas veraltete Version bei den Servern.

Dem kann man eventuell durch einen Eintrag in der Registry abhelfen:

Delphi-Quellcode:

procedure IERegFake(sProgName : String; dwVersion :DWord);
var
          reg : TRegistry;
begin
  // 10001 = Version 10.0
  // 8000  = Version  8.0 Build = 86001
  // 7000  = Version  7.0
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION',true);
  reg.WriteInteger(sProgName,dwVersion);
  reg.Free;
end;

Aufruf z. B.: IERegFake(ExtractFileName(Application.ExeName),8000); Hab' das inzwischen im Initialisierungsteil einer Unit, die ich in jedes Programm einbinde, das den TWebBrowser nutzt.

Hallo Stephan!

Bei mir hat hat es mit dem Wert 8000 nicht geklappt, wohl aber mit 80000. Den habe ich aus der Tabelle auf dieser Seite.

Danke Dir für den Hinweis!

Gruß

Rüd