Get latitude and longitude from map

[Tomy46]

Hello everyone, 

 

I need again your talents!

I'm making a software for my DB customers. Being in a geographical area or addresses are not accurate enough to be displayed on a map, I need to identify the homes of customers with their latitude and longitude.

For display map, I use Google Map UDF by Seangriffin ...

I can't find a solution for extract the geographic coordinates of homes when I'm "pointing" on the map,  ...

I'm open to any ideas / suggestions even if it has to go through a system other than google map ...

 

thank you

 

 

PS: I thought I read that The Google Latitude API allowed to do that, but it has been closed since August 2013 ... so we need another solution / idea ...

[Celtic88]

Opt("GUIOnEventMode", 1)
$oIE = ObjCreate("Shell.Explorer.2")
GUICreate("IP Location Finder", 800, 635, -1, -1, 0x00080000)
GUISetOnEvent(-3, "__Exit")
$Input1 = GUICtrlCreateInput("", 24, 556, 225, 33)
GUICtrlSetFont(-1, 16, 800, 0, "Tahoma")
$Button1 = GUICtrlCreateButton("Track IP....", 264, 555, 142, 33)
GUICtrlSetFont(-1, 12, 800, 0, "Tahoma")
GUICtrlSetOnEvent(-1, "__GO")
GUICtrlCreateObj($oIE, -388, -104, 800 + 388, 540 + 104)
GUISetState()
$oIE.navigate("https://maps.google.com/maps?q=ALGERIA&t=k&z=2&lci=com.panoramio.all,com.youtube.all,weather")

Do
    Sleep(9999999)
Until False

Func __GEOIP($IP)
    If $IP <> Chr(0) Then $IP = "&ip=" & $IP
    Local $KEY = "c4a3709f003e93dbd29d3828281707de2105f80a506db06e032bad7d8dfdf1ce"
    Local $GETINFO = StringSplit(BinaryToString(InetRead("http://api.ipinfodb.com/v3/ip-city/?key=" & $KEY & $IP & "&format=json", 1)), Chr(34))
    If @error Then Return $GETINFO
    Local $INFO = $GETINFO[20] & "+" & $GETINFO[24] & "+" & $GETINFO[28] & "+" & $GETINFO[36] & "+" & $GETINFO[40]
    Return $INFO
EndFunc   ;==>__GEOIP

Func __GO()
    Local $READIP = GUICtrlRead($Input1)
    $oIE.navigate("http://maps.google.fr/maps?q=" & __GEOIP($READIP) & "&iwloc=A&t=h&z=5")
EndFunc   ;==>__GO

Func __Exit()
    Exit
EndFunc   ;==>__Exit

[Celtic88]

or use this func

MsgBox(0, '', __GEOIP())


Func __GEOIP()
    Local $GETINFO = BinaryToString(InetRead("http://j.maxmind.com/app/geoip.js", 1))
    If @error Then Return
    Return $GETINFO
EndFunc   ;==>__GEOIP

[Tomy46]

Mmmmm ...

This feature allows me to locate from an IP but does not give me the coordinates from a single "pointing" (with left click) on the map ...

I already know where the houses are, but I want to extract the latitude and longitude of it, from a single click on the map.

Any idea?

[Tomy46]

Solution on the French topic: http://www.autoitscript.fr/forum/viewtopic.php?f=3&t=11721&p=81312

Edited September 22, 2013 by Tomy46