Cannot add reference to geolocation.dll
Question
Answers
All replies
-
I really want to get my gps coordinates and (perhaps) a google map of my location.
Ron Chandler
Ron,
Try this to start with (it's based on your public IP which comes from a website):
Option Strict On Option Explicit On Option Infer Off Imports System.IO Imports System.Net Namespace Geo Public Interface ILatLon ReadOnly Property Latitude() As Double ReadOnly Property Longitude() As Double End Interface Public Class GeoData Implements ILatLon Private _publicIP As String Private _countryCode As String Private _countryName As String Private _regionCode As String Private _regionName As String Private _city As String Private _zipCode As String Private _timeZone As String Private _latitude As Double Private _longitude As Double Private _metroCode As String Private Sub New() End Sub Public ReadOnly Property City As String Get Return _city End Get End Property Public ReadOnly Property CountryCode As String Get Return _countryCode End Get End Property Public ReadOnly Property CountryName As String Get Return _countryName End Get End Property Public ReadOnly Property Latitude As Double _ Implements ILatLon.Latitude Get Return _latitude End Get End Property Public ReadOnly Property Longitude As Double _ Implements ILatLon.Longitude Get Return _longitude End Get End Property Public ReadOnly Property MetroCode As String Get Return _metroCode End Get End Property Public ReadOnly Property PublicIP As String Get Return _publicIP End Get End Property Public ReadOnly Property RegionCode As String Get Return _regionCode End Get End Property Public ReadOnly Property RegionName As String Get Return _regionName End Get End Property Public ReadOnly Property TimeZone As String Get Return _timeZone End Get End Property Public ReadOnly Property ZipCode As String Get Return _zipCode End Get End Property Public Shared Function GetGeoInfo() As GeoData Dim retVal As GeoData = Nothing Try Const ipURL As String = "https://api.ipify.org/" Dim ip As String = ReturnTextFromURL(ipURL) If Not String.IsNullOrWhiteSpace(ip) Then Dim xDoc As XElement = XElement.Load("http://freegeoip.net/xml/" & ip.Trim) retVal = New GeoData With {._publicIP = ip.Trim} With retVal ._countryCode = xDoc...<CountryCode>.Value ._countryName = xDoc...<CountryName>.Value ._regionCode = xDoc...<RegionCode>.Value ._regionName = xDoc...<RegionName>.Value ._city = xDoc...<City>.Value ._zipCode = xDoc...<ZipCode>.Value ._timeZone = xDoc...<TimeZone>.Value ._latitude = CDbl(xDoc...<Latitude>.Value) ._longitude = CDbl(xDoc...<Longitude>.Value) ._metroCode = xDoc...<MetroCode>.Value End With End If Catch ex As Exception Throw End Try Return retVal End Function Private Shared Function ReturnTextFromURL(ByVal url As String) As String Dim retVal As String = "" Try Dim request As WebRequest = WebRequest.Create(url) Using response As HttpWebResponse = DirectCast(request.GetResponse, HttpWebResponse) Using dataStream As Stream = response.GetResponseStream Using reader As New StreamReader(dataStream) Dim responseFromServer As String = reader.ReadToEnd() retVal = responseFromServer End Using End Using End Using Catch ex As Exception retVal = "" End Try Return retVal End Function End Class End Namespace
To test it, I compiled it to a .dll and then added a reference to it:
Option Strict On Option Explicit On Option Infer Off Imports GeoInfo Public Class Form1 Private Sub Form1_Load(sender As System.Object, _ e As System.EventArgs) _ Handles MyBase.Load Dim myGeoData As Geo.GeoData = Geo.GeoData.GetGeoInfo Stop End Sub End Class
Here's my result:
Is this close to what you want?
If I had eight hours to chop down a tree, I'd spend six sharpening my axe. -- Abraham Lincoln
-
Got the download and extracted the files. When I double-click the sln, it shows that GeoInfo is unavailable.
Ron Chandler
That's a little odd, but let's play this out:
In Solution Explorer, you should see the class library:
If you'll now right-click on that, you'll see some options so choose to view the code:
When you see the code, choose to rebuild it:
Following that, try it and it should work. If it doesn't, then look at the code in Form1. The imports statement is near the top - does it show a "squiggly" line there?
If I had eight hours to chop down a tree, I'd spend six sharpening my axe. -- Abraham Lincoln
-
Not interested in tracking travel. Only spots where we stay.
Ron Chandler
Ok, I have something for you to try.
The project folder is zipped up and uploaded here. At the top of Form1, you'll see where you need to put your Bing API key so be sure to replace that or it won't work.
In my test run of it, I gave it my address information (it's actually my old address, not my current one) and in the "Completed" event handler sub, it returned the following:
I have the code shown here (if you want to copy from that, click the link at the top of that page and copy the unformatted text version) and if you'll look at the "Start" method, I'll explain what you're seeing and what it means:
Public Sub Start(ByVal bingAPIkey As String, _ Optional ByVal address As String = Nothing, _ Optional ByVal city As String = Nothing, _ Optional ByVal state As String = Nothing, _ Optional ByVal zipcode As String = Nothing)If you give it only the API key, then it will do what it did last night and [attempt to] get your location data from your IP address. It uses the very same websites as it did from last night.
If you give it more information about your location - and the more the better - then it will attempt to get the data from Bing Maps via their API. The more information you give it, the more accurate the result.
Will you give that a try please?
If I had eight hours to chop down a tree, I'd spend six sharpening my axe. -- Abraham Lincoln
-
By the way, if you don't give it a valid Bing Map API key, you'll get this:
If I had eight hours to chop down a tree, I'd spend six sharpening my axe. -- Abraham Lincoln
-
I cannot compile your code to test it and see how it works. I copied the code into my main project and it compiles OK, however. I cannot test it because I cannot see how you made the call to GeoInfo.Geo.GeoData.OperationCompleteEventArgs.
Ron Chandler
I've removed the IP from the results but I can put it back if you want me to.
Using what you showed though, this is how to do it (use your API key and your address information):
Option Strict On Option Explicit On Option Infer Off Imports GeoInfo Public Class Form1 Private Const bingAPIkey As String = "API Key Here" Private WithEvents geoData As Geo.GeoData Private Sub Form1_Load(sender As System.Object, _ e As System.EventArgs) _ Handles MyBase.Load ' ...initialization here, if any End Sub Private Sub _ ButtonGetLocationFromInternet_Click(sender As System.Object, _ e As System.EventArgs) _ Handles ButtonGetLocationFromInternet.Click ButtonGetLocationFromInternet.Enabled = False With Me .Cursor = Cursors.WaitCursor .Refresh() End With geoData = New Geo.GeoData geoData.Start(bingAPIkey, "104 Archway Circle", "Dickson", "TN", "37055") End Sub Private Sub _ geoData_OperationComplete(sender As Object, _ e As GeoInfo.Geo.GeoData.OperationCompleteEventArgs) _ Handles geoData.OperationComplete If e.OperationException IsNot Nothing Then MessageBox.Show(String.Format("An exception occurred:{0}{0}{1}", _ vbCrLf, e.OperationException.Message), _ "Program Error", MessageBoxButtons.OK, _ MessageBoxIcon.Warning) Else TextBoxInternetCity.Text = e.Locality TextBoxInternetZip.Text = e.PostalCode TextBoxInternetLat.Text = e.Latitude.ToString("f6") TextBoxInternetLon.Text = e.Longitude.ToString("f6") End If End Sub End Class
If I had eight hours to chop down a tree, I'd spend six sharpening my axe. -- Abraham Lincoln
-
I see GeoInfo and GeoInfo.Geo under imported namespaces. Both boxes are unchecked.
Ron Chandler
Obviously your version of VS is different than mine, but this is what mine looks like:
Here's what I'll suggest (understand that I'm not seeing the same thing that you are):
There's a button somewhere there about removing the reference. Click the button to remove the reference then click the button to add a reference.
When you do, choose "Browse" and browse to the other subfolder that's in what you unzipped. Use the one that's in the bin\Release folder (there will only be one .dll file there).
Try that please?
If I had eight hours to chop down a tree, I'd spend six sharpening my axe. -- Abraham Lincoln
-
Map stuff - great! By the way, my interest is keen because we sometimes travel to places like Botswana or Swaziland where they do not have street addresses but sometimes we can connect to the Internet, so the only input we have would be our public IP address. Make sense?
Ron Chandler
Ok, I have something for you to try.
The project folder is here, and following is what I've added:
There are several image options and some of those you need to set (like the image size and the image type), and some I've set in code because I'm giving you ALL of the options as an instance of a nested class.
Look at the code and you'll see what I mean, but following shows some of the results (by the way, the smallest zoom level and the largest zoom level are useless, but they're there anyway):
Let me know what you think. :)
If I had eight hours to chop down a tree, I'd spend six sharpening my axe. -- Abraham Lincoln
