Delphi: How to active geolocation allow's dialog on TChromium on html5

555 views Asked by At

I'm trying to load a page like this example, below, in a TChromium, but when I click the component don't show dialog asking to allow my geolocation, does have TChromium support do geolocation? By the way, TWebBrowser says that don't have support when I use the component.

<!DOCTYPE html>
<html>
<body>
<p>Click here to get the coordinates</p>

<button onclick="getLocation()">Click</button>

<p id="demo"></p>

<script>
var x = document.getElementById("demo");

function getLocation() {
    if (navigator.geolocation) {
        navigator.geolocation.getCurrentPosition(showPosition, showError);
    } else { 
        x.innerHTML = "Geolocation is not supported by this browser.";
    }
}

function showPosition(position) {
    x.innerHTML = "Latitude: " + position.coords.latitude + 
    "<br>Longitude: " + position.coords.longitude;  
}

function showError(error) {
    switch(error.code) {
        case error.PERMISSION_DENIED:
            x.innerHTML = "User denied the request for Geolocation."
            break;
        case error.POSITION_UNAVAILABLE:
            x.innerHTML = "Location information is unavailable."
            break;
        case error.TIMEOUT:
            x.innerHTML = "The request to get user location timed out."
            break;
        case error.UNKNOWN_ERROR:
            x.innerHTML = "An unknown error occurred."
            break;
    }
}
</script>

</body>
</html>
0

There are 0 answers