Alors que je codais tranquillement en utilisant SQLite, une chose étrange est survenue : une "Array badly formatted" spontanée. Tout marchais bien, j'ai rajouté un espace à un endroit du code sans rapport avec SQLite, et pouf, dès que j'ai testé, ça à commencé à me renvoyer cette erreur :
Code : Tout sélectionner
"C:\Program Files (x86)\AutoIt3\Include\Array.au3" (915) : ==> Variable subscript badly formatted.:
Func _ArraySearch(Const ByRef $avArray, $vValue, $iStart = 0, $iEnd = 0, $iCase = 0, $iCompare = 0, $iForward = 1, $iSubItem = -1)
Func _ArraySearch(Const ByR^ ERRORA savoir que je n'utilise pas Array.au3 directement, mais que SQLite.au3 l'appelle, ainsi que GoogleMaps.au3 - ce dernier m'ayant toujours causé moult problèmes.
Voici mon code : (c'est un peu long, mais ne sachant pas d'où provient l'erreur...)
► Afficher le texte
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#region Includes
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <GuiListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
;#include <GoogleMaps.au3>
#include <TabConstants.au3>
#include <File.au3>
#endregion Includes
#region translation
; Nothing yet !!!
#endregion translation
#region Global vars
;~ $service=RegRead()
Global $service = "service"
Global $proclink
Global $procname
Global $paramsgui
Global $aboutgui
Global $filter = "Fichier LISBON" & ' (*.lb1)'
Global $newproc = @YEAR & "." & @MON & @MDAY & @MIN
Global $dataloc = @ScriptDir & "\data\"
Global $iniloc = @ScriptDir & "\data\db.ini"
Global $mgt = $service & " - Localisation des balises"
Global $hDskDb, $newfilename
Dim $msg, $ge, $gm, $gmap
#endregion Global vars
maingui()
#region ### START Koda GUI section ###############################################################################################################
Opt("GUIOnEventMode", 1)
Func maingui()
Global $maingui = GUICreate($mgt, 1634, 808, 140, 114)
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close") ; Call a common GUI close function
GUISetState()
Global $filemenu = GUICtrlCreateMenu("&Fichier")
Global $fmnew = GUICtrlCreateMenuItem("Nouvelle procédure", $filemenu)
GUICtrlSetOnEvent($fmnew, "fmnew")
Global $fmopen = GUICtrlCreateMenuItem("Ouvrir procédure", $filemenu)
GUICtrlSetOnEvent($fmopen, "fmopen")
Global $fmsave = GUICtrlCreateMenuItem("Enregistrer", $filemenu)
GUICtrlSetOnEvent($fmsave, "fmsave")
Global $fmexport = GUICtrlCreateMenu("Exportation", $filemenu)
Global $fmekml = GUICtrlCreateMenuItem("Google Earth (.kml)", $fmexport)
GUICtrlSetOnEvent($fmekml, "fmekml")
Global $fmeodf = GUICtrlCreateMenuItem("Tableau OpenOffice (.odf)", $fmexport)
Global $fmexls = GUICtrlCreateMenuItem("Tableau Excel (.xls)", $fmexport)
Global $fmetxt = GUICtrlCreateMenuItem("Fichier texte (.txt)", $fmexport)
Global $fmecsv = GUICtrlCreateMenuItem("Fichier CSV (.csv)", $fmexport)
Global $fmquit = GUICtrlCreateMenuItem("Quitter", $filemenu)
GUICtrlSetOnEvent(-1, "On_Close") ; Call a common GUI close function
Global $balisemenu = GUICtrlCreateMenu("&Balise")
Global $bmloc = GUICtrlCreateMenuItem("Localiser", $balisemenu)
Global $bmtrack = GUICtrlCreateMenuItem("Commencer le tracking", $balisemenu)
Global $bmadd = GUICtrlCreateMenuItem("Ajouter balise", $balisemenu)
Global $bmparam = GUICtrlCreateMenuItem("Réglages", $balisemenu)
GUICtrlSetOnEvent(-1, "params")
Global $helpmenu = GUICtrlCreateMenu("&Aide")
Global $hmhelp = GUICtrlCreateMenuItem("Aide", $helpmenu)
Global $hmabout = GUICtrlCreateMenuItem("À propos", $helpmenu)
GUICtrlSetOnEvent(-1, "aboutgui")
;~ Global $ge_ctrl = _GUICtrlGoogleEarth_Create($ge, "AIzaSyBNOFdmiVL5mlUpemAZVe3uQBIhU7zc6IA", 752, 6, 872, 756, "465 Route de Piron, Sevrier, France", 10000, 0.1)
Global $gmap_ctrl = _GUICtrlGoogleMap_Create($gmap, 752, 6, 872, 756, "17 rue des Marquisats, Annecy, France", 18, True, 2, 2, 1, 1)
GUICtrlSetResizing($gmap_ctrl, $GUI_DOCKTOP)
Global $statusbar = _GUICtrlStatusBar_Create($maingui)
Global $telemetrie = GUICtrlCreateGroup("Etat de la balise/Télémétrie", 0, 0, 737, 129)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Historique", 0, 504, 377, 257)
Global $List = GUICtrlCreateList("", 0, 544, 374, 214)
Global $lbspeed = GUICtrlCreateLabel("Vitesse", 5, 528, 42, 17)
Global $lblat = GUICtrlCreateLabel("Latitude", 80, 528, 51, 17)
Global $lblon = GUICtrlCreateLabel("Longitude", 165, 528, 50, 17)
Global $lbcity = GUICtrlCreateLabel("Ville", 250, 528, 38, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("Localisation", 0, 136, 377, 361)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $maingui_AccelTable[5][2] = [["^n", $fmnew],["^o", $fmopen],["^s", $fmsave],["!{F4}", $fmquit],["{F1}", $hmhelp]]
GUISetAccelerators($maingui_AccelTable)
Global $Tab1 = GUICtrlCreateTab(392, 144, 345, 616)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
Global $TabSheet1 = GUICtrlCreateTabItem("Actions")
Global $TabSheet2 = GUICtrlCreateTabItem("Paramètres")
GUICtrlCreateTabItem("")
Global $showTestgui = GUICtrlCreateButton("setproc", 10, 60, 80, 30)
GUICtrlSetOnEvent(-1, "setproc")
;_GUICtrlGoogleMap_DeleteAllMarkers($gmap)
_SQLite_Startup()
If @error Then
MsgBox(16, "Erreur SQLite", "Le gestionnaire de base de données n'a pas pu être initialisé !")
;Exit -1
EndIf
EndFunc ;==>maingui
Func aboutgui()
GuiSetState(@SW_DISABLE, $maingui)
Global $aboutgui = GUICreate("A Propos", 442, 245, 302, 218, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS,$DS_MODALFRAME))
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close") ; Call a common GUI close function
GUISetState()
Global $GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
Global $Image1 = GUICtrlCreatePic("", 16, 24, 105, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Label1 = GUICtrlCreateLabel("LISBON LocalISation Balises pOlice Nationale", 152, 24, 77, 17, $WS_GROUP)
Global $Label2 = GUICtrlCreateLabel("Version", 152, 48, 39, 17, $WS_GROUP)
Global $Label4 = GUICtrlCreateLabel("Commentaires", 16, 160, 70, 17, $WS_GROUP)
Global $Label3 = GUICtrlCreateLabel("Copyright", 16, 136, 48, 17, $WS_GROUP)
;~ GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("&Valider", 112, 208, 75, 25)
EndFunc
Func params()
Global $paramsgui = GUICreate("A Propos", 442, 245, 302, 218, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS,$DS_MODALFRAME))
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close") ; Call a common GUI close function
GUISetState()
Global $GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
Global $Image1 = GUICtrlCreatePic("", 16, 24, 105, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Label1 = GUICtrlCreateLabel("Nom du Produit", 152, 24, 77, 17, $WS_GROUP)
Global $Label2 = GUICtrlCreateLabel("Version", 152, 48, 39, 17, $WS_GROUP)
Global $Label4 = GUICtrlCreateLabel("Commentaires", 16, 160, 70, 17, $WS_GROUP)
Global $Label3 = GUICtrlCreateLabel("Copyright", 16, 136, 48, 17, $WS_GROUP)
;~ GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("&Valider", 112, 208, 75, 25)
EndFunc
;==============================================================================================================================================
Func On_Close()
Switch @GUI_WinHandle ; See which GUI sent the CLOSE message
Case $paramsgui
GUIDelete($paramsgui) ; If it was this GUI - we just delete the GUI <<<<<<<<<<<<<<<
GuiSetState(@SW_ENABLE, $maingui)
GuiSetState(@SW_SHOWDEFAULT, $maingui)
Case $aboutgui
GUIDelete($aboutgui) ; If it was this GUI - we just delete the GUI <<<<<<<<<<<<<<<
GuiSetState(@SW_ENABLE, $maingui)
GuiSetState(@SW_SHOWDEFAULT, $maingui)
Case $maingui
_SQLite_Close($hDskDb)
_SQLite_Shutdown()
Exit ; If it was this GUI - we exit <<<<<<<<<<<<<<<
EndSwitch
EndFunc ;==>On_Close
#endregion ### END Koda GUI section ###############################################################################################################
#region ### Auxiliary functions ###############################################################################################################
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
If Not FileExists($iniloc) Then
_FileCreate($iniloc)
EndIf
While 1
Sleep(1000)
setname()
WEnd
Func setproc()
NewLoc("0644975226", "45", "Orange", "80", "148°52*22.41", "145°20*58.86", "400", 11, "49")
EndFunc
Func NewLoc($tracker, $batt, $oper, $level, $lat, $lon, $hei="0", $speed="0", $north="0")
$city=Callback($lat, $lon)
DBNewRecord($tracker, $batt, $oper, $level, $lat, $lon, $hei, $speed, $north, $city)
Display($tracker, $batt, $oper, $level, $lat, $lon, $hei, $speed, $north, $city)
EndFunc
Func DBNewRecord($tracker, $batt, $oper, $level, $lat, $lon, $hei="0", $speed="0", $north="0", $city="(NULL)")
_SQLite_Exec($hDskDb, "INSERT INTO data(tracker,lat,lon,hei,speed,north,city) VALUES ('" & $tracker & "','" & $lat & "','" & $lon & "','" & $hei & "','" & $speed & "','" & $north & "','" & $city & "');") ; INSERT Data
_SQLite_Exec($hDskDb, "INSERT INTO telex(number,batt,oper,level) VALUES ('" & $tracker & "','" & $batt & "','" & $oper & "','" & $level & "');") ; INSERT Data
EndFunc
Func Display($tracker, $batt, $oper, $level, $lat, $lon, $hei, $speed, $north, $city="VIDE")
Local $corlat = StringReplace($lat, "*", "'")
Local $corlon = StringReplace($lon, "*", "'")
Local $ourlat
Local $ourlon
Local $ourcoord = $corlat & "," & $corlon
_GUICtrlGoogleMap_AddMarker($gmap, $ourcoord)
Switch $speed
Case $speed < 10
$ourspeed = $speed & " "
Case $speed > 10 AND $speed < 100
$ourspeed = $speed & " "
Case $speed > 100
$ourspeed = $speed
EndSwitch
Switch $corlat
Case StringLen($corlat) < 10
$ourlat = $corlat & " "
Case StringLen($corlat) > 10 AND $corlat < 100
$ourlat = $corlat & " "
Case StringLen($corlat) > 100
$ourlat = $corlat
Case StringLen($corlat) = 10
$ourlat = $corlat & " "
EndSwitch
Switch $corlon
Case StringLen($corlon) < 10
$ourlon = $corlon & " "
Case StringLen($corlon) = 10
$ourlon = $corlon
Case StringLen($corlon) > 1 AND $corlon < 100
$ourlon = $corlon & " "
Case StringLen($corlon) > 100
$ourlon = $corlon
EndSwitch
GUICtrlSetData($List, $ourspeed & $ourlat & $ourlon & $city)
EndFunc
Func Callback($lat, $lon)
;~ Callback : Sur quelle commune suis-je ?
Return "St-Foy-Lès-Lyon"
EndFunc
Func setname()
If $proclink <> "" Then
$mgtnew = "Localisation des balises : " & $procname & " [" & $proclink & "]" & " - LISBON " & $service; (1)
WinSetTitle($maingui, "", $mgtnew) ; (2)
EndIf
EndFunc
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
#endregion ### Auxiliary functions ###############################################################################################################
#region ### save/new functions ###############################################################################################################
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
Func fmnew()
;~ $filename=FileSaveDialog("Nouveau", $dataloc, "Fichier LISBON" & ' (*.lb1)', '', $newproc & '.lb1')
If Not $hDskDb <> "" Then _SQLite_Close($hDskDb)
$procname = InputBox("Nouvelle procédure", "Nom de procédure")
$newfilename=$dataloc & $newproc & $procname & ".lb1"
Global $hDskDb = _SQLite_Open($newfilename) ; Open a permanent disk database
_SQLite_Exec(-1, "CREATE TABLE info (name,crdate,mddate,creator);") ; CREATE info table
_SQLite_Exec(-1, "CREATE TABLE trackers (number,name);") ; CREATE data table
_SQLite_Exec(-1, "CREATE TABLE data (tracker,lat,lon,hei,speed,north,city);") ; CREATE data table
_SQLite_Exec(-1, "CREATE TABLE telex (number,batt,oper,level);") ; CREATE data table
_SQLite_Exec(-1, "INSERT INTO info(name,crdate,mddate,creator) VALUES ('" & $procname & "','" & $newproc & "','" & $newproc & "','" & @UserName & "');") ; INSERT Data
FileCopy($newfilename, @TempDir & "\LISBON\" & $newproc & $procname & ".lb1")
If @error Then
MsgBox(16, "Erreur SQLite", "Impossible de créer la base de donnée !")
EndIf
$proclink=$newfilename
EndFunc
Func fmopen()
$proclink = FileOpenDialog("Ouvrir procédure", $dataloc, $filter)
Global $hDskDb = _SQLite_Open($proclink)
EndFunc
Func fmsave()
MsgBox(32, "Enregistrement", "Fichier enregistré dans " & $proclink)
EndFunc
Func fmekml()
EndFunc
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
#endregion ### save/new functions ###############################################################################################################
#AutoIt3Wrapper_UseX64=n
#AutoIt3Wrapper_Res_requestedExecutionLevel=requireAdministrator
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#region Includes
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <GuiListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
;#include <GoogleMaps.au3>
#include <TabConstants.au3>
#include <File.au3>
#endregion Includes
#region translation
; Nothing yet !!!
#endregion translation
#region Global vars
;~ $service=RegRead()
Global $service = "service"
Global $proclink
Global $procname
Global $paramsgui
Global $aboutgui
Global $filter = "Fichier LISBON" & ' (*.lb1)'
Global $newproc = @YEAR & "." & @MON & @MDAY & @MIN
Global $dataloc = @ScriptDir & "\data\"
Global $iniloc = @ScriptDir & "\data\db.ini"
Global $mgt = $service & " - Localisation des balises"
Global $hDskDb, $newfilename
Dim $msg, $ge, $gm, $gmap
#endregion Global vars
maingui()
#region ### START Koda GUI section ###############################################################################################################
Opt("GUIOnEventMode", 1)
Func maingui()
Global $maingui = GUICreate($mgt, 1634, 808, 140, 114)
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close") ; Call a common GUI close function
GUISetState()
Global $filemenu = GUICtrlCreateMenu("&Fichier")
Global $fmnew = GUICtrlCreateMenuItem("Nouvelle procédure", $filemenu)
GUICtrlSetOnEvent($fmnew, "fmnew")
Global $fmopen = GUICtrlCreateMenuItem("Ouvrir procédure", $filemenu)
GUICtrlSetOnEvent($fmopen, "fmopen")
Global $fmsave = GUICtrlCreateMenuItem("Enregistrer", $filemenu)
GUICtrlSetOnEvent($fmsave, "fmsave")
Global $fmexport = GUICtrlCreateMenu("Exportation", $filemenu)
Global $fmekml = GUICtrlCreateMenuItem("Google Earth (.kml)", $fmexport)
GUICtrlSetOnEvent($fmekml, "fmekml")
Global $fmeodf = GUICtrlCreateMenuItem("Tableau OpenOffice (.odf)", $fmexport)
Global $fmexls = GUICtrlCreateMenuItem("Tableau Excel (.xls)", $fmexport)
Global $fmetxt = GUICtrlCreateMenuItem("Fichier texte (.txt)", $fmexport)
Global $fmecsv = GUICtrlCreateMenuItem("Fichier CSV (.csv)", $fmexport)
Global $fmquit = GUICtrlCreateMenuItem("Quitter", $filemenu)
GUICtrlSetOnEvent(-1, "On_Close") ; Call a common GUI close function
Global $balisemenu = GUICtrlCreateMenu("&Balise")
Global $bmloc = GUICtrlCreateMenuItem("Localiser", $balisemenu)
Global $bmtrack = GUICtrlCreateMenuItem("Commencer le tracking", $balisemenu)
Global $bmadd = GUICtrlCreateMenuItem("Ajouter balise", $balisemenu)
Global $bmparam = GUICtrlCreateMenuItem("Réglages", $balisemenu)
GUICtrlSetOnEvent(-1, "params")
Global $helpmenu = GUICtrlCreateMenu("&Aide")
Global $hmhelp = GUICtrlCreateMenuItem("Aide", $helpmenu)
Global $hmabout = GUICtrlCreateMenuItem("À propos", $helpmenu)
GUICtrlSetOnEvent(-1, "aboutgui")
;~ Global $ge_ctrl = _GUICtrlGoogleEarth_Create($ge, "AIzaSyBNOFdmiVL5mlUpemAZVe3uQBIhU7zc6IA", 752, 6, 872, 756, "465 Route de Piron, Sevrier, France", 10000, 0.1)
Global $gmap_ctrl = _GUICtrlGoogleMap_Create($gmap, 752, 6, 872, 756, "17 rue des Marquisats, Annecy, France", 18, True, 2, 2, 1, 1)
GUICtrlSetResizing($gmap_ctrl, $GUI_DOCKTOP)
Global $statusbar = _GUICtrlStatusBar_Create($maingui)
Global $telemetrie = GUICtrlCreateGroup("Etat de la balise/Télémétrie", 0, 0, 737, 129)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group2 = GUICtrlCreateGroup("Historique", 0, 504, 377, 257)
Global $List = GUICtrlCreateList("", 0, 544, 374, 214)
Global $lbspeed = GUICtrlCreateLabel("Vitesse", 5, 528, 42, 17)
Global $lblat = GUICtrlCreateLabel("Latitude", 80, 528, 51, 17)
Global $lblon = GUICtrlCreateLabel("Longitude", 165, 528, 50, 17)
Global $lbcity = GUICtrlCreateLabel("Ville", 250, 528, 38, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Group3 = GUICtrlCreateGroup("Localisation", 0, 136, 377, 361)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $maingui_AccelTable[5][2] = [["^n", $fmnew],["^o", $fmopen],["^s", $fmsave],["!{F4}", $fmquit],["{F1}", $hmhelp]]
GUISetAccelerators($maingui_AccelTable)
Global $Tab1 = GUICtrlCreateTab(392, 144, 345, 616)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
Global $TabSheet1 = GUICtrlCreateTabItem("Actions")
Global $TabSheet2 = GUICtrlCreateTabItem("Paramètres")
GUICtrlCreateTabItem("")
Global $showTestgui = GUICtrlCreateButton("setproc", 10, 60, 80, 30)
GUICtrlSetOnEvent(-1, "setproc")
;_GUICtrlGoogleMap_DeleteAllMarkers($gmap)
_SQLite_Startup()
If @error Then
MsgBox(16, "Erreur SQLite", "Le gestionnaire de base de données n'a pas pu être initialisé !")
;Exit -1
EndIf
EndFunc ;==>maingui
Func aboutgui()
GuiSetState(@SW_DISABLE, $maingui)
Global $aboutgui = GUICreate("A Propos", 442, 245, 302, 218, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS,$DS_MODALFRAME))
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close") ; Call a common GUI close function
GUISetState()
Global $GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
Global $Image1 = GUICtrlCreatePic("", 16, 24, 105, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Label1 = GUICtrlCreateLabel("LISBON LocalISation Balises pOlice Nationale", 152, 24, 77, 17, $WS_GROUP)
Global $Label2 = GUICtrlCreateLabel("Version", 152, 48, 39, 17, $WS_GROUP)
Global $Label4 = GUICtrlCreateLabel("Commentaires", 16, 160, 70, 17, $WS_GROUP)
Global $Label3 = GUICtrlCreateLabel("Copyright", 16, 136, 48, 17, $WS_GROUP)
;~ GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("&Valider", 112, 208, 75, 25)
EndFunc
Func params()
Global $paramsgui = GUICreate("A Propos", 442, 245, 302, 218, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_CAPTION,$WS_OVERLAPPEDWINDOW,$WS_TILEDWINDOW,$WS_POPUP,$WS_POPUPWINDOW,$WS_GROUP,$WS_TABSTOP,$WS_BORDER,$WS_CLIPSIBLINGS,$DS_MODALFRAME))
GUISetOnEvent($GUI_EVENT_CLOSE, "On_Close") ; Call a common GUI close function
GUISetState()
Global $GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
Global $Image1 = GUICtrlCreatePic("", 16, 24, 105, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
Global $Label1 = GUICtrlCreateLabel("Nom du Produit", 152, 24, 77, 17, $WS_GROUP)
Global $Label2 = GUICtrlCreateLabel("Version", 152, 48, 39, 17, $WS_GROUP)
Global $Label4 = GUICtrlCreateLabel("Commentaires", 16, 160, 70, 17, $WS_GROUP)
Global $Label3 = GUICtrlCreateLabel("Copyright", 16, 136, 48, 17, $WS_GROUP)
;~ GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("&Valider", 112, 208, 75, 25)
EndFunc
;==============================================================================================================================================
Func On_Close()
Switch @GUI_WinHandle ; See which GUI sent the CLOSE message
Case $paramsgui
GUIDelete($paramsgui) ; If it was this GUI - we just delete the GUI <<<<<<<<<<<<<<<
GuiSetState(@SW_ENABLE, $maingui)
GuiSetState(@SW_SHOWDEFAULT, $maingui)
Case $aboutgui
GUIDelete($aboutgui) ; If it was this GUI - we just delete the GUI <<<<<<<<<<<<<<<
GuiSetState(@SW_ENABLE, $maingui)
GuiSetState(@SW_SHOWDEFAULT, $maingui)
Case $maingui
_SQLite_Close($hDskDb)
_SQLite_Shutdown()
Exit ; If it was this GUI - we exit <<<<<<<<<<<<<<<
EndSwitch
EndFunc ;==>On_Close
#endregion ### END Koda GUI section ###############################################################################################################
#region ### Auxiliary functions ###############################################################################################################
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
If Not FileExists($iniloc) Then
_FileCreate($iniloc)
EndIf
While 1
Sleep(1000)
setname()
WEnd
Func setproc()
NewLoc("0644975226", "45", "Orange", "80", "148°52*22.41", "145°20*58.86", "400", 11, "49")
EndFunc
Func NewLoc($tracker, $batt, $oper, $level, $lat, $lon, $hei="0", $speed="0", $north="0")
$city=Callback($lat, $lon)
DBNewRecord($tracker, $batt, $oper, $level, $lat, $lon, $hei, $speed, $north, $city)
Display($tracker, $batt, $oper, $level, $lat, $lon, $hei, $speed, $north, $city)
EndFunc
Func DBNewRecord($tracker, $batt, $oper, $level, $lat, $lon, $hei="0", $speed="0", $north="0", $city="(NULL)")
_SQLite_Exec($hDskDb, "INSERT INTO data(tracker,lat,lon,hei,speed,north,city) VALUES ('" & $tracker & "','" & $lat & "','" & $lon & "','" & $hei & "','" & $speed & "','" & $north & "','" & $city & "');") ; INSERT Data
_SQLite_Exec($hDskDb, "INSERT INTO telex(number,batt,oper,level) VALUES ('" & $tracker & "','" & $batt & "','" & $oper & "','" & $level & "');") ; INSERT Data
EndFunc
Func Display($tracker, $batt, $oper, $level, $lat, $lon, $hei, $speed, $north, $city="VIDE")
Local $corlat = StringReplace($lat, "*", "'")
Local $corlon = StringReplace($lon, "*", "'")
Local $ourlat
Local $ourlon
Local $ourcoord = $corlat & "," & $corlon
_GUICtrlGoogleMap_AddMarker($gmap, $ourcoord)
Switch $speed
Case $speed < 10
$ourspeed = $speed & " "
Case $speed > 10 AND $speed < 100
$ourspeed = $speed & " "
Case $speed > 100
$ourspeed = $speed
EndSwitch
Switch $corlat
Case StringLen($corlat) < 10
$ourlat = $corlat & " "
Case StringLen($corlat) > 10 AND $corlat < 100
$ourlat = $corlat & " "
Case StringLen($corlat) > 100
$ourlat = $corlat
Case StringLen($corlat) = 10
$ourlat = $corlat & " "
EndSwitch
Switch $corlon
Case StringLen($corlon) < 10
$ourlon = $corlon & " "
Case StringLen($corlon) = 10
$ourlon = $corlon
Case StringLen($corlon) > 1 AND $corlon < 100
$ourlon = $corlon & " "
Case StringLen($corlon) > 100
$ourlon = $corlon
EndSwitch
GUICtrlSetData($List, $ourspeed & $ourlat & $ourlon & $city)
EndFunc
Func Callback($lat, $lon)
;~ Callback : Sur quelle commune suis-je ?
Return "St-Foy-Lès-Lyon"
EndFunc
Func setname()
If $proclink <> "" Then
$mgtnew = "Localisation des balises : " & $procname & " [" & $proclink & "]" & " - LISBON " & $service; (1)
WinSetTitle($maingui, "", $mgtnew) ; (2)
EndIf
EndFunc
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
#endregion ### Auxiliary functions ###############################################################################################################
#region ### save/new functions ###############################################################################################################
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
Func fmnew()
;~ $filename=FileSaveDialog("Nouveau", $dataloc, "Fichier LISBON" & ' (*.lb1)', '', $newproc & '.lb1')
If Not $hDskDb <> "" Then _SQLite_Close($hDskDb)
$procname = InputBox("Nouvelle procédure", "Nom de procédure")
$newfilename=$dataloc & $newproc & $procname & ".lb1"
Global $hDskDb = _SQLite_Open($newfilename) ; Open a permanent disk database
_SQLite_Exec(-1, "CREATE TABLE info (name,crdate,mddate,creator);") ; CREATE info table
_SQLite_Exec(-1, "CREATE TABLE trackers (number,name);") ; CREATE data table
_SQLite_Exec(-1, "CREATE TABLE data (tracker,lat,lon,hei,speed,north,city);") ; CREATE data table
_SQLite_Exec(-1, "CREATE TABLE telex (number,batt,oper,level);") ; CREATE data table
_SQLite_Exec(-1, "INSERT INTO info(name,crdate,mddate,creator) VALUES ('" & $procname & "','" & $newproc & "','" & $newproc & "','" & @UserName & "');") ; INSERT Data
FileCopy($newfilename, @TempDir & "\LISBON\" & $newproc & $procname & ".lb1")
If @error Then
MsgBox(16, "Erreur SQLite", "Impossible de créer la base de donnée !")
EndIf
$proclink=$newfilename
EndFunc
Func fmopen()
$proclink = FileOpenDialog("Ouvrir procédure", $dataloc, $filter)
Global $hDskDb = _SQLite_Open($proclink)
EndFunc
Func fmsave()
MsgBox(32, "Enregistrement", "Fichier enregistré dans " & $proclink)
EndFunc
Func fmekml()
EndFunc
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
;==============================================================================================================================================
#endregion ### save/new functions ###############################################################################################################
► Afficher le texte
#include-once
#include <GUIConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <IE.au3>
#Region Header
#cs
Title: Google Maps UDF Library for AutoIt3
Filename: Google Maps.au3
Description: A collection of functions for creating and controlling a Google Maps control in AutoIT
Author: seangriffin
Version: V0.4
Last Update: 10/06/10
Requirements: AutoIt3 3.2 or higher
Changelog:
---------10/06/10---------- v0.4
Updated the function "_GUICtrlGoogleMap_Create" to add Javascript for calculating
directions. Also had to split $html, because it's definition was too large
causing a runtime error.
Changed the Main GUI of the example to include tabs.
Added a Directions tab in the example, with many Directions related controls.
Added the functions "_GUICtrlGoogleMap_AddRoute" and "_GUICtrlGoogleMap_GetRoute".
---------08/06/10---------- v0.3
Improved performance in "_GUICtrlGoogleMap_Create" by moving
'document.body.scroll = "no"' to the html onload event, and removing
_IELoadWait.
Added 4 new parameters ($map_type, $navigation_style, $scale_style, $map_type_style)
to "_GUICtrlGoogleMap_Create" for initializing map type and map controls.
Added the function "_GUICtrlGoogleMap_SetMapType" for changing map type.
Added a "Hide Map" checkbox to the example, to demonstrate the use of $gmap_ctrl.
Changed the $hide_markers_button and $show_markers_button controls in the
example to a checkbox.
---------08/06/10---------- v0.2
Added the function "_GUICtrlGoogleEarth_Create".
---------06/06/10---------- v0.1
Initial release.
#ce
#EndRegion Header
#Region Global Variables and Constants
Dim $gmap
#EndRegion Global Variables and Constants
#Region Core functions
; #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.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_GetLatLng($address)
Local $latlng[2]
$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
$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)
$latlng[0] = $geocode_line[_ArraySearch($geocode_line, """lat"" :", 0, 0, 1, 1)]
$latlng[0] = StringStripWS(StringReplace(StringReplace($latlng[0], """lat"" :", ""), ",", ""), 3)
$latlng[1] = $geocode_line[_ArraySearch($geocode_line, """lng"" :", 0, 0, 1, 1)]
$latlng[1] = StringStripWS(StringReplace(StringReplace($latlng[1], """lng"" :", ""), ",", ""), 3)
EndIf
Return $latlng
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_Create()
; Description ...: Creates a Google Map control.
; Syntax.........: _GUICtrlGoogleMap_Create(ByRef $gmap, $left, $top, $width, $height, $address, $zoom = 8, $marker = True, $map_type = 0, $navigation_style = 0, $scale_style = 0, $map_type_style = 0)
; 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 - A boolean indicating whether a marker should be created for the above address.
; $map_type - 0 = Sets the map type to roadmap
; 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
; $scale_style - 0 = Disable the Scale control
; 1 = Enable the Scale control
; $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
; Return values .: On Success - Returns the identifier (controlID) of the new control.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......: This function must be used before any other function in the UDF is used.
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_Create(ByRef $gmap, $left, $top, $width, $height, $address, $zoom = 8, $marker = True, $map_type = 0, $navigation_style = 0, $scale_style = 0, $map_type_style = 0)
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 $navigation_style_html[5] = [ _
"", _
"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 $scale_style_html[2] = [ _
"", _
"scaleControl: true, "]
local Const $map_type_style_html[4] = [ _
"", _
"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 $latlng[2]
$latlng = _GUICtrlGoogleMap_GetLatLng($address)
Local Const $html1 = _
"<html>" & @CRLF & _
"<head>" & @CRLF & _
"<meta name=""viewport"" content=""initial-scale=1.0, user-scalable=no"" />" & @CRLF & _
"<meta http-equiv=""content-type"" content=""text/html; charset=UTF-8""/>" & @CRLF & _
"<script type=""text/javascript"" src=""http://maps.google.com/maps/api/js?sens ... "></script>" & @CRLF & _
"<script type=""text/javascript"">" & @CRLF & _
" var directionDisplay;" & @CRLF & _
" var directionsService = new google.maps.DirectionsService();" & @CRLF & _
" var map;" & @CRLF & _
" var markersArray = [];" & @CRLF & _
" function initialize() {" & @CRLF & _
" document.body.scroll = ""no"";" & @CRLF & _
" directionsDisplay = new google.maps.DirectionsRenderer();" & @CRLF & _
" var latlng = new google.maps.LatLng(" & $latlng[0] & "," & $latlng[1] & ");" & @CRLF & _
" var myOptions = {" & @CRLF & _
" zoom: " & $zoom & "," & @CRLF & _
" center: latlng," & @CRLF & _
" disableDefaultUI: true," & @CRLF & _
$navigation_style_html[$navigation_style] & @CRLF & _
$scale_style_html[$scale_style] & @CRLF & _
$map_type_style_html[$map_type_style] & @CRLF & _
$map_type_html[$map_type] & @CRLF & _
" };" & @CRLF & _
" map = new google.maps.Map(document.getElementById(""map_canvas""), myOptions);" & @CRLF & _
" directionsDisplay.setMap(map);" & @CRLF & _
" if (" & StringLower($marker) & ") {" & @CRLF & _
" addMarker(" & $latlng[0] & "," & $latlng[1] & ");" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" function calcRoute(start, end, travel_mode_num, action) {" & @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 & _
" travelMode: travel_mode[travel_mode_num]" & @CRLF & _
" };" & @CRLF & _
" var myout = """";" & @CRLF & _
" directionsService.route(request, function(result, status) {" & @CRLF & _
" if (status == google.maps.DirectionsStatus.OK) {" & @CRLF & _
" if (action == 0) {" & @CRLF & _
" directionsDisplay.setDirections(result);" & @CRLF & _
" } else {" & @CRLF & _
" var myRoute = result.routes[0].legs[0];" & @CRLF & _
" myout = myRoute.distance.value + ""~"" + myRoute.duration.value + '\n';" & @CRLF & _
" for (var i = 0; i < myRoute.steps.length; i++) {" & @CRLF & _
" myout = myout + myRoute.steps.instructions + ""~"" + myRoute.steps.distance.value + ""~"" + myRoute.steps.duration.value + '\n'" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" });" & @CRLF & _
" return myout;" & @CRLF & _
" }" & @CRLF
Local Const $html2 = _
" 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.setMap(null);" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" function showMarkers() {" & @CRLF & _
" if (markersArray) {" & @CRLF & _
" for (i in markersArray) {" & @CRLF & _
" markersArray.setMap(map);" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" function deleteMarkers() {" & @CRLF & _
" if (markersArray) {" & @CRLF & _
" for (i in markersArray) {" & @CRLF & _
" markersArray.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.getPosition());" & @CRLF & _
" }" & @CRLF & _
" map.fitBounds(latlngbounds);" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" function move_map(lat, lng) {" & @CRLF & _
" var latlng = new google.maps.LatLng(lat, lng);" & @CRLF & _
" map.setCenter(latlng);" & @CRLF & _
" }" & @CRLF & _
" function zoom_map(scale) {" & @CRLF & _
" map.setZoom(scale);" & @CRLF & _
" }" & @CRLF & _
"</script>" & @CRLF & _
"</head>" & @CRLF & _
"<body style=""margin:0px; padding:0px;"" onload=""initialize()"">" & @CRLF & _
"<div id=""map_canvas"" style=""width:100%; height:100%""></div>" & @CRLF & _
"</body>" & @CRLF & _
"</html>"
#cs
" function addvat() {" & @CRLF & _
" var gert = [""5"",""4""];" & @CRLF & _
" var dude;" & @CRLF & _
" dude = gert[0];" & @CRLF & _
" return dude;" & @CRLF & _
" }" & @CRLF & _
#ce
dim $html = $html1 & $html2
;ConsoleWrite($html)
;Exit
$gmap = _IECreateEmbedded ()
$gmap_ctrl = GUICtrlCreateObj($gmap, $left, $top, $width, $height)
_IENavigate($gmap, "about:blank")
_IEDocWriteHTML($gmap, $html)
$gmap.refresh()
Return $gmap_ctrl
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_SetView()
; Description ...: Sets the center of a Google Map to a new address.
; Syntax.........: _GUICtrlGoogleMap_SetView($gmap, $address)
; 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.
; Return values .: On Success - Returns True.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_SetView($gmap, $address)
Local $latlng[2]
$latlng = _GUICtrlGoogleMap_GetLatLng($address)
$gmap.document.parentWindow.execScript("move_map(" & $latlng[0] & "," & $latlng[1] & ");")
Return True
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_ZoomView()
; Description ...: Zooms the center of a Google Map to a new scale.
; Syntax.........: _GUICtrlGoogleMap_ZoomView($gmap, $scale)
; Parameters ....: $gmap - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; $scale - The level/scale to zoom the view to.
; Return values .: On Success - Returns True.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_ZoomView($gmap, $scale)
$gmap.document.parentWindow.execScript("zoom_map(" & $scale & ");")
Return True
EndFunc
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
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
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_HideAllMarkers($gmap)
$gmap.document.parentWindow.execScript("clearMarkers();")
Return True
EndFunc
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_ShowAllMarkers($gmap)
$gmap.document.parentWindow.execScript("showMarkers();")
Return True
EndFunc
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_DeleteAllMarkers($gmap)
$gmap.document.parentWindow.execScript("deleteMarkers();")
Return True
EndFunc
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_ViewAllMarkers($gmap)
$gmap.document.parentWindow.execScript("viewMarkers();")
Return True
EndFunc
; #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 roadmap
; 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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
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
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_AddRoute()
; Description ...: Adds a route (visually) to the map.
; Syntax.........: _GUICtrlGoogleMap_AddRoute($gmap, $start_location, $end_location, $travel_mode = 0)
; 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
; Return values .: On Success - Returns True.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_AddRoute($gmap, $start_location, $end_location, $travel_mode = 0)
$gmap.document.parentWindow.eval("calcRoute(""" & $start_location & """, """ & $end_location & """, " & $travel_mode & ", 0);")
Return True
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_GetRoute()
; Description ...: Gets directions for a route.
; Syntax.........: _GUICtrlGoogleMap_GetRoute($gmap, $start_location, $end_location, ByRef $distance, ByRef $duration, $travel_mode = 0)
; 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").
; $distance - The variable to hold the overall distance of the route.
; $duration - The variable to hold the overall duration of the route.
; $travel_mode - 0 = Uses a travel mode of DRIVING
; 1 = Uses a travel mode of WALKING
; 2 = Uses a travel mode of BICYCLING
; Return values .: On Success - Returns True.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_GetRoute($gmap, $start_location, $end_location, ByRef $distance, ByRef $duration, $travel_mode = 0)
Local $route_str, $step[1][3]
$distance = ""
$duration = ""
; Loop twice because sometimes it takes two calls to get route directions. I don't know why.
for $i = 1 to 2
$route_str = $gmap.document.parentWindow.eval("calcRoute(""" & $start_location & """, """ & $end_location & """, " & $travel_mode & ", 1);")
$route_str = StringStripWS($route_str, 2)
$route_arr = StringSplit($route_str, @LF, 1)
if $route_arr[0] > 1 Then ExitLoop
Sleep(250)
Next
; If no directions retrieved, then fail.
if $route_arr[0] = 1 Then Return -1
_ArrayDelete($route_arr, 0)
$leg = StringSplit($route_arr[0], "~", 1)
$distance = $leg[1]
$duration = $leg[2]
_ArrayDelete($route_arr, 0)
dim $step[UBound($route_arr)][3]
for $i = 0 to (UBound($route_arr) - 1)
$step_part = StringSplit($route_arr[$i], "~", 1)
$step[$i][0] = $step_part[1]
$step[$i][1] = $step_part[2]
$step[$i][2] = $step_part[3]
Next
Return $step
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleEarth_Create()
; Description ...: Creates a Google Map control.
; Syntax.........: _GUICtrlGoogleEarth_Create(ByRef $ge, $gmap_api_key, $left, $top, $width, $height, $address, $zoom = 10000, $fly_to_speed = "ge.SPEED_TELEPORT")
; Parameters ....: $ge - The embedded Google Earth object, required by the _GUICtrlGoogleEarth functions below.
; $gmap_api_key - A valid Google Maps API key (see Remarks 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 (in meters).
; $fly_to_speed - The speed to move to the above address.
; The range is 0.0 to 5.0.
; Using "ge.SPEED_TELEPORT" will move instantly.
; Return values .: On Success - Returns the identifier (controlID) of the new control.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......: The Google Earth Plug-in must be installed in your Internet Explorer browser
; prior to using this function. To install the plugin, using
; Internet Explorer visit "http://code.google.com/apis/earth" and follow
; the instructions provided.
;
; A Google Maps API key is also required for this function to work.
; You must obtain your own personal key from Google, and pass it into this
; function for it to work. To obtain a key, visit
; "http://code.google.com/apis/maps/signup.html", and when prompted for
; your web site URL, supply the URL of "http://localhost". You will
; also be asked to sign in with your Google Account details.
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleEarth_Create(ByRef $ge, $gmap_api_key, $left, $top, $width, $height, $address, $zoom = 10000, $fly_to_speed = "ge.SPEED_TELEPORT")
Local $latlng[2]
$latlng = _GUICtrlGoogleMap_GetLatLng($address)
Local Const $html = _
"<html>" & @CRLF & _
"<head>" & @CRLF & _
" <title>Sample</title>" & @CRLF & _
" <script src=""http://www.google.com/jsapi?key=" & $gmap_api_key & """> </script>" & @CRLF & _
" <script type=""text/javascript"">" & @CRLF & _
" var ge;" & @CRLF & _
" google.load(""earth"", ""1"");" & @CRLF & _
" function init() {" & @CRLF & _
" google.earth.createInstance('map3d', initCB, failureCB);" & @CRLF & _
" }" & @CRLF & _
" function initCB(instance) {" & @CRLF & _
" ge = instance;" & @CRLF & _
" ge.getWindow().setVisibility(true);" & @CRLF & _
" ge.getOptions().setFlyToSpeed(" & $fly_to_speed & ");" & @CRLF & _
" var lookAt = ge.getView().copyAsLookAt(ge.ALTITUDE_RELATIVE_TO_GROUND);" & @CRLF & _
" lookAt.setLatitude(" & $latlng[0] & ");" & @CRLF & _
" lookAt.setLongitude(" & $latlng[1] & ");" & @CRLF & _
" lookAt.setRange(" & $zoom & ");" & @CRLF & _
" ge.getView().setAbstractView(lookAt);" & @CRLF & _
" }" & @CRLF & _
" function failureCB(errorCode) {" & @CRLF & _
" }" & @CRLF & _
" google.setOnLoadCallback(init);" & @CRLF & _
" </script>" & @CRLF & _
"</head>" & @CRLF & _
"<body style=""margin:0px; padding:0px;"">" & @CRLF & _
" <div id=""map3d"" style=""width:100%; height:100%""></div>" & @CRLF & _
"</body>" & @CRLF & _
"</html>"
$ge = _IECreateEmbedded ()
$ge_ctrl = GUICtrlCreateObj($ge, $left, $top, $width, $height)
_IENavigate($ge, "about:blank")
_IEDocWriteHTML($ge, $html)
$ge.refresh()
_IELoadWait($ge)
$ge.document.body.scroll = "no"
Return $ge_ctrl
EndFunc
#include <GUIConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <IE.au3>
#Region Header
#cs
Title: Google Maps UDF Library for AutoIt3
Filename: Google Maps.au3
Description: A collection of functions for creating and controlling a Google Maps control in AutoIT
Author: seangriffin
Version: V0.4
Last Update: 10/06/10
Requirements: AutoIt3 3.2 or higher
Changelog:
---------10/06/10---------- v0.4
Updated the function "_GUICtrlGoogleMap_Create" to add Javascript for calculating
directions. Also had to split $html, because it's definition was too large
causing a runtime error.
Changed the Main GUI of the example to include tabs.
Added a Directions tab in the example, with many Directions related controls.
Added the functions "_GUICtrlGoogleMap_AddRoute" and "_GUICtrlGoogleMap_GetRoute".
---------08/06/10---------- v0.3
Improved performance in "_GUICtrlGoogleMap_Create" by moving
'document.body.scroll = "no"' to the html onload event, and removing
_IELoadWait.
Added 4 new parameters ($map_type, $navigation_style, $scale_style, $map_type_style)
to "_GUICtrlGoogleMap_Create" for initializing map type and map controls.
Added the function "_GUICtrlGoogleMap_SetMapType" for changing map type.
Added a "Hide Map" checkbox to the example, to demonstrate the use of $gmap_ctrl.
Changed the $hide_markers_button and $show_markers_button controls in the
example to a checkbox.
---------08/06/10---------- v0.2
Added the function "_GUICtrlGoogleEarth_Create".
---------06/06/10---------- v0.1
Initial release.
#ce
#EndRegion Header
#Region Global Variables and Constants
Dim $gmap
#EndRegion Global Variables and Constants
#Region Core functions
; #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.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_GetLatLng($address)
Local $latlng[2]
$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
$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)
$latlng[0] = $geocode_line[_ArraySearch($geocode_line, """lat"" :", 0, 0, 1, 1)]
$latlng[0] = StringStripWS(StringReplace(StringReplace($latlng[0], """lat"" :", ""), ",", ""), 3)
$latlng[1] = $geocode_line[_ArraySearch($geocode_line, """lng"" :", 0, 0, 1, 1)]
$latlng[1] = StringStripWS(StringReplace(StringReplace($latlng[1], """lng"" :", ""), ",", ""), 3)
EndIf
Return $latlng
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_Create()
; Description ...: Creates a Google Map control.
; Syntax.........: _GUICtrlGoogleMap_Create(ByRef $gmap, $left, $top, $width, $height, $address, $zoom = 8, $marker = True, $map_type = 0, $navigation_style = 0, $scale_style = 0, $map_type_style = 0)
; 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 - A boolean indicating whether a marker should be created for the above address.
; $map_type - 0 = Sets the map type to roadmap
; 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
; $scale_style - 0 = Disable the Scale control
; 1 = Enable the Scale control
; $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
; Return values .: On Success - Returns the identifier (controlID) of the new control.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......: This function must be used before any other function in the UDF is used.
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_Create(ByRef $gmap, $left, $top, $width, $height, $address, $zoom = 8, $marker = True, $map_type = 0, $navigation_style = 0, $scale_style = 0, $map_type_style = 0)
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 $navigation_style_html[5] = [ _
"", _
"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 $scale_style_html[2] = [ _
"", _
"scaleControl: true, "]
local Const $map_type_style_html[4] = [ _
"", _
"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 $latlng[2]
$latlng = _GUICtrlGoogleMap_GetLatLng($address)
Local Const $html1 = _
"<html>" & @CRLF & _
"<head>" & @CRLF & _
"<meta name=""viewport"" content=""initial-scale=1.0, user-scalable=no"" />" & @CRLF & _
"<meta http-equiv=""content-type"" content=""text/html; charset=UTF-8""/>" & @CRLF & _
"<script type=""text/javascript"" src=""http://maps.google.com/maps/api/js?sens ... "></script>" & @CRLF & _
"<script type=""text/javascript"">" & @CRLF & _
" var directionDisplay;" & @CRLF & _
" var directionsService = new google.maps.DirectionsService();" & @CRLF & _
" var map;" & @CRLF & _
" var markersArray = [];" & @CRLF & _
" function initialize() {" & @CRLF & _
" document.body.scroll = ""no"";" & @CRLF & _
" directionsDisplay = new google.maps.DirectionsRenderer();" & @CRLF & _
" var latlng = new google.maps.LatLng(" & $latlng[0] & "," & $latlng[1] & ");" & @CRLF & _
" var myOptions = {" & @CRLF & _
" zoom: " & $zoom & "," & @CRLF & _
" center: latlng," & @CRLF & _
" disableDefaultUI: true," & @CRLF & _
$navigation_style_html[$navigation_style] & @CRLF & _
$scale_style_html[$scale_style] & @CRLF & _
$map_type_style_html[$map_type_style] & @CRLF & _
$map_type_html[$map_type] & @CRLF & _
" };" & @CRLF & _
" map = new google.maps.Map(document.getElementById(""map_canvas""), myOptions);" & @CRLF & _
" directionsDisplay.setMap(map);" & @CRLF & _
" if (" & StringLower($marker) & ") {" & @CRLF & _
" addMarker(" & $latlng[0] & "," & $latlng[1] & ");" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" function calcRoute(start, end, travel_mode_num, action) {" & @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 & _
" travelMode: travel_mode[travel_mode_num]" & @CRLF & _
" };" & @CRLF & _
" var myout = """";" & @CRLF & _
" directionsService.route(request, function(result, status) {" & @CRLF & _
" if (status == google.maps.DirectionsStatus.OK) {" & @CRLF & _
" if (action == 0) {" & @CRLF & _
" directionsDisplay.setDirections(result);" & @CRLF & _
" } else {" & @CRLF & _
" var myRoute = result.routes[0].legs[0];" & @CRLF & _
" myout = myRoute.distance.value + ""~"" + myRoute.duration.value + '\n';" & @CRLF & _
" for (var i = 0; i < myRoute.steps.length; i++) {" & @CRLF & _
" myout = myout + myRoute.steps.instructions + ""~"" + myRoute.steps.distance.value + ""~"" + myRoute.steps.duration.value + '\n'" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" });" & @CRLF & _
" return myout;" & @CRLF & _
" }" & @CRLF
Local Const $html2 = _
" 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.setMap(null);" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" function showMarkers() {" & @CRLF & _
" if (markersArray) {" & @CRLF & _
" for (i in markersArray) {" & @CRLF & _
" markersArray.setMap(map);" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" function deleteMarkers() {" & @CRLF & _
" if (markersArray) {" & @CRLF & _
" for (i in markersArray) {" & @CRLF & _
" markersArray.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.getPosition());" & @CRLF & _
" }" & @CRLF & _
" map.fitBounds(latlngbounds);" & @CRLF & _
" }" & @CRLF & _
" }" & @CRLF & _
" function move_map(lat, lng) {" & @CRLF & _
" var latlng = new google.maps.LatLng(lat, lng);" & @CRLF & _
" map.setCenter(latlng);" & @CRLF & _
" }" & @CRLF & _
" function zoom_map(scale) {" & @CRLF & _
" map.setZoom(scale);" & @CRLF & _
" }" & @CRLF & _
"</script>" & @CRLF & _
"</head>" & @CRLF & _
"<body style=""margin:0px; padding:0px;"" onload=""initialize()"">" & @CRLF & _
"<div id=""map_canvas"" style=""width:100%; height:100%""></div>" & @CRLF & _
"</body>" & @CRLF & _
"</html>"
#cs
" function addvat() {" & @CRLF & _
" var gert = [""5"",""4""];" & @CRLF & _
" var dude;" & @CRLF & _
" dude = gert[0];" & @CRLF & _
" return dude;" & @CRLF & _
" }" & @CRLF & _
#ce
dim $html = $html1 & $html2
;ConsoleWrite($html)
;Exit
$gmap = _IECreateEmbedded ()
$gmap_ctrl = GUICtrlCreateObj($gmap, $left, $top, $width, $height)
_IENavigate($gmap, "about:blank")
_IEDocWriteHTML($gmap, $html)
$gmap.refresh()
Return $gmap_ctrl
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_SetView()
; Description ...: Sets the center of a Google Map to a new address.
; Syntax.........: _GUICtrlGoogleMap_SetView($gmap, $address)
; 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.
; Return values .: On Success - Returns True.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_SetView($gmap, $address)
Local $latlng[2]
$latlng = _GUICtrlGoogleMap_GetLatLng($address)
$gmap.document.parentWindow.execScript("move_map(" & $latlng[0] & "," & $latlng[1] & ");")
Return True
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_ZoomView()
; Description ...: Zooms the center of a Google Map to a new scale.
; Syntax.........: _GUICtrlGoogleMap_ZoomView($gmap, $scale)
; Parameters ....: $gmap - The Google Map object from the function "_GUICtrlGoogleMap_Create".
; $scale - The level/scale to zoom the view to.
; Return values .: On Success - Returns True.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_ZoomView($gmap, $scale)
$gmap.document.parentWindow.execScript("zoom_map(" & $scale & ");")
Return True
EndFunc
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
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
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_HideAllMarkers($gmap)
$gmap.document.parentWindow.execScript("clearMarkers();")
Return True
EndFunc
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_ShowAllMarkers($gmap)
$gmap.document.parentWindow.execScript("showMarkers();")
Return True
EndFunc
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_DeleteAllMarkers($gmap)
$gmap.document.parentWindow.execScript("deleteMarkers();")
Return True
EndFunc
; #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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_ViewAllMarkers($gmap)
$gmap.document.parentWindow.execScript("viewMarkers();")
Return True
EndFunc
; #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 roadmap
; 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 ..........:
; Example .......: Yes
;
; ;==========================================================================================
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
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_AddRoute()
; Description ...: Adds a route (visually) to the map.
; Syntax.........: _GUICtrlGoogleMap_AddRoute($gmap, $start_location, $end_location, $travel_mode = 0)
; 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
; Return values .: On Success - Returns True.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_AddRoute($gmap, $start_location, $end_location, $travel_mode = 0)
$gmap.document.parentWindow.eval("calcRoute(""" & $start_location & """, """ & $end_location & """, " & $travel_mode & ", 0);")
Return True
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleMap_GetRoute()
; Description ...: Gets directions for a route.
; Syntax.........: _GUICtrlGoogleMap_GetRoute($gmap, $start_location, $end_location, ByRef $distance, ByRef $duration, $travel_mode = 0)
; 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").
; $distance - The variable to hold the overall distance of the route.
; $duration - The variable to hold the overall duration of the route.
; $travel_mode - 0 = Uses a travel mode of DRIVING
; 1 = Uses a travel mode of WALKING
; 2 = Uses a travel mode of BICYCLING
; Return values .: On Success - Returns True.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleMap_GetRoute($gmap, $start_location, $end_location, ByRef $distance, ByRef $duration, $travel_mode = 0)
Local $route_str, $step[1][3]
$distance = ""
$duration = ""
; Loop twice because sometimes it takes two calls to get route directions. I don't know why.
for $i = 1 to 2
$route_str = $gmap.document.parentWindow.eval("calcRoute(""" & $start_location & """, """ & $end_location & """, " & $travel_mode & ", 1);")
$route_str = StringStripWS($route_str, 2)
$route_arr = StringSplit($route_str, @LF, 1)
if $route_arr[0] > 1 Then ExitLoop
Sleep(250)
Next
; If no directions retrieved, then fail.
if $route_arr[0] = 1 Then Return -1
_ArrayDelete($route_arr, 0)
$leg = StringSplit($route_arr[0], "~", 1)
$distance = $leg[1]
$duration = $leg[2]
_ArrayDelete($route_arr, 0)
dim $step[UBound($route_arr)][3]
for $i = 0 to (UBound($route_arr) - 1)
$step_part = StringSplit($route_arr[$i], "~", 1)
$step[$i][0] = $step_part[1]
$step[$i][1] = $step_part[2]
$step[$i][2] = $step_part[3]
Next
Return $step
EndFunc
; #FUNCTION# ;===============================================================================
;
; Name...........: _GUICtrlGoogleEarth_Create()
; Description ...: Creates a Google Map control.
; Syntax.........: _GUICtrlGoogleEarth_Create(ByRef $ge, $gmap_api_key, $left, $top, $width, $height, $address, $zoom = 10000, $fly_to_speed = "ge.SPEED_TELEPORT")
; Parameters ....: $ge - The embedded Google Earth object, required by the _GUICtrlGoogleEarth functions below.
; $gmap_api_key - A valid Google Maps API key (see Remarks 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 (in meters).
; $fly_to_speed - The speed to move to the above address.
; The range is 0.0 to 5.0.
; Using "ge.SPEED_TELEPORT" will move instantly.
; Return values .: On Success - Returns the identifier (controlID) of the new control.
; On Failure - Returns False.
; Author ........: seangriffin
; Modified.......:
; Remarks .......: The Google Earth Plug-in must be installed in your Internet Explorer browser
; prior to using this function. To install the plugin, using
; Internet Explorer visit "http://code.google.com/apis/earth" and follow
; the instructions provided.
;
; A Google Maps API key is also required for this function to work.
; You must obtain your own personal key from Google, and pass it into this
; function for it to work. To obtain a key, visit
; "http://code.google.com/apis/maps/signup.html", and when prompted for
; your web site URL, supply the URL of "http://localhost". You will
; also be asked to sign in with your Google Account details.
; Related .......:
; Link ..........:
; Example .......: Yes
;
; ;==========================================================================================
func _GUICtrlGoogleEarth_Create(ByRef $ge, $gmap_api_key, $left, $top, $width, $height, $address, $zoom = 10000, $fly_to_speed = "ge.SPEED_TELEPORT")
Local $latlng[2]
$latlng = _GUICtrlGoogleMap_GetLatLng($address)
Local Const $html = _
"<html>" & @CRLF & _
"<head>" & @CRLF & _
" <title>Sample</title>" & @CRLF & _
" <script src=""http://www.google.com/jsapi?key=" & $gmap_api_key & """> </script>" & @CRLF & _
" <script type=""text/javascript"">" & @CRLF & _
" var ge;" & @CRLF & _
" google.load(""earth"", ""1"");" & @CRLF & _
" function init() {" & @CRLF & _
" google.earth.createInstance('map3d', initCB, failureCB);" & @CRLF & _
" }" & @CRLF & _
" function initCB(instance) {" & @CRLF & _
" ge = instance;" & @CRLF & _
" ge.getWindow().setVisibility(true);" & @CRLF & _
" ge.getOptions().setFlyToSpeed(" & $fly_to_speed & ");" & @CRLF & _
" var lookAt = ge.getView().copyAsLookAt(ge.ALTITUDE_RELATIVE_TO_GROUND);" & @CRLF & _
" lookAt.setLatitude(" & $latlng[0] & ");" & @CRLF & _
" lookAt.setLongitude(" & $latlng[1] & ");" & @CRLF & _
" lookAt.setRange(" & $zoom & ");" & @CRLF & _
" ge.getView().setAbstractView(lookAt);" & @CRLF & _
" }" & @CRLF & _
" function failureCB(errorCode) {" & @CRLF & _
" }" & @CRLF & _
" google.setOnLoadCallback(init);" & @CRLF & _
" </script>" & @CRLF & _
"</head>" & @CRLF & _
"<body style=""margin:0px; padding:0px;"">" & @CRLF & _
" <div id=""map3d"" style=""width:100%; height:100%""></div>" & @CRLF & _
"</body>" & @CRLF & _
"</html>"
$ge = _IECreateEmbedded ()
$ge_ctrl = GUICtrlCreateObj($ge, $left, $top, $width, $height)
_IENavigate($ge, "about:blank")
_IEDocWriteHTML($ge, $html)
$ge.refresh()
_IELoadWait($ge)
$ge.document.body.scroll = "no"
Return $ge_ctrl
EndFunc
J'ai vraiment aucune idée de l'origine de l'erreur...
Merci d'avance !
- ou presque : j'ai rétrogradé ma version d'AutoIT, j'étais en v3.XXXX bêta 
) :
