Sinkro.net » gmap http://www.sinkro.net Software e dintorni. ... soprattutto dintorni ;-) Mon, 26 Sep 2011 01:42:19 +0000 en hourly 1 http://wordpress.org/?v=3.2.1 Attenti a Google map http://www.sinkro.net/2008/01/29/attenti-a-google-map/?utm_source=rss&utm_medium=rss&utm_campaign=attenti-a-google-map http://www.sinkro.net/2008/01/29/attenti-a-google-map/#comments Tue, 29 Jan 2008 21:42:23 +0000 Massimiliano http://www.sinkro.net/2008/01/29/attenti-a-google-map/
  • Come aggiungere google maps in una pagina web Questa cosa e' facile facile e di sicuro effetto. La...
  • Come utilizzare google da delphi Come primo passo è necessario ottenere una google api key...
  • Questo sito potrebbe arrecare danni al tuo computer Giornataccia a Mountain View. Secondo l'illustre parere di Google, oggi,...
    • ]]>     Credo conosciate già la vista stradale delle maps di google.
    Questo è un esempio di una strada a caso di Manhattan

    Purtroppo si sono verificati seri problemi di privacy. :-D

    Altri articoli di interesse:

    1. Come aggiungere google maps in una pagina web Questa cosa e' facile facile e di sicuro effetto. La...
    2. Come utilizzare google da delphi Come primo passo è necessario ottenere una google api key...
    3. Questo sito potrebbe arrecare danni al tuo computer Giornataccia a Mountain View. Secondo l'illustre parere di Google, oggi,...

    ]]>     http://www.sinkro.net/2008/01/29/attenti-a-google-map/feed/ 0     Come utilizzare google da delphi http://www.sinkro.net/2006/07/23/usare-google-da-delphi/?utm_source=rss&utm_medium=rss&utm_campaign=usare-google-da-delphi http://www.sinkro.net/2006/07/23/usare-google-da-delphi/#comments Sun, 23 Jul 2006 14:02:58 +0000 Massimiliano http://www.sinkro.net/2006/07/23/usare-google-da-delphi/
  • Come aggiungere google maps in una pagina web Questa cosa e' facile facile e di sicuro effetto. La...
  • Inviare fax tramite Microsoft FaxServer con delphi uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var   mFax,mFaxDoc: Variant; begin...
  • Attenti a Google map Credo conosciate già la vista stradale delle maps di google....
    • ]]>     Come primo passo è necessario ottenere una google api key per poter utilizzare il WebService che Google ci mette a disposizione.
    La si può ottenere qui http://google.com/apis/.

    Una volta registrati si otterra' la key via email.

    In delphi 7 e successivi c'e' un utile strumento, wsdl importer che importa i wsdl e ci crea un file di interfaccia verso gli oggetti messi a disposizione dal webservice.

    Usarlo è piuttosto semplice:
    Entriamo in delphi e dal menu
    file->new->other
    scegliamo
    webservices->wsdl importer

    Impostiamo l'url del wsdl in http://api.google.com/GoogleSearch.wsdl

    Clicchiamo Next e poi Finish.

    Nell'editor si aprira' automaticamente il file GoogleSearch.pas.

    In questo file troveremo, tra le altre cose, la definizione della classe GoogleSearchPort

    La definizione:

    GoogleSearchPort = interface(IInvokable)
    ['{0B396A82-A4DD-69A7-A771-6D80F8831A71}']
    function doGetCachedPage(const key: WideString; const url: WideString): TByteDynArray; stdcall;
    function doSpellingSuggestion(const key: WideString; const phrase: WideString): WideString; stdcall;
    function doGoogleSearch(const key: WideString; const q: WideString; const start: Integer; const maxResults: Integer; const filter: Boolean; const restrict: WideString; const safeSearch: Boolean; const lr: WideString; const ie: WideString; const oe: WideString
    ): GoogleSearchResult; stdcall;
    end;

    Notare i tre metodi che Google ci mette a disposizione:

    • doGetCachedPage
    • doSpellingSuggestion
    • doGoogleSearch

    Per testarli ho creato una form con un TEdit, un TMemo ed un TButton.
    APIKEY rappresenta la key che ci ha fornito Google per poter utilizzare il WebService.

    Proviamo i metodi uno ad uno.

    doGetCachedPage

    doGetCachedPage restituisce un TByteDynArray che troviamo nella unit types.

    Quindi:

    uses
    GoogleSearch
    , Types;

    Ciò che segue è come potrebbe essere una semplice funzione che usa il metodo doGetCachedPage:

    var
    googleResult : TByteDynArray;
    google : GoogleSearchPort;
    mPage : string;
    i : integer;
    begin
    google := GetGoogleSearchPort();
    googleResult := google.doGetCachedPage(APIKEY, edit1.Text);

    mPage := '';
    for i := 0 to length(googleResult) - 1 do
    begin
    mPage := mPage + char(googleResult[i]);
    end;
    Memo1.Lines.Text := mPage;
    end;

    doSpellingSuggestion

    doSpellingSuggestion è il metodo più semplice dato che restituisce una semplice widestring.

    var
    google : GoogleSearchPort;
    mWord : string;
    begin
    google := GetGoogleSearchPort();
    mWord := google.doSpellingSuggestion(APIKEY, edit1.Text);

    Memo1.Clear;
    memo1.Lines.Add(mWord);
    end;

    doGoogleSearch

    doGoogleSearch è il metodo che ci permette di effettuare ricerche.

    Richiede questi parametri:

    • key Google Api key
    • q Il testo che stiamo cercando
    • start Da quale risultato partiamo
    • maxResults Quanti risultati volgiamo
    • filter Filtrare i risultati simili
    • restrict Restrizione di nazione o argomento
    • safeSearch filtro pornografia
    • lr restrizione di lingua
    • ie input encoding
    • oe output encoding

    nessuno dei quali e' opzionale.

    doGoogleSearch restituisce un oggetto di tipo GoogleSearchResult anch'esso definito nel wsdl e di conseguenza nel nostro GoogleSearch.pas generato automaticamente da wsdl importer.

    Questa la dichiarazione:

    GoogleSearchResult = class(TRemotable)
    ...
    published
    property documentFiltering: Boolean;
    property searchComments: WideString;
    property estimatedTotalResultsCount: Integer;
    property estimateIsExact: Boolean;
    property resultElements: ResultElementArray;
    property searchQuery: WideString;
    property startIndex: Integer;
    property endIndex: Integer;
    property searchTips: WideString;
    property directoryCategories: DirectoryCategoryArray;
    property searchTime: Double;
    end;

    Un altro oggetto importante è ResultElement, ovvero ogni singolo risultato della ricerca. La dichiarazione:

    ResultElement = class(TRemotable)
    ...
    published
    property summary: WideString;
    property URL: WideString;
    property snippet: WideString;
    property title: WideString;
    property cachedSize: WideString;
    property relatedInformationPresent: Boolean;
    property hostName: WideString;
    property directoryCategory: DirectoryCategory;
    property directoryTitle: WideString;
    end;

    Vediamo un po' come possiamo implementare una semplice ricerca:

    var
    googleResult : GoogleSearchResult;
    google : GoogleSearchPort;
    i : integer;
    begin
    google := GetGoogleSearchPort();
    googleResult := google.doGoogleSearch(
    APIKEY, Edit1.Text, 0, 10, False, '', False, '', '', '');

    Memo1.Clear;

    Memo1.Lines.Add('Trovati ' + IntToStr(googleResult.estimatedTotalResultsCount) + ' risultati:';
    Memo1.Lines.Add('');
    for i := Low(googleResult.resultElements) to High(googleResult.resultElements) do
    begin
    Memo1.Lines.Add(IntToStr(i + 1));
    Memo1.Lines.Add(googleResult.resultElements[i].title);
    Memo1.Lines.Add(googleResult.resultElements[i].URL);
    Memo1.Lines.Add('');
    end;
    end;

    Allego un progettino di esempio dove ho cercato di utilizzare tutte le proprietà disponibili di GoogleSearchResult e di ResultElement:
    TestGoogleSearch

    Altri articoli di interesse:

    1. Come aggiungere google maps in una pagina web Questa cosa e' facile facile e di sicuro effetto. La...
    2. Inviare fax tramite Microsoft FaxServer con delphi uses ComObj; procedure TForm1.Button1Click(Sender: TObject); var   mFax,mFaxDoc: Variant; begin...
    3. Attenti a Google map Credo conosciate già la vista stradale delle maps di google....

    ]]>     http://www.sinkro.net/2006/07/23/usare-google-da-delphi/feed/ 1     Come aggiungere google maps in una pagina web http://www.sinkro.net/2006/07/22/come-aggiungere-google-maps-in-una-pagina-web/?utm_source=rss&utm_medium=rss&utm_campaign=come-aggiungere-google-maps-in-una-pagina-web http://www.sinkro.net/2006/07/22/come-aggiungere-google-maps-in-una-pagina-web/#comments Sat, 22 Jul 2006 21:58:49 +0000 Massimiliano http://www.sinkro.net/2006/07/22/come-aggiungere-google-maps-in-una-pagina-web/
  • Attenti a Google map Credo conosciate già la vista stradale delle maps di google....
  • Come utilizzare google da delphi Come primo passo è necessario ottenere una google api key...
  • Questo sito potrebbe arrecare danni al tuo computer Giornataccia a Mountain View. Secondo l'illustre parere di Google, oggi,...
    • ]]>     Questa cosa e' facile facile e di sicuro effetto.

    La prima cosa da fare e' ottenere una google maps api key per poter usare google map sul proprio sito. La si può ottenere qui.

    Nel momento in cui google ci fornisce la google maps api key, ci mostra il codice per un utilizzo di base. Lo riporto qua commentandolo giusto per capire cosa andremo a fare.
    Prima di tutto importiamo le funzioni da google. Questa riga contiene la nostra key e funzionerà solamente con il dominio per il quale abbiamo ottenuto la key.

    <script
        src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=ABQIAAAAZlIgpyuvZY8pz7QUTVaVVhSLYOoNmsRXdvX4J4J6dbd5jt8ogRQlK9W1V6_wnfq3Ze9Lebaq5HYVvA"
        type="text/javascript">
    </script>

    Ora definiamo la funzione che caricherà la mappa:

    <script type="text/javascript">
        //<![CDATA[
        function load() {
            if (GBrowserIsCompatible()) {
                var map = new GMap2(document.getElementById("map"));
                map.setCenter(new GLatLng(37.4419, -122.1419), 13);
            }
        }
        //]]>
    </script>

    Queste coordinate pero' non fanno per noi, quindi andiamo su maps.google.com e cerchiamo l'indirizzo di cui vogliamo mostrare la mappe.

    Una volta centrata la mappa possiamo ottenere le coordinate cliccando prima su "satellite" poi su "Collegamento a questa pagina" in alto a destra. Fatto questo troveremo le coordinate che cercavamo nell'url.

    Nel mio caso: 44.137362,12.241838

    Bene ora la nostra funzione diventerà :

    <script type="text/javascript">
        //<![CDATA[
        function load() {
            if (GBrowserIsCompatible()) {
                var map = new GMap2(document.getElementById("map"));
                point = new GLatLng(44.137362, 12.241838);
                map.setCenter(point, 23);
            }
        }
        //]]>
    </script>

    Però manca ancora qualche cosina:

    • visualizzare i controlli per lo zoom e lo spostamento
    • visualizzazione ibrida cioè la mappa sovrapposta alle immagini da satellite
    • zoomare con un doppio click
    • visualizzare una finestra di informazione

    Unisco il tutto nella funzione definitiva:

    <script type="text/javascript">
        //<![CDATA[
        var WINDOW_HTML = '<div style="width: 210px; padding-right: 10px"><b>Io sono qui!<br/>Tu dove sei?</div>';
        function load() {
            if (GBrowserIsCompatible()) {
                var map = new GMap2(document.getElementById("map"));
                //definisco la mia posizione
                point = new GLatLng(44.137362, 12.241838);
                //definisco un marcatore
                marker = new GMarker(point);
                //Aggiungo i controlli zoom e pan
                map.addControl(new GSmallMapControl());
                //Aggiungo la selezione del tipo di mappa
                map.addControl(new GMapTypeControl());
                //Imposto il centro della mappa
                map.setCenter(point, 18);         
                //Abilito lo zoom con doppioclick
                map.enableDoubleClickZoom();
                //Mostro il marcatore
                map.addOverlay(marker);
                //Definisco il tipo di mappa (Ibrido)
                map.setMapType(G_HYBRID_MAP);

                //Mostro la finestra di informazioni
                marker.openInfoWindowHtml(WINDOW_HTML);
            }
        }

        //]]>
    </script>

    Tutto qua, e questo e' il risultato: Esempio google map

    La documentazione è piuttosto chiara e si possono esplorare diverse funzionalità .

    Può capitare che il cliente abbia due o piu' domini che puntano allo stesso sito, mentre la google map key è relativa ad un singolo dominio.

    il trucco è semplice e ringrazio Laura che pur non conoscendo nulla di Javascript ha avuto l'illuminazione mentre io seguivo strade buie ;-)

    if (location.hostname == "www.tuosito.com") {
        location.hostname = "www.tuosito.it"
    }

    Semplice e funzionale, brava Laura! :-)

    Altri articoli di interesse:

    1. Attenti a Google map Credo conosciate già la vista stradale delle maps di google....
    2. Come utilizzare google da delphi Come primo passo è necessario ottenere una google api key...
    3. Questo sito potrebbe arrecare danni al tuo computer Giornataccia a Mountain View. Secondo l'illustre parere di Google, oggi,...

    ]]>     http://www.sinkro.net/2006/07/22/come-aggiungere-google-maps-in-una-pagina-web/feed/ 2