PureBoard

Verfasst: **09.12.2010 14:01**

Hallo zusammen,

wie kann ich z.B. in einer kleinen Adressverwaltung auf einem Webgadget die GoogleMaps Adresse anzeigen lassen. Also nur die Karte - ohne das Suchen von Googlemaps etc.

LG und danke für diverse Ansätze

Verfasst: **09.12.2010 16:59**

Wäre da nicht Google selbst ein besserer Ansprechpartner ?

Schließlich versuchst du ja einen Service von denen zu nehmen, dann müsstest du mit denen auch erst mal reden, ob die damit überhaupt einverstanden sind, das du deren (ich nenne sie jetzt mal) Map-Engine nutzen darfst ?

Verfasst: **09.12.2010 17:20**

Das bietet Google direkt an:

http://code.google.com/intl/de-DE/apis/ ... taticmaps/

Code: Alles auswählen


;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Web_0
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 450, 200, 560, 560, "Window_0", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
    WebGadget(#Web_0, 0, 0, 560, 560, "http://maps.google.com/maps/api/staticmap?center=Brooklyn+Bridge,New+York,NY&zoom=14&size=512x512&maptype=roadmap&markers=color:blue|label:S|40.702147,-74.015794&markers=color:green|label:G|40.711614,-74.012318&markers=color:red|color:red|label:C|40.718217,-73.998284&sensor=false")
  EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #Web_0
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}

Verfasst: **09.12.2010 17:23**

http://maps.google.com/?q=berlin&output=embed
http://maps.google.com/?q=berlin&output=embed

Suchanfrage / Adresse
Zeigt nur die Karte an, ohne Google-Suchfeld

Verfasst: **09.12.2010 18:37**

Code: Alles auswählen


EnableExplicit

;- Enumerations / DataSections
; Windows
Enumeration
  #Window_0
EndEnumeration

;- Gadgets
Enumeration
  #Web_0
  #Button_1
  #Button_2
EndEnumeration

#DQ = Chr(34)

;- Define
Define Event.i, EventWindow.i, EventGadget.i, EventType.i, EventMenu.i
Define breite$, laenge$, quit.i

Procedure OpenWindow_Window_0()
  Protected res.i
  If OpenWindow(#Window_0, 450, 200, 512, 580, "Karte", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_MinimizeGadget | #PB_Window_TitleBar)
    WebGadget(#Web_0, 0, 0, 512, 512, "about:blank")
    ButtonGadget(#Button_1, 10, 530, 100, 30, "B1")
    ButtonGadget(#Button_2, 120, 530, 100, 30, "B2")
    res = #True
  EndIf
  ProcedureReturn res
EndProcedure

Procedure karte(breite$, laenge$)

  Protected code$

  code$ + "<!DOCTYPE HTML PUBLIC " + #DQ + "-//W3C//DTD HTML 4.01 Transitional//EN" + #DQ + "" + #CRLF$
  code$ + "       " + #DQ + "http://www.w3.org/TR/html4/loose.dtd" + #DQ + ">" + #CRLF$
  code$ + #CRLF$
  code$ + "<html>" + #CRLF$
  code$ + #CRLF$
  code$ + "<head>" + #CRLF$
  code$ + "   <meta http-equiv=" + #DQ + "Content-Type" + #DQ + " content=" + #DQ + "text/html; charset=iso-8859-1" + #DQ + ">" + #CRLF$
  code$ + "   <meta name=" + #DQ + "GENERATOR" + #DQ + " content=" + #DQ + "Mozilla/4.75 [de]C-CCK-MCD QXW0325k  (WinNT; U) [Netscape]" + #DQ + ">" + #CRLF$
  code$ + "   <title>Karte</title>" + #CRLF$
  code$ + "   <style type=" + #DQ + "text/css" + #DQ + ">" + #CRLF$
  code$ + "      body { margin-left:0px; margin-right:0px; margin-top:0px; margin-bottom:0px; overflow:hidden;}" + #CRLF$
  code$ + "   </style>" + #CRLF$
  code$ + "</head>" + #CRLF$
  code$ + #CRLF$
  code$ + "<body bgcolor=" + #DQ + "#FFFFFF" + #DQ + " scroll=" + #DQ + "no" + #DQ + ">" + #CRLF$
  code$ + #CRLF$
  code$ + "<p><img src=" + #DQ + "http://maps.google.com/maps/api/staticmap?center=" + breite$ + "," + laenge$ + "&zoom=10&size=512x512&sensor=false" + #DQ + "></p>" + #CRLF$
  code$ + #CRLF$
  code$ + #CRLF$
  code$ + "</body>" + #CRLF$
  code$ + "</html>" + #CRLF$
  code$ + #CRLF$

  SetGadgetItemText(#Web_0, #PB_Web_HtmlCode, code$)

EndProcedure

If OpenWindow_Window_0()

  ;- Event loop
  Repeat

    Event       = WaitWindowEvent()
    EventGadget = EventGadget()
    EventType   = EventType()
    EventWindow = EventWindow()

    Select Event

      Case #PB_Event_Gadget

        If EventGadget = #Web_0

        ElseIf EventGadget = #Button_1

          breite$ = "40.702147"
          laenge$ = "-74.015794"

          karte(breite$, laenge$)

        ElseIf EventGadget = #Button_2

          breite$ = "50.829285"
          laenge$ = "9.017172"

          karte(breite$, laenge$)

        EndIf

      Case #PB_Event_CloseWindow

        quit = 1

    EndSelect

  Until quit = 1

EndIf

End

Verfasst: **09.12.2010 19:32**

Hallo,
super Sache! Eine Frage zum Thema "Google-Suche". Lässt sich die Google-Suche in PB auch einbinden.
Ich meine damit das ich nach einen String(zB.aus meinen Programm) die Google-Suche auslösen und im Fenster darstellen kann.

Gruss ... Velindos

Verfasst: **09.12.2010 19:36**

http://www.google.de/#q=suchbegriff

Verfasst: **09.12.2010 19:41**

Danke TomS
Gruss ... Velindos

PureBoard

GoogleMaps WebGadget darstellen

GoogleMaps WebGadget darstellen

Re: GoogleMaps WebGadget darstellen

Re: GoogleMaps WebGadget darstellen

Re: GoogleMaps WebGadget darstellen

Re: GoogleMaps WebGadget darstellen

Re: GoogleMaps WebGadget darstellen

Re: GoogleMaps WebGadget darstellen

Re: GoogleMaps WebGadget darstellen