开发者

What kind of DB Foursquare using? [closed]

开发者_开发知识库 This question is unlikely to help any future visitors; it is only relevant to a small geographic area, a specific moment in time, or an extraordinarily narrow situation that is not generally applicable to the worldwide audience of the internet. For help making this question more broadly applicable, visit the help center. Closed 12 years ago.

what kind of db foursquare is using?

I don't mean: MySQL, Oracle, or whatever, I mean:

Where they get the venue?

From google maps?


From what I can tell, 4SQ is using Google Maps and Geolocation

I don't know what you're using for technology, but I've written a pretty sweet "lat/lon" locator that works with Google maps and Bing maps. It's in VB.NET and outputs the Latitude and Longitude as JSON.

Imports System.Runtime.Serialization
Imports System.Web
Imports System.Net
Imports System.Runtime.Serialization.Json
Imports System.Web.Script.Serialization

Namespace Utilities.Apis
    Public NotInheritable Class Geolocation
        ''# This is the object that we are going to store the latitude and
        ''# longitude contained in the API response.
        Private coordinates As Coordinates
        Public Sub New()
            coordinates = New Coordinates
        End Sub

        Private Const googleUrl As String = "http://maps.googleapis.com/maps/api/geocode/json?address={0}&sensor=false"
        Private Const bingUrl As String = "http://dev.virtualearth.net/REST/v1/Locations?addressLine={0}&key={1}&CountryRegion={2}"
        Private Const bingKey As String = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

        Public Enum apiProvider
            Google = 1
            Bing = 2
        End Enum

        ''''# <summary>
        ''''# Gets the Latitude and Longitude of an address using either Bing or Google Geolocation
        ''''# </summary>
        ''''# <param name="Provider">ENUM apiProvider [Bing] or [Google]</param>
        ''''# <param name="Address">The address of the coordinates you'd like to locate</param>
        ''''# <param name="countryCode">Bing doesn't play nice outside the US without this. use "CA" for Canada</param>
        ''''# <returns>A JSON string using "Latitude" and "Longitude" from the Coordinates class</returns>
        Public Function GetLatLon(ByVal Provider As Integer,
                                  ByVal Address As String,
                                  Optional ByVal CountryCode As String = "CA") As String

            ''# If there happens to be some strange behavior with the placeholder,
            ''# we want to ensure that the "demo" content is not submitted to the
            ''# api.
            If Address = "6789 university drive" Then
                Return Nothing
            End If

            Address = HttpUtility.UrlEncode(Address)

            Dim url As String
            Dim responseType As Type
            If Provider = apiProvider.Bing Then
                url = String.Format(bingUrl, Address, bingKey, CountryCode)
                responseType = GetType(BingResponse)
            ElseIf Provider = apiProvider.Google Then
                url = String.Format(googleUrl, Address)
                responseType = GetType(GoogleResponse)
            Else
                ''# If for some reason, the apiResponse is NOT Google or Bing,
                ''# then we want to return Google anyways.
                url = String.Format(googleUrl, Address)
            End If

            ''# Initiate the Http Web Request to the respective provider
            Dim request = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)

            ''# Deflate the compressed (gzip'd) response
            request.Headers.Add(HttpRequestHeader.AcceptEncoding, "gzip,deflate")
            request.AutomaticDecompression = DecompressionMethods.GZip Or DecompressionMethods.Deflate

            ''# Serialize the response into it's respective Data Contract
            Dim serializer As New DataContractJsonSerializer(responseType)

            ''# Because the JSON Response from Google and Bing are drastically
            ''# different, we need to consume the response a little differently
            ''# for each API.  I'd like to figure out a way to shrink this a
            ''# little more, but at the same time, it's working. So I'm going to
            ''# leave it alone for now [Nov 28,2010]


            ''# Here we're handling the Bing Provider
            If Provider = apiProvider.Bing Then
                Dim res = DirectCast(serializer.ReadObject(request.GetResponse().GetResponseStream()), BingResponse)
                Dim resources As BingResponse.ResourceSet.Resource = res.resourceSets(0).resources(0)
                Dim point = resources.point
                With coordinates
                    .latitude = point.coordinates(0)
                    .longitude = point.coordinates(1)
                End With


                ''# Here we're handling the Google Provider
            ElseIf Provider = apiProvider.Google Then
                Dim res = DirectCast(serializer.ReadObject(request.GetResponse().GetResponseStream()), GoogleResponse)
                Dim resources As GoogleResponse.Result = res.results(0)
                Dim point = resources.geometry.location
                With coordinates
                    .latitude = point.lat
                    .longitude = point.lng
                End With
            End If

            ''# Serialize the coordinates and return the string
            Dim jsonSerializer = New JavaScriptSerializer
            Return jsonSerializer.Serialize(coordinates)
        End Function
    End Class

    <DataContract()>
    Public Class BingResponse
        <DataMember()>
        Public Property resourceSets() As ResourceSet()
        <DataContract()>
        Public Class ResourceSet
            <DataMember()>
            Public Property resources() As Resource()
            <DataContract([Namespace]:="http://schemas.microsoft.com/search/local/ws/rest/v1", name:="Location")>
            Public Class Resource
                <DataMember()>
                Public Property point() As m_Point
                <DataContract()>
                Public Class m_Point
                    <DataMember()>
                    Public Property coordinates() As String()
                End Class
            End Class
        End Class
    End Class

    <DataContract()>
    Public Class GoogleResponse
        <DataMember()>
        Public Property results() As Result()
        <DataContract()>
        Public Class Result
            <DataMember()>
            Public Property geometry As m_Geometry
            <DataContract()>
            Public Class m_Geometry
                <DataMember()>
                Public Property location As m_location
                <DataContract()>
                Public Class m_location
                    <DataMember()>
                    Public Property lat As String
                    <DataMember()>
                    Public Property lng As String
                End Class
            End Class
        End Class

    End Class
End Namespace

and here's how easy it is to call it.

Geolocate.GetLatLon(Utilities.Apis.Geolocation.apiProvider.Google, "1234 Some Funky Street, Home Town, MI", "US")

So in the end, they use the combination of their own Geolocating, as well as the information that "can" be submitted by twitter or by the end users mobile device (the iPhone for example asks if you want to allow it to send location information).


They rely on users to enter new locations. They may have seeded it at some point with an import.

0

上一篇:

下一篇:

精彩评论

暂无评论...
验证码 换一张
取 消

最新问答

问答排行榜