Utilisation de la Google Maps API ?

**[ZiP]** · 04/09/2007, 15h51

Bonjour,

Je souhaiterai utiliser la Google Maps API avec Delphi, j'ai donc utilisé ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
procedure WBLoadHTML(WebBrowser: TWebBrowser; HTMLCode: string);
var
     sl : TStringList;
     ms : TMemoryStream;
begin
     WebBrowser.Navigate('about:blank');
     while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
          Application.ProcessMessages;
     if Assigned(WebBrowser.Document) then
     begin
          sl := TStringList.Create;
          try
               ms := TMemoryStream.Create;
               try
                    sl.Text := HTMLCode;
                    sl.SaveToStream(ms);
                    ms.Seek(0,0);
                    (WebBrowser.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
               finally
                    ms.Free;
               end;
          finally
               sl.Free;
          end;
     end;
end;
 
procedure TFPrincipale.Button1Click(Sender: TObject);
var
     Page : string;
begin
     Page := '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">' +
             '<html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="content-type" content="text/html; charset=utf-8"/><title>Google Maps JavaScript API Example</title>' +
             '<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=ABQIAAAAsT1ziiaxKxMrk3lpf5RRFxT2yXp_ZAY8_ufC3CFXhHIE1NvwkxRR9-V34RKMA8vvIjZk2Wty69Akiw" type="text/javascript"></script>' +
             '<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>' +
             '</head><body onload="load()" onunload="GUnload()"><div id="map" style="width: 500px; height: 300px"></div></body></html>';
     WBLoadHTML(WebBrowser1,Page);
end;

La clef générée est pour http://localhost/ mais il ne marche pas car la page est générée dynamiquement et chargée via une variable dans le composant...

J'ai donc un message d'erreur qui me dit que la clef n'est pas valide pour le domaine...

Comment puis-je faire ?

Merci,
ZiP

**Rayek** · 04/09/2007, 16h50

As tu regardé ce tutoriel ?

**[ZiP]** · 04/09/2007, 16h54

Bonjour,

En effet, j'ai regardé mais celui-ci permet d'accéder au site de Google Maps.

Avec ce code, n'est affiché que la carte.

Je ne sais pas quel domaine est détecté par l'API Google.

Ce n'est pas localhost et pas 127.0.0.1.

Cordialement,
ZiP

**davels** · 04/09/2007, 18h02

Que veux tu faire exactement?
Intégrer la google map dans une page HTML que tu as créé?

**[ZiP]** · 04/09/2007, 22h26

En fait, je souhaite afficher la carte dans un TWebBrowser comme on peut le faire avec les Google Maps API.

Mais n'avoir que la carte, c'est pourquoi le simple lien ne va pas.

Cependant, je ne sais pas quel est le nom de domaine détecté par la Google Maps API lorsque j'exécute ma page via le code ci-dessus. Car il faut une clef correcte pour faire fonctionner cette API qui se génère ici :
http://www.google.com/apis/maps/signup.html

Merci,
ZiP

Utilisation de la Google Maps API ?

Web & réseau Delphi

Discussions similaires

Partager

Partager