Italian Visualizzare google Maps

Nikeddy

Active Member
Licensed User
Salve a tutti,

io ho un db che per ogni macchina c'e' un indirizzo in formato testo.

vorrei che il sistema prenda dal db il campo indirizzo e faccia uscire una stringa con su Roma Via della stazione 45 e faccia una ricerca su Google maps.
con vb6 avevo fatto cosi:

B4X:
Const URL_BASE As String = _
    "http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"

Dim addr As String
Dim url As String

    ' A very simple URL encoding.
    addr = txtAddress.Text
    addr = Replace$(addr, " ", "+")
    addr = Replace$(addr, ",", "%2c")

    ' Insert the encoded address into the base URL.
    url = Replace$(URL_BASE, "@ADDR@", addr)

    ' Insert the proper type.
    Select Case cboGoogle.Text
        Case "Map"
            url = Replace$(url, "@TYPE@", "m")
        Case "Satellite"
            url = Replace$(url, "@TYPE@", "h")
        Case "Terrain"
            url = Replace$(url, "@TYPE@", "p")
    End Select

    ' "Execute" the URL to make the default browser display
    ' it.
    ShellExecute ByVal 0&, "open", url, _
        vbNullString, vbNullString, SW_SHOWMAXIMIZED
      Unload Me

come faccio ora con b4a?
 

Nikeddy

Active Member
Licensed User
li e' proprio una app, a me interessa anche semplicemente che mi visualizzi solo gmaps e faccia la ricerca, non c'e' qualcosa di piu' facile?
 

MarcoRome

Expert
Licensed User
Longtime User
ho provato a mettere un panel e sopra la webview

e ho inserito

B4X:
Sub cmd_map_Click
    panel4.Visible=True
    webview1.LoadUrl("http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"")
End Sub

mi da errore...
Occurred on line: 216 (Main)
webview1.LoadUrl("http://maps.google.com/maps?f=q&hl=en&geocode=&time=&date=&ttype=&q=@ADDR@&ie=UTF8&t=@TYPE@"")
Nike a parte il fatto che hai passato ADDR etc...non come variabili valorizzate ma come stringhe pure.... guardati qualche esempio della documentazione che ti ho inviato prima.
soprattutto vedi con un esempio semplice se ti da qualche errore.
Quando riporti un errore ..riportalo completo ( vedi finestra log o finestra compilatore )
 

MarcoRome

Expert
Licensed User
Longtime User
c'è un doppio apice di troppo alla fine (?)
Si ma anche togliendo i doppi apici ( che ovviamente è un errore e proprio la stringa importata nel complesso che è errata.
Del tipo in VB valorizzavi le stringhe @ADDR...etc. stessa cosa devi fare qui.
quindi se ti vedi qualche esempio base .... è meglio
 

Nikeddy

Active Member
Licensed User
tecnicamente funziona

B4X:
cmd_map_Click
    panel4.Visible=True
    Panel3.Visible= False
    Panel2.Visible= False
   
    Dim addr As String
    Dim url As String
    Dim url2 As String
    addr = lbl_indirizzo.Text
    url = "https://www.google.com/maps?f=q&hl=en&geocode&time&date&ttype&q=@"
    url2 = "@&ie=UTF8&t=@TYPE@"
    webview1.LoadUrl(url & addr & "Roma" & url2)
 
Top