Jump to content

Get latitude and longitude from map


Tomy46
 Share

Go to solution Solved by Tomy46,

Recommended Posts

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 ...

======> Tomy ... just for fun ;) <======

Link to comment
Share on other sites

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

:bye:

Link to comment
Share on other sites

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?

======> Tomy ... just for fun ;) <======

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

  • Recently Browsing   0 members

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