Jump to content

Google Maps UDF

Blueman

By Blueman,
in AutoIt General Help and Support

 Share

Recommended Posts

Blueman Wayfarer

Blueman

Posted
Posted

Hey Guys,

I have a question about the Google Maps UDF.

 

A couple of weeks ago i created a simple script to display a couple of markers in a Google Maps environment.

Today the script crashes and i didn't change a thing to it.

 

I hope you guys can help me because i can't find the problem :(

 

MY SCRIPT

 

local $test = _GUICtrlGoogleMap_GetLatLng("Nederland, Den Helder, Ruyghweg 99")

MsgBox(1,"",$test)

 

GOOGLE MAPS UDF

#include-once
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <IE.au3>

#Region Header
#cs
    Title:          Google Maps v2 UDF Library for AutoIt3
    Filename:       Google Maps v2.au3
    Description:    A collection of functions for creating and controlling a Google Maps control in AutoIT
    Author:         seangriffin/Igor Kerekeš <Kescho>
    Version:        V2.1
    Last Update:    2013-11-23
    Requirements:   AutoIt3 3.2 or higher
    Changelog:      N/A
#ce
#EndRegion Header

#Region Global Variables and Constants
Global $gmap, $geocode_line, $bounds
Global $country = False, $address_is_latlng = False
#EndRegion Global Variables and Constants

#Region Core functions

#region _GUICtrlGoogleMap_GetLatLng()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetLatLng()
; Description ...:  Converts an address into a latitude and longitude array.
; Syntax.........:  _GUICtrlGoogleMap_GetLatLng($address)
; Parameters ....:  $address        - the address (either a location or latitude and longitude) to convert
;                                     ie. both "Sydney, New South Wales, Australia" and "-34.397, 150.644" are valid.
; Return values .:  On Success      - Returns an array with the latitude and longitude of the address.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
func _GUICtrlGoogleMap_GetLatLng($address)

    Local $latlng[2], $latlng_search = 0, $address_part, $oHTTP, $HTMLSource

    $address_part = StringSplit($address, ",")
    _ArrayDelete($address_part, 0)

    ; if the geocode is a lat long
    if UBound($address_part) = 2 and IsNumber($address_part[0]) = True and IsNumber($address_part[1]) = True Then
        $address_is_latlng = True
        $latlng[0] = StringStripWS($address_part[0], 3)
        $latlng[1] = StringStripWS($address_part[1], 3)
    Else
        ; convert the address to a lat long
        $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
        $oHTTP.Open("GET","http://maps.google.com/maps/api/geocode/json?address=" & $address & "&sensor=false&")
        $oHTTP.Send()
        $HTMLSource = $oHTTP.Responsetext

        $geocode_line = StringSplit($HTMLSource, @LF, 1)

_ArrayDisplay($geocode_line)

        For $latlng_search = 1 To $geocode_line[0]
            If StringInStr($geocode_line[$latlng_search], """location"" : {") Then
                $latlng[0] = $geocode_line[$latlng_search + 1]
                $latlng[0] = StringStripWS(StringReplace(StringReplace($latlng[0], """lat"" :", ""), ",", ""), 3)
                $latlng[1] = $geocode_line[$latlng_search + 2]
                $latlng[1] = StringStripWS(StringReplace(StringReplace($latlng[1], """lng"" :", ""), ",", ""), 3)
            EndIf
            ;if location is country...
            If StringInStr($geocode_line[$geocode_line[0] - 5], "         ""types"" : [ ""country"", ""political"" ]") Then
                $country = True
;~              $bounds[0] = $geocode_line[$geocode_line[0] - 25]
;~              $bounds[0] = StringStripWS(StringReplace(StringReplace($bounds[0], """lat"" :", ""), ",", ""), 3); <== SW lat
;~              $bounds[1] = $geocode_line[$geocode_line[0] - 24]
;~              $bounds[1] = StringStripWS(StringReplace(StringReplace($bounds[1], """lng"" :", ""), ",", ""), 3); <== SW lng
;~              $bounds[2] = $geocode_line[$geocode_line[0] - 29]
;~              $bounds[2] = StringStripWS(StringReplace(StringReplace($bounds[2], """lat"" :", ""), ",", ""), 3); <== NE lat
;~              $bounds[3] = $geocode_line[$geocode_line[0] - 28]
;~              $bounds[3] = StringStripWS(StringReplace(StringReplace($bounds[3], """lng"" :", ""), ",", ""), 3); <== NE lng
            EndIf
        Next
    EndIf

    Return $latlng
EndFunc
#endregion

#region _GUICtrlGoogleMap_Create()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_Create()
; Description ...:  Creates a Google Map control.
; Syntax.........:  _GUICtrlGoogleMap_Create(ByRef $gmap, $left, $top, $width, $height, $address, $zoom = 8, $marker = 1, $streetview = True, $overview_map = false, _
;                                                  $map_type = 0, $navigation_style = 0, $zoom_style = 0, $map_type_style = 0, $scale = 0, $lang = "en", $weather_unit = "C")
; Parameters ....:  $gmap               - The embedded Google Map object, required by the _GUICtrlGoogleMap functions below.
;                   $left               - The left side of the control.
;                   $top                - The top of the control.
;                   $width              - The width of the control.
;                   $height             - The height of the control.
;                   $address            - An address (either a location or latitude and longitude) to center the map on
;                                         ie. both "Sydney, New South Wales, Australia" and "-34.397, 150.644" are valid.
;                   $zoom               - An initial map zoom level.
;                   $marker             - 0 = Disable the marker for the above address
;                                         1 = Enable the marker for the above address
;                   $streetview         - A boolean indicating whether a streetview control is Enabled or Disabled.
;                   $overview_map       - A boolean indicating whether a small overview map is Enabled or Disabled
;                   $map_type           - 0 = Sets the map type to standard
;                                         1 = Sets the map type to satellite
;                                         2 = Sets the map type to hybrid
;                                         3 = Sets the map type to terrain
;                   $navigation_style   - 0 = Disable the Navigation control
;                                         1 = Enable the Navigation control with a small style
;                                         2 = Enable the Navigation control with a zoom pan style
;                                         3 = Enable the Navigation control with a android style
;                                         4 = Enable the Navigation control with a default style
;                   $zoom_style         - 0 = Disable the Zoom control
;                                         1 = Enable the Zoom control with a small style
;                                         2 = Enable the Zoom control with a large style
;                                         3 = Enable the Zoom control with a default style
;                   $map_type_style     - 0 = Disable the MapType control
;                                         1 = Enable the MapType control with a horizontal bar style
;                                         2 = Enable the MapType control with a dropdown menu style
;                                         3 = Enable the MapType control with a default style
;                   $scale              - 0 = Disable the Scale control
;                                         1 = Enable the Scale control
;                   $lang               - (Optional)
;                                         Sets the language for Google Maps controls, directions and labels localization.
;                                         For available languages see: http://code.google.com/intl/sk/apis/maps/faq.html#languagesupport
;                                         Default language = en
;                   $weather_unit       - Unit for displaying weather conditions
;                                         Default = C (C=CELSIUS, F=FAHRENHEIT)
; Return values .:  On Success          - Returns the identifier (controlID) of the new control.
;                   On Failure          - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:  This function must be used before any other function in the UDF is used.
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_Create(ByRef $gmap, $left, $top, $width, $height, $address, $zoom = 8, $marker = 1, $streetview = True, $overview_map = False, $map_type = 0, _
                                    $navigation_style = 0, $zoom_style = 0, $map_type_style = 0, $scale = 0, $lang = "en", $weather_unit = "C")
    Local $gmap_ctrl, $onload_marker_options, $weather_unit_options

    If $marker = 1 Then
        $onload_marker_options = _
        "        marker = new google.maps.Marker({" & @CRLF & _
        "            position: latlng, " & @CRLF & _
        "            map: map," & @CRLF & _
        "            clickable: false" & @CRLF & _
        "        });" & @CRLF & _
        "//        markersArray.push(marker);"
    Else
        $onload_marker_options = ""
    EndIf

    If $weather_unit = "C" Then
        $weather_unit_options = "CELSIUS"
    ElseIf $weather_unit = "F" Then
        $weather_unit_options = "FAHRENHEIT"
    EndIf

    If $address_is_latlng = True Then
        $bounds = ""
    Else
        $bounds = _
        "        var geocoder = new google.maps.Geocoder();" & @CRLF & _
        "            geocoder.geocode({""address"": """ & $address & """}, function (results, status) {" & @CRLF & _
        "                var ne = results[0].geometry.viewport.getNorthEast();" & @CRLF & _
        "                var sw = results[0].geometry.viewport.getSouthWest();" & @CRLF & _
        "                map.fitBounds(results[0].geometry.viewport);" & @CRLF & _
        "            });"
    EndIf

    Local Const $navigation_style_html[5] = [ _
        "navigationControl: false, ", _
        "navigationControl: true, navigationControlOptions: {style: google.maps.NavigationControlStyle.SMALL}, ", _
        "navigationControl: true, navigationControlOptions: {style: google.maps.NavigationControlStyle.ZOOM_PAN}, ", _
        "navigationControl: true, navigationControlOptions: {style: google.maps.NavigationControlStyle.ANDROID}, ", _
        "navigationControl: true, navigationControlOptions: {style: google.maps.NavigationControlStyle.DEFAULT}, "]
    Local Const $zoom_style_html[4] = [ _
        "zoomControl: false, ", _
        "zoomControl: true, zoomControlOptions: {style: google.maps.ZoomControlStyle.SMALL}, ", _
        "zoomControl: true, zoomControlOptions: {style: google.maps.ZoomControlStyle.LARGE}, ", _
        "zoomControl: true, zoomControlOptions: {style: google.maps.ZoomControlStyle.DEFAULT}, "]
    Local Const $map_type_style_html[4] = [ _
        "mapTypeControl: true, ", _
        "mapTypeControl: true, mapTypeControlOptions: {style: google.maps.MapTypeControlStyle.HORIZONTAL_BAR}, ", _
        "mapTypeControl: true, mapTypeControlOptions: {style: google.maps.MapTypeControlStyle.DROPDOWN_MENU}, ", _
        "mapTypeControl: true, mapTypeControlOptions: {style: google.maps.MapTypeControlStyle.DEFAULT}, "]
    Local Const $map_type_html[4] = [ _
        "mapTypeId: google.maps.MapTypeId.ROADMAP", _
        "mapTypeId: google.maps.MapTypeId.SATELLITE", _
        "mapTypeId: google.maps.MapTypeId.HYBRID", _
        "mapTypeId: google.maps.MapTypeId.TERRAIN"]
    Local Const $scale_html[2] = [ _
        "scaleControl: false, ", _
        "scaleControl: true, "]
    Local $latlng[2]

    $latlng = _GUICtrlGoogleMap_GetLatLng($address)

    Local $html1a = _
    "<!DOCTYPE html>" & @CRLF & _
    "<html>" & @CRLF & _
    "<head>" & @CRLF & _
    "    <title>Google Maps JavaScript API v3: Directions Draggable</title>" & @CRLF & _
    "    <meta name=""viewport"" content=""initial-scale=1.0, user-scalable=no"">" & @CRLF & _
    "    <meta http-equiv=""X-UA-Compatible"" content=""IE=8; charset=UTF-8"">" & @CRLF & _
    "    <link href=""http://code.google.com/apis/maps/documentation/javascript/examples/default.css"" rel=""stylesheet"" type=""text/css"" />" & @CRLF & _
    "    <style type=""text/css"">" & @CRLF & _
    "       #map_canvas { height: 100%; width: 100%; }" & @CRLF & _
    "    </style>" & @CRLF & _
    "    <script type=""text/javascript"" src=""http://maps.googleapis.com/maps/api/js?sensor=false&libraries=geometry,places,weather&language=" & StringLower($lang) & """></script>" & @CRLF & _
    "    <script type=""text/javascript"">" & @CRLF & _
    "        var rendererOptions = {draggable: true};" & @CRLF & _
    "        var directionsDisplay = new google.maps.DirectionsRenderer(rendererOptions);" & @CRLF & _
    "        var directionsService = new google.maps.DirectionsService();" & @CRLF & _
    "        var map;" & @CRLF & _
    "        var geocoder = new google.maps.Geocoder();" & @CRLF & _
    "        var latlng = new google.maps.LatLng(" & $latlng[0] & "," & $latlng[1] & ");" & @CRLF & _
    "        var latlng;" & @CRLF & _
    "        var markersArray = [];" & @CRLF & _
    "        var totalDistance = 0;" & @CRLF & _
    "        var totalDuration = 0;" & @CRLF & _
    "        var totalDetails;" & @CRLF & _
    "        var marker;" & @CRLF & _
    "        var markerPosition;" & @CRLF & _
    "        var markerAddress;" & @CRLF & _
    "        var updateLATLNG;" & @CRLF & _
    "        var updateLAT;" & @CRLF & _
    "        var updateLNG;" & @CRLF & _
    "        var updateADDRESS;" & @CRLF & _
    "        var weatherLayer;" & @CRLF & _
    "        var zoomLevel = 0;" & @CRLF & _
    "        function initialize() {" & @CRLF & _
    "            document.body.scroll = ""no"";" & @CRLF

    If $country = True Then
        Local $html1b = _
        "        var myOptions = {" & @CRLF & _
        "            disableDefaultUI: false, " & @CRLF & _
        "            " & $navigation_style_html[$navigation_style] & @CRLF & _
        "            streetViewControl: " & StringLower($streetview) & ", " & @CRLF & _
        "            overviewMapControl: " & StringLower($overview_map) & ", " & @CRLF & _
        "            " & $scale_html[$scale] & @CRLF & _
        "            " & $zoom_style_html[$zoom_style] & @CRLF & _
        "            " & $map_type_style_html[$map_type_style] & @CRLF & _
        "            " & $map_type_html[$map_type] & @CRLF & _
        "        };" & @CRLF & _
        "        weatherLayer = new google.maps.weather.WeatherLayer({" & @CRLF & _
        "            clickable: false," & @CRLF & _
        "            suppressInfoWindows: true," & @CRLF & _
        "            temperatureUnits: google.maps.weather.TemperatureUnit." & $weather_unit_options & @CRLF & _
        "        });" & @CRLF & _
        "        map = new google.maps.Map(document.getElementById(""map_canvas""), myOptions);" & @CRLF & _
        "        " & $onload_marker_options & @CRLF & _
        "        " & $bounds & @CRLF & _
        "        directionsDisplay.setMap(map);" & @CRLF & _
        "        google.maps.event.addListener(directionsDisplay, 'directions_changed', function() {" & @CRLF & _
        "            computeTotalDistance(directionsDisplay.directions);" & @CRLF & _
        "        });" & @CRLF & _
        "        var boundsChangedListener = google.maps.event.addListener(map, ""bounds_changed"", function(event){" & @CRLF & _
        "            zoomLevel = map.getZoom();" & @CRLF & _
        "            google.maps.event.removeListener(boundsChangedListener);" & @CRLF & _
        "        });" & @CRLF & _
        "        google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
        "            zoomLevel = map.getZoom();" & @CRLF & _
        "        });" & @CRLF & _
        "        updateMarkerPosition(latlng);" & @CRLF & _
        "        geocodePosition(latlng);" & @CRLF & _
        "        zoomLevel = setTimeout(function() {map.getZoom()}, 250);" & @CRLF & _
        "    }" & @CRLF
    Else
        Local $html1b = _
        "        var myOptions = {" & @CRLF & _
        "            disableDefaultUI: false," & @CRLF & _
        "            zoom: " & $zoom & ", " & @CRLF & _
        "            center: latlng, " & @CRLF & _
        "            " & $navigation_style_html[$navigation_style] & @CRLF & _
        "            streetViewControl: " & StringLower($streetview) & ", " & @CRLF & _
        "            overviewMapControl: " & StringLower($overview_map) & ", " & @CRLF & _
        "            " & $scale_html[$scale] & @CRLF & _
        "            " & $zoom_style_html[$zoom_style] & @CRLF & _
        "            " & $map_type_style_html[$map_type_style] & @CRLF & _
        "            " & $map_type_html[$map_type] & @CRLF & _
        "        };" & @CRLF & _
        "        weatherLayer = new google.maps.weather.WeatherLayer({" & @CRLF & _
        "            clickable: false," & @CRLF & _
        "            suppressInfoWindows: true," & @CRLF & _
        "            temperatureUnits: google.maps.weather.TemperatureUnit." & $weather_unit_options & @CRLF & _
        "        });" & @CRLF & _
        "        map = new google.maps.Map(document.getElementById(""map_canvas""), myOptions);" & @CRLF & _
        "        " & $onload_marker_options & @CRLF & _
        "        directionsDisplay.setMap(map);" & @CRLF & _
        "        google.maps.event.addListener(directionsDisplay, 'directions_changed', function() {" & @CRLF & _
        "            computeTotalDistance(directionsDisplay.directions);" & @CRLF & _
        "        });" & @CRLF & _
        "        var boundsChangedListener = google.maps.event.addListener(map, ""bounds_changed"", function(event){" & @CRLF & _
        "            zoomLevel = map.getZoom();" & @CRLF & _
        "            google.maps.event.removeListener(boundsChangedListener);" & @CRLF & _
        "        });" & @CRLF & _
        "        google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
        "            zoomLevel = map.getZoom();" & @CRLF & _
        "        });" & @CRLF & _
        "        updateMarkerPosition(latlng);" & @CRLF & _
        "        geocodePosition(latlng);" & @CRLF & _
        "        zoomLevel = setTimeout(function() {map.getZoom()}, 250);" & @CRLF & _
        "    }" & @CRLF
    EndIf

    Local $html1c = _
    "        function calcRoute(start, end, travel_mode_num, wp1, wp2, wp3, wp4) {" & @CRLF & _
    "            directionsDisplay.setMap(map);" & @CRLF & _
    "            var wpt = [wp1, wp2, wp3, wp4];" & @CRLF & _
    "            var waypts = [];" & @CRLF & _
    "            for (i = 0; i < 4; i++) {" & @CRLF & _
    "                if (wpt[i] != ' ') {" & @CRLF & _
    "                    waypts.push({location: wpt[i]});" & @CRLF & _
    "                };" & @CRLF & _
    "            }" & @CRLF & _
    "            var travel_mode = [google.maps.DirectionsTravelMode.DRIVING, google.maps.DirectionsTravelMode.WALKING, google.maps.DirectionsTravelMode.BICYCLING];" & @CRLF & _
    "            var request = {" & @CRLF & _
    "                origin: start," & @CRLF & _
    "                destination: end," & @CRLF & _
    "//                waypoints:[{location: ""Rudná, SK""}, {location: ""Jovice, SK""}, {location: ""Nadabula, SK""}, {location: ""Èuèma, SK""}]," & @CRLF & _
    "                waypoints: waypts," & @CRLF & _
    "                travelMode: travel_mode[travel_mode_num]" & @CRLF & _
    "            };" & @CRLF & _
    "            directionsService.route(request, function(response, status) {" & @CRLF & _
    "                if (status == google.maps.DirectionsStatus.OK) {" & @CRLF & _
    "                    directionsDisplay.setDirections(response);" & @CRLF & _
    "                }" & @CRLF & _
    "            });" & @CRLF & _
    "            zoomLevel = map.getZoom();" & @CRLF & _
    "        }" & @CRLF & _
    "        function computeTotalDistance(result) {" & @CRLF & _
    "            totalDistance = 0;" & @CRLF & _
    "            totalDuration = 0;" & @CRLF & _
    "            var myroute = result.routes[0];" & @CRLF & _
    "            for (i = 0; i < myroute.legs.length; i++) {" & @CRLF & _
    "                totalDistance += myroute.legs[i].distance.value;" & @CRLF & _
    "                totalDuration += myroute.legs[i].duration.value;" & @CRLF & _
    "            }" & @CRLF & _
    "            totalDetails = totalDistance + ""~"" + totalDuration + ""\n"";" & @CRLF & _
    "            for (i = 0; i < myroute.legs.length; i++) {" & @CRLF & _
    "                totalDetails = totalDetails + myroute.legs[i].start_address + ""\n"";" & @CRLF & _
    "                totalDetails = totalDetails + myroute.legs[i].distance.value + ""~"" + myroute.legs[i].duration.value + ""\n"";" & @CRLF & _
    "                for (x = 0; x < myroute.legs[i].steps.length; x++) {" & @CRLF & _
    "                    totalDetails = totalDetails + (x + 1) + "".~"" + myroute.legs[i].steps[x].instructions + ""~"" + myroute.legs[i].steps[x].distance.value + ""\n"";" & @CRLF & _
    "                }" & @CRLF & _
    "                totalDetails = totalDetails + myroute.legs[i].end_address + ""\n"";" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function move_map(address, zoom, loc_marker) {" & @CRLF & _
    "            if (loc_marker == 1) {" & @CRLF & _
    "                directionsDisplay.setMap(null);" & @CRLF & _
    "                geocoder.geocode( {""address"": address}, function(results, status) {" & @CRLF & _
    "                    if (status == google.maps.GeocoderStatus.OK) {" & @CRLF & _
    "                        map.setCenter(results[0].geometry.location);" & @CRLF & _
    "                        marker = new google.maps.Marker({" & @CRLF & _
    "                            map: map," & @CRLF & _
    "                            position: results[0].geometry.location," & @CRLF & _
    "                            draggable: true" & @CRLF & _
    "                        });" & @CRLF & _
    "                        markersArray.push(marker);" & @CRLF & _
    "                        updateMarkerPosition(results[0].geometry.location);" & @CRLF & _
    "                        geocodePosition(results[0].geometry.location);" & @CRLF & _
    "                        google.maps.event.addListener(marker, ""drag"", function() {" & @CRLF & _
    "                            updateMarkerPosition(marker.getPosition());" & @CRLF & _
    "                        });" & @CRLF & _
    "                        google.maps.event.addListener(marker, ""dragend"", function() {" & @CRLF & _
    "                            geocodePosition(marker.getPosition());" & @CRLF & _
    "                        });" & @CRLF & _
    "//                        google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
    "//                            zoomLevel = map.getZoom();" & @CRLF & _
    "//                            map.setCenter(marker.getPosition());" & @CRLF & _
    "//                        });" & @CRLF & _
    "                    } else {" & @CRLF & _
    "                        alert(""Geocode was not successful for the following reason: "" + status);" & @CRLF & _
    "                    }" & @CRLF & _
    "                });" & @CRLF & _
    "            } else if (loc_marker == 0) {" & @CRLF & _
    "                directionsDisplay.setMap(null);" & @CRLF & _
    "                geocoder.geocode( {""address"": address}, function(results, status) {" & @CRLF & _
    "                    if (status == google.maps.GeocoderStatus.OK) {" & @CRLF & _
    "                        map.setCenter(results[0].geometry.location);" & @CRLF & _
    "                        updateMarkerPosition(results[0].geometry.location);" & @CRLF & _
    "                        geocodePosition(results[0].geometry.location);" & @CRLF & _
    "//                        google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
    "//                            zoomLevel = map.getZoom();" & @CRLF & _
    "//                            map.setCenter(marker.getPosition());" & @CRLF & _
    "//                        });" & @CRLF & _
    "                    } else {" & @CRLF & _
    "                        alert(""Geocode was not successful for the following reason: "" + status);" & @CRLF & _
    "                    }" & @CRLF & _
    "                });" & @CRLF & _
    "            }" & @CRLF & _
    "            map.setZoom(zoom);" & @CRLF & _
    "            zoomLevel = map.getZoom();" & @CRLF & _
    "        }" & @CRLF & _
    "        function showCoordinates(lat, lng, zoom) {" & @CRLF & _
    "            var markerPosition;" & @CRLF & _
    "            var markerAddress;" & @CRLF & _
    "            var GPScoord = new google.maps.LatLng(lat, lng);" & @CRLF & _
    "            directionsDisplay.setMap(null);" & @CRLF & _
    "            map.setCenter(GPScoord);" & @CRLF & _
    "            marker = new google.maps.Marker({" & @CRLF & _
    "                map: map, " & @CRLF & _
    "                position: GPScoord, " & @CRLF & _
    "                draggable: true" & @CRLF & _
    "            });" & @CRLF & _
    "            markersArray.push(marker);" & @CRLF & _
    "            map.setZoom(zoom);" & @CRLF & _
    "            updateMarkerPosition(GPScoord);" & @CRLF & _
    "            geocodePosition(GPScoord);" & @CRLF & _
    "            google.maps.event.addListener(marker, ""drag"", function() {" & @CRLF & _
    "                updateMarkerPosition(marker.getPosition());" & @CRLF & _
    "            });" & @CRLF & _
    "            google.maps.event.addListener(marker, ""dragend"", function() {" & @CRLF & _
    "                geocodePosition(marker.getPosition());" & @CRLF & _
    "            });" & @CRLF & _
    "//            google.maps.event.addListener(map, ""zoom_changed"", function() {" & @CRLF & _
    "//                zoomLevel = map.getZoom();" & @CRLF & _
    "//                map.setCenter(marker.getPosition());" & @CRLF & _
    "//            });" & @CRLF & _
    "            zoomLevel = map.getZoom();" & @CRLF & _
    "        }" & @CRLF

    Local $html1d = _
    "        function geocodePosition(pos) {" & @CRLF & _
    "            geocoder.geocode( {""location"": pos}, function(results, status) {" & @CRLF & _
    "            if (status == google.maps.GeocoderStatus.OK) {" & @CRLF & _
    "                updateMarkerAddress(results[0].formatted_address);" & @CRLF & _
    "            } else {" & @CRLF & _
    "                updateMarkerAddress(""Cannot determine address at this location. "" + status);" & @CRLF & _
    "            }" & @CRLF & _
    "            });" & @CRLF & _
    "        }" & @CRLF & _
    "        function updateMarkerPosition(latlng) {" & @CRLF & _
    "            updateLATLNG = latlng.lat() + "", "" + latlng.lng();" & @CRLF & _
    "            updateLAT = latlng.lat();" & @CRLF & _
    "            updateLNG = latlng.lng();" & @CRLF & _
    "        }" & @CRLF & _
    "        function updateMarkerAddress(str) {" & @CRLF & _
    "            updateADDRESS = str" & @CRLF & _
    "        }" & @CRLF & _
    "        function zoom_map(zoom) {" & @CRLF & _
    "            if(markersArray.length > 0) {" & @CRLF & _
    "                map.setCenter(marker.getPosition());" & @CRLF & _
    "            }" & @CRLF & _
    "            map.setZoom(zoom);" & @CRLF & _
    "        }" & @CRLF & _
    "        function routeDetails() {" & @CRLF & _
    "            var totalRouteDetails = totalDetails" & @CRLF & _
    "            return totalRouteDetails;" & @CRLF & _
    "        }" & @CRLF & _
    "        function updatePosition() {" & @CRLF & _
    "            updatePOS = updateLAT + ""~"" + updateLNG + ""~"" + updateADDRESS" & @CRLF & _
    "            return updatePOS;" & @CRLF & _
    "        }" & @CRLF & _
    "        function getMapZoomLevel() {" & @CRLF & _
    "            return zoomLevel;" & @CRLF & _
    "        }" & @CRLF & _
    "        function addMarker(lat, lng, icon_url) {" & @CRLF & _
    "            var location = new google.maps.LatLng(lat, lng);" & @CRLF & _
    "            marker = new google.maps.Marker({" & @CRLF & _
    "                position: location," & @CRLF & _
    "                map: map," & @CRLF & _
    "                icon: icon_url" & @CRLF & _
    "            });" & @CRLF & _
    "            markersArray.push(marker);" & @CRLF & _
    "        }" & @CRLF & _
    "        function clearMarkers() {" & @CRLF & _
    "            if (markersArray) {" & @CRLF & _
    "                for (i in markersArray) {" & @CRLF & _
    "                    markersArray[i].setMap(null);" & @CRLF & _
    "                }" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function showMarkers() {" & @CRLF & _
    "            if (markersArray) {" & @CRLF & _
    "                for (i in markersArray) {" & @CRLF & _
    "                    markersArray[i].setMap(map);" & @CRLF & _
    "                }" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function deleteMarkers() {" & @CRLF & _
    "            if (markersArray) {" & @CRLF & _
    "                for (i in markersArray) {" & @CRLF & _
    "                    markersArray[i].setMap(null);" & @CRLF & _
    "                }" & @CRLF & _
    "                markersArray.length = 0;" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function viewMarkers() {" & @CRLF & _
    "            if (markersArray) {" & @CRLF & _
    "                var latlngbounds = new google.maps.LatLngBounds();" & @CRLF & _
    "                for (i in markersArray) {" & @CRLF & _
    "                    latlngbounds.extend(markersArray[i].getPosition());" & @CRLF & _
    "                }" & @CRLF & _
    "                map.fitBounds(latlngbounds);" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "        function weather(status) {" & @CRLF & _
    "            switch (status) {" & @CRLF & _
    "                case 0:" & @CRLF & _
    "                    weatherLayer.setMap(null);" & @CRLF & _
    "                    break;" & @CRLF & _
    "                case 1:" & @CRLF & _
    "                    weatherLayer.setMap(map);" & @CRLF & _
    "                    break;" & @CRLF & _
    "            }" & @CRLF & _
    "        }" & @CRLF & _
    "    </script>" & @CRLF & _
    "</head>" & @CRLF & _
    "<body>" & @CRLF & _
    "<body style=""margin:0px; padding:0px;"" onload=""initialize();"">" & @CRLF & _
    "    <div id=""map_canvas""></div>" & @CRLF & _
    "</body>" & @CRLF & _
    "</html>"

    Dim $html = $html1a & $html1b & $html1c & $html1d

    $gmap = _IECreateEmbedded()
    $gmap_ctrl = GUICtrlCreateObj($gmap, $left, $top, $width, $height)
    _IENavigate($gmap, "about:blank", 0)
    _IEDocWriteHTML($gmap, $html)
    _IEAction ($gmap, "refresh")

    Return $gmap_ctrl
EndFunc
#endregion

#region _GUICtrlGoogleMap_ViewLocation()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ViewLocation()
; Description ...:  Sets the center of a Google Map to a new address.
; Syntax.........:  _GUICtrlGoogleMap_ViewLocation($gmap, $address, $zoom)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $address        - An address (either a location or latitude and longitude) to center the map on
;                                     ie. both "Sydney, New South Wales, Australia" and "-34.397, 150.644" are valid.
;                   $zoom           - Map zoom level
;                                     (Optional) [Default = 12]
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:  Not the exact location if GPS Coordinates are entered, location is binded to an existing address.
; Related .......:
; Link ..........:
; ;==========================================================================================
func _GUICtrlGoogleMap_ViewLocation($gmap, $address, $zoom = 12, $location_marker = 1)

    $gmap.document.parentWindow.execScript("move_map(""" & $address & """, " & $zoom & ", " & $location_marker & ");")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_ViewCoordinates()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ViewCoordinates()
; Description ...:  Sets the center of a Google Map to coordinates.
; Syntax.........:  _GUICtrlGoogleMap_ViewCoordinates($gmap, $lat, $lng, $zoom)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $lat            - Latitude to center the map on
;                   $lat            - Longitude to center the map on
;                   $zoom           - Map zoom level
;                                     (Optional) [Default = 12]
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:  Shows the exact location from GPS coordinates.
; Related .......:
; Link ..........:
; ;==========================================================================================
func _GUICtrlGoogleMap_ViewCoordinates($gmap, $lat, $lng, $zoom = 12)

    $gmap.document.parentWindow.execScript("showCoordinates(" & $lat & ", " & $lng & ", " & $zoom & ");")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_ZoomView()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ZoomView()
; Description ...:  Zooms the center of a Google Map to a new level.
; Syntax.........:  _GUICtrlGoogleMap_ZoomView($gmap, $scale)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $zoom           - The level to zoom the view to.
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_ZoomView($gmap, $zoom)

    $gmap.document.parentWindow.execScript("zoom_map(" & $zoom & ");")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_GetMapZoom()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetMapZoom()
; Description ...:  Get the zoom level of the displayed map.
; Syntax.........:  _GUICtrlGoogleMap_GetMapZoom($gmap, $get_zoom_level)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $zoom_level     - The zoom level of the map.
; Return values .:  On Success      - Returns zoom level of the map.
;                   On Failure      - Returns False.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_GetMapZoom($gmap)
    Local $actual_zoom_level

    $actual_zoom_level = $gmap.document.parentWindow.eval("getMapZoomLevel();")

    Return $actual_zoom_level
EndFunc
#endregion

#region _GUICtrlGoogleMap_AddMarker()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_AddMarker()
; Description ...:  Adds a marker to a Google Map.
; Syntax.........:  _GUICtrlGoogleMap_AddMarker($gmap, $address)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $address        - An address (either a location or latitude and longitude) to add the marker to
;                                     ie. both "Sydney, New South Wales, Australia" and "-34.397, 150.644" are valid.
;                   $icon_url       - (Optional) A URL to an image that will be used for the icon of the marker.
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:  This function must be used before any other function in the UDF is used.
;                   There is currently a clipping problem with the control, where the video
;                   is overdrawn by any other window that overlaps it.  There is no known
;                   solution at this time.
;
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_AddMarker($gmap, $address, $icon_url = "")
    Local $latlng[2]

    $latlng = _GUICtrlGoogleMap_GetLatLng($address)
    $gmap.document.parentWindow.execScript("addMarker(" & $latlng[0] & "," & $latlng[1] & ",'" & $icon_url & "');")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_HideAllMarkers()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_HideAllMarkers()
; Description ...:  Hides all the markers on a Google Map (previously created by the function "_GUICtrlGoogleMap_AddMarker").
; Syntax.........:  _GUICtrlGoogleMap_HideAllMarkers($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_HideAllMarkers($gmap)

    $gmap.document.parentWindow.execScript("clearMarkers();")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_ShowAllMarkers()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ShowAllMarkers()
; Description ...:  Shows all the markers on a Google Map (previously hidden by the function "_GUICtrlGoogleMap_HideAllMarkers").
; Syntax.........:  _GUICtrlGoogleMap_ShowAllMarkers($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_ShowAllMarkers($gmap)

    $gmap.document.parentWindow.execScript("showMarkers();")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_DeleteAllMarkers()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_DeleteAllMarkers()
; Description ...:  Deletes all the markers on a Google Map (previously created by the function "_GUICtrlGoogleMap_AddMarker").
; Syntax.........:  _GUICtrlGoogleMap_DeleteAllMarkers($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_DeleteAllMarkers($gmap)

    $gmap.document.parentWindow.execScript("deleteMarkers();")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_ViewAllMarkers()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_ViewAllMarkers()
; Description ...:  Sets the view of a Google Map to fit all the markers (previously created by the function "_GUICtrlGoogleMap_AddMarker")..
; Syntax.........:  _GUICtrlGoogleMap_ViewAllMarkers($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_ViewAllMarkers($gmap)

    $gmap.document.parentWindow.execScript("viewMarkers();")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_SetMapType()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_SetMapType()
; Description ...:  Sets the type of map displayed.
; Syntax.........:  _GUICtrlGoogleMap_SetMapType($gmap, $map_type)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $map_type       - 0 = Sets the map type to standard
;                                     1 = Sets the map type to satellite
;                                     2 = Sets the map type to hybrid
;                                     3 = Sets the map type to terrain
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_SetMapType($gmap, $map_type)
    Local Const $map_type_html[4] = [ _
        "google.maps.MapTypeId.ROADMAP", _
        "google.maps.MapTypeId.SATELLITE", _
        "google.maps.MapTypeId.HYBRID", _
        "google.maps.MapTypeId.TERRAIN"]

    $gmap.document.parentWindow.execScript("map.setMapTypeId(" & $map_type_html[$map_type] & ");")

    Return True
EndFunc
#endregion

#region _GUICtrlGoogleMap_AddRoute()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_AddRoute()
; Description ...:  Adds a route (visually) to the map.
; Syntax.........:  _GUICtrlGoogleMap_AddRoute($gmap, $start_location, $end_location, $travel_mode = 0, $wp1 = " ", $wp2 = " ", $wp3 = " ", $wp4 = " ")
; Parameters ....:  $gmap               - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $start_location     - The starting location of the route.
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $end_location       - The ending location of the route.
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $travel_mode        - 0 = Uses a travel mode of DRIVING
;                                         1 = Uses a travel mode of WALKING
;                                         2 = Uses a travel mode of BICYCLING
;                   $wp1                - (Optional)
;                                         Sets first Waypoint
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $wp2                - (Optional)
;                                         Sets second Waypoint
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $wp3                - (Optional)
;                                         Sets third Waypoint
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
;                   $wp4                - (Optional)
;                                         Sets fourth Waypoint
;                                         Expressed as an address (ie. both "Sydney, New South Wales, Australia").
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:  Route is draggable.
; Related .......:
; Link ..........:
; ;==========================================================================================
func _GUICtrlGoogleMap_AddRoute($gmap, $start_location, $end_location, $travel_mode = 0, $wp1 = " ", $wp2 = " ", $wp3 = " ", $wp4 = " ")

    $gmap.document.parentWindow.eval("calcRoute(""" & $start_location & """, """ & $end_location & """, " & $travel_mode & ", """ & $wp1 & """, """ & $wp2 & """, """ & $wp3 & """, """ & $wp4 & """)")

    Return True
EndFunc
#endregion
;directionsDisplay.setMap(null);

#region _GUICtrlGoogleMap_DeleteRoute()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetRouteDetails()
; Description ...:  Gets the directions of a route.
; Syntax.........:  _GUICtrlGoogleMap_GetRouteDetails($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns route details (duration, distance, start, end and directions.
;                   On Failure      - Returns ???.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:  Contains directions steps and distance in meters.
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_DeleteRoute($gmap)
    ;Local $routeDetails

    $gmap.document.parentWindow.eval("directionsDisplay.setMap(null);")

    ;Return $routeDetails
EndFunc
#endregion

#region _GUICtrlGoogleMap_GetRouteDetails()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetRouteDetails()
; Description ...:  Gets the directions of a route.
; Syntax.........:  _GUICtrlGoogleMap_GetRouteDetails($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns route details (duration, distance, start, end and directions.
;                   On Failure      - Returns ???.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:  Contains directions steps and distance in meters.
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_GetRouteDetails($gmap)
    Local $routeDetails

    $routeDetails = $gmap.document.parentWindow.eval("routeDetails()")

    Return $routeDetails
EndFunc
#endregion

#region _GUICtrlGoogleMap_GetPosition()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetPosition()
; Description ...:  Gets the position of marker.
; Syntax.........:  _GUICtrlGoogleMap_GetPosition($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_GetPosition($gmap)
    Local $positionDetails[3], $position_details, $details, $posLAT, $posLNG, $posADR

    $posLAT = ""
    $posLNG = ""
    $posADR = ""

    $position_details = $gmap.document.parentWindow.eval("updatePosition()")
    $details = StringSplit($position_details, "~", 1)

    $posLAT = $details[1]
    $posLNG = $details[2]
    $posADR = $details[3]

    $positionDetails[0] = $posLAT
    $positionDetails[1] = $posLNG
    $positionDetails[2] = $posADR

    Return $positionDetails
EndFunc
#endregion

#region _GUICtrlGoogleMap_Weather()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_Weather()
; Description ...:  Enable or Disable the Weather Service
; Syntax.........:  _GUICtrlGoogleMap_Weather($gmap, $status, $unit)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
;                   $status         - Enable/Disable
; Return values .:  On Success      - Returns True.
;                   On Failure      - Returns False.
; Author ........:  Igor Kerekeš <Kescho>
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_Weather($gmap, $status = 0)

    $gmap.document.parentWindow.execScript("weather(" & $status & ");")

    Return True
EndFunc
#endregion

#cs
#region _GUICtrlGoogleMap_GetRouteDetails()
; #FUNCTION# ;===============================================================================
; Name...........:  _GUICtrlGoogleMap_GetRouteDetails()
; Description ...:  Gets the details of a route.
; Syntax.........:  _GUICtrlGoogleMap_GetRouteDetails($gmap)
; Parameters ....:  $gmap           - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; Return values .:  On Success      - Returns array of values.
;                   On Failure      - Returns ???.
; Author ........:  seangriffin
; Modified.......:  Igor Kerekeš <Kescho>
; Remarks .......:  Distance in meters and duration in seconds.
; Related .......:
; Link ..........:
; ;==========================================================================================
Func _GUICtrlGoogleMap_GetRouteDetails($gmap)
    Local $routeDetails[2], $route_details, $details, $distance, $duration

    $distance = ""
    $duration = ""

    $route_details = $gmap.document.parentWindow.eval("routeDetails()")
    $details = StringSplit($route_details, "~", 1)

    $distance = $details[1]
    $duration = $details[2]

    $routeDetails[0] = $distance
    $routeDetails[1] = $duration

    Return $routeDetails
EndFunc
#endregion
#ce

 

 

ERROR

Error: variable subscript badly formatted (Line 72 in Google Maps UDF)

 

 

Thanks guys!

 

 

Link to comment
Share on other sites
  • Moderators
JLogan3o13 Universalist

JLogan3o13

Posted
  • Moderators
Posted

The function you're attempting to use returns an array, not a string. When I change your code to this...

#include <Array.au3>
#include <Google Maps v2.au3>

local $test = _GUICtrlGoogleMap_GetLatLng("Nederland, Den Helder, Ruyghweg 99")
    _ArrayDisplay($test)

...it works just fine. I get the Geo Code Line array (an _ArrayDisplay unwisely buried in the UDF function itself), and then the $latlng array showing 52.9532544 x 4.767652099999999 coords.

If you're still receiving an error after changing your output format to allow for an array, please post the entirety of your code.

 

"Profanity is the last vestige of the feeble mind. For the man who cannot express himself forcibly through intellect must do so through shock and awe" - Spencer W. Kimball

How to get your question answered on this forum!

Link to comment
Share on other sites
Blueman Wayfarer

Blueman

Posted
  • Author
Posted

Hey Thanks man!

Fixed that problem, but now the Google Maps Shell is white and do shows the markers but not the area.

 

MY FULL SCRIPT

Local $EXIT_MAPS = "9999"
Local $Country = "Nederland"


Dim $msg, $gmap, $distance, $duration
Global $main_gui


; Setup Main GUI
$main_gui = GUICreate("Google Maps Shell", 850, 610, -1, -1, $WS_SIZEBOX)
$gmap_ctrl = _GUICtrlGoogleMap_Create($gmap, 5, 5, 840, 430, $Country, 12, 0, True, 0, 0, 1, 1)

GUISetBkColor($COLOR_WHITE) ; will change background color
GUICtrlSetResizing($gmap_ctrl, $GUI_DOCKTOP)


_GUICtrlGoogleMap_AddRoute($gmap, $Country & ", " & "Den Helder" & ", " & "Ruyghweg 2", $Country & ", " & "Den Helder" & ", " & "Keizersstraat 11", 0)
Sleep(500)
$RDetails = _GUICtrlGoogleMap_GetRouteDetails($gmap)

_GUICtrlGoogleMap_AddMarker($gmap, $Country & ", " & "Den Helder" & ", " & "Ruyghweg 2") ;1
_GUICtrlGoogleMap_AddMarker($gmap, $Country & ", " & "Den Helder" & ", " & "Noordzeestraat 11") ;2
_GUICtrlGoogleMap_AddMarker($gmap, $Country & ", " & "Den Helder" & ", " & "Dollardlaan 45") ;3
_GUICtrlGoogleMap_AddMarker($gmap, $Country & ", " & "Den Helder" & ", " & "Tuinstraat 2") ;4

$CalcDistance = _StringExplode($RDetails, "~", 0)


If $CalcDistance[0] < 150 Then

_GUICtrlGoogleMap_AddMarker($gmap, $Country & ", " & "Den Helder" & ", " & "Keizersstraat 11") ;Extra



Else

; NO DISPLAY

EndIf


_GUICtrlGoogleMap_ViewAllMarkers($gmap)

;_GUICtrlGoogleMap_DeleteRoute($gmap)

; Show Main GUI
GUISetState(@SW_SHOW)


    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
        Case $EXIT_MAPS, -3

GUIDelete($main_gui)

            ExitLoop

        EndSwitch
    WEnd

 

maps.png

Link to comment
Share on other sites
Blueman Wayfarer

Blueman

Posted
  • Author
Posted (edited)

Hey Guys,

Fixed that problem too :)

I have generated a html output to a file and then searched for bugs or something.

Apparently the META tag was filled with; content="IE=8;  I have no idea why (because i just used the UDF and didn't change it) but that was the problem.

I have changed the META information to content="IE-9"; and it is working again, but i don't want to change it again (when supporting stops for IE-9 :) ) so i have deleted the whole content information from the META tag.

Script is working again :)

 

PS: Is this wise to do, i mean to not use the content META information?

 

Edit: Worked with my stripped script, not with my actual script,.. ahumm. So DONT delete the CONTENT information from the META tag, but just raise it to IE-9 :) Should be working then, it did here ;)

Edited by Blueman
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...