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