Google Maps im TWebbrowser nicht aufrufbar

    Google Maps im TWebbrowser nicht aufrufbar

    Hallo,

    auf einem Formular liegt ein TWebbBrowser, mit dem ich Google Maps anzeigen möchte.
    Unter Android funktioniert das, unter Windows bekomme ich eine Meldung von Google, dass ich einen nicht kompatiblen Browser verwende...

    Nun habe ich schon gefunden dass man den UserAgent anpassen muss, als passendes habe ich

    Quellcode

    1. procedure SetUserAgent();
    2. const
    3. UserAgent: AnsiString =
    4. 'Mozilla/5.0 (Windows; WOW64; rv:29.0) Gecko/20120101 Firefox/29.0';
    5. begin
    6. UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, Pansichar(UserAgent),
    7. length(UserAgent), 0);
    8. end;

    gefunden was ich vor
    WebBrowser1.Navigate;
    aufrufe.

    Die Google-Meldung ist nun weg, aber ich bekomme nur ein graues Fenster ohne Inhalt angezeigt :(

    Kann mir bitte jemand weiterhelfen?

    Ciao
    Stefan
    Danke, aber es geht um den TWebbrowser vom Firemonkey!

    Inzwischen habe ich die Lösung, man muss Google "vorgaugeln dass man ein anderer Browser ist, Stichwort "SetUserAgent"

    Nach vielen Versuchen habe ich eine passende Einstellung gefunden, die Google maps akzeptiert, für andere die vielleicht das gleiche Problem haben:

    Quellcode

    1. procedure SetUserAgent();
    2. const
    3. UserAgent: AnsiString =
    4. 'Mozilla/5.0 (Linux; U; Android 2.3.6; en-us; SCH-R820 Build/GINGERBREAD) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1';
    5. begin
    6. UrlMkSetSessionOption(URLMON_OPTION_USERAGENT, Pansichar(UserAgent),
    7. length(UserAgent), 0);
    8. end;


    Ciao
    Stefan