Comment obtenir Google Maps dans une Form ?

**thibouille** · 01/11/2007, 19h00

J'aimerais intégrer dans un Form Delphi7 un Google Maps paramètré comme bon me semble

Je sais que je peux paramétrer Google Maps en Javascript dans une page web. Mais dans ce cas précis je ne sais pas s'il ne serait pas plus simple de le paramétrer le tout (si possible) dans l'URL ?

De plus pour l'intégrer dans un forms, je sais qu'il y a le TWebBrowser. Mais pour la page à charger, si je ne peux pas tout transmettre par l'URL il me faut charger une page existante. Que faire? La générer en Delphi ou bien la fournir avec l'appli?

Edit: Ah et je ne vois pas comment déclencher le chergement d'une page dans TWebBrowser...

EDIT2: oups... trouver pour charger la page.. c'etait WebBrowser1.Navigate('adresseweb');

**thibouille** · 01/11/2007, 19h45

Code :

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

1
2
 
WebBrowser1.Navigate('http://maps.google.com/?hl=fr&ll='+EdLat.Text+','+EdLong.Text);

Ne m'affiche pas la mage correctement

**ero-sennin** · 01/11/2007, 20h23

Salut,

Voici un exemple d'utilisation pour google Maps :

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.NaviguerClick(Sender: TObject);
var
url:string;
begin
URL := 'http://maps.google.fr/maps?f=q&hl=fr&q=';
URL := URL + adresse.Text + ',+' + code_postal.Text + '+' + ville.Text;
WebBrowser1.Navigate(url);
end;

La form comprends 3 Edit nommé adresse , code_postal et ville ainsi qu'un WebBrowser et d'un bouton pour lancer la navigation.

Il ne te reste plus qu'à saisir les valeurs des Edits pour que tu puisses localiser l'adresse ... si c'est ce que tu souhaites faire ...

En espérant t'avoir aidé !
A+

**thibouille** · 02/11/2007, 14h20

Oui beaucoup merci

J'ai aussi remarqué qu'en inversant le &hl=fr&ll=xx.xx,xx.xx (fonctionne pas) en &ll=xx.xx,xx.xx&hl=fr cela fonctionnait. Je veux pas savoir pourquoi mais bon...

**ero-sennin** · 02/11/2007, 17h54

Salut,

Si tout est OK pour toi, pense à mettre le tag Résolu STP!

Merci

**thibouille** · 03/11/2007, 13h57

Pas encore tout-à-fait mais je te promet de flagger le temps voulou...

J'ai encore une question:
Si j'intèger un TWebBrowser dans mon form je me retrouve effectivement avec Google Maps mais j'aurais préféré ne voir que la Map elle-même.
Je n'ai que faire du frame de gauche.

Suis-je obligé de passer par génération html+javascript ou bien y a-t-il un moyen d'y parvenir avec des paramètres dans l'URL ?

**ero-sennin** · 03/11/2007, 14h52

Salut,

Récupérer l'image me semble une tâche difficle je pense ... Je ne sais comment on pourrait s'y prendre pour n'avoir que la partie que tu désires

Si quelqu'un sait comment faire, ça m'intéressait aussi...

**exoseven** · 03/11/2007, 15h38

un article intéressant sur le sujet

**ero-sennin** · 03/11/2007, 15h46

Merci pour cette info

[EDIT]

En jettant un oeil, ca ne compile pas avec D7 ... un message a été posté signalant ce problème

**thibouille** · 03/11/2007, 21h16

Zut, ça avait l'air taillé à mesure pour ce que je veux réaliser

**LadyWasky** · 19/11/2007, 22h02

Voilà, je m'absente un temps et c'est la panique :
Bon, pour google maps, voici un projet tout fait (Delphi 7)

http://www.developpez.net/forums/att...8&d=1158934194
googleMaps.zip

Par contre, je ne suis pas sur, mais il y a des problêmes de droits avec googlemaps, donc utilises plutôt NASA World Wind si tu veux des photos satellites. J'eu eu (huhu ? :aïe) une ex-QR en préparation :

[QR] Comment télécharger une carte du globe NASA WorldWind et la sauver sur le disque dur.

Auteur : Waskol
Catégorie : ????
(Composants Indy nécessaires)

Dans une fiche, on place un bouton appelé Button1 et surtout un composant TIdHTTP appelé IdHTTP1

Le principe :
1) On télécharge l'image dans un flux mémoire (TMemoryStream) grâce au composant Indy.
2) On "rembobine" le TMemoryStream
3) On charge l'image à partir de ce flux grace à la méthode LoadFromStream de notre objet graphique (ici un TJPEGImage)
4) On sauve l'image avec sa métode SaveToFile

Ne pas oublier l'unité jpeg dans les uses...

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    IdHTTP1: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
uses JPEG;
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var UnFluxMemoire:TMemoryStream;
    s:string;
    UnJPEG:TJPEGImage;
begin
//
//http://wms.jpl.nasa.gov/wms.cgi     <ServerGetMapUrl>
//?request=GetMap        obligatoire, pas de paramètre
//&layers=global_      Nom du layer demandé :global_mosaic_base,modis
//&srs=EPSG:4326          no tag World Wind only supports EPSG:4326
//&width=600              Largeur en Pixels de l'image
//&height=600            Hauteur en Pixels de l'image
//&bbox=-5,45,5,55        Fenêtre de visualisation (Longitude Mini,Latitude Mini, Longitude Maxi, Latitude Maxi)
//&format=image/jpeg   Format d'image demandé
//&version=1.1.0          Version demandée
//&styles=
  UnFluxMemoire := TMemoryStream.Create;
  UnJPEG:=TJPEGImage.create;
  try
  UnFluxMemoire.Clear;
  s:='http://wms.jpl.nasa.gov/wms.cgi?request=GetMap&layers=modis&srs=EPSG:4326&width=512&height=512&bbox=-5,45,5,55&format=image/jpeg&version=1.1.0&styles';
  IdHTTP1.Get(s,UnFluxMemoire );
  UnFluxMemoire.Seek(0, soFromBeginning);
  UnJPEG.LoadFromStream(UnFluxMemoire);
  UnJPEG.SaveToFile('C:\temp\France_UK1.jpeg');
 
  UnFluxMemoire.Clear; //Important !  Sinon, l'image suivante n'est pas téléchargée
  s:='http://wms.jpl.nasa.gov/wms.cgi?request=GetMap&layers=global_mosaic_base&srs=EPSG:4326&width=512&height=512&bbox=-5,45,5,55&format=image/jpeg&version=1.1.0&styles';
  IdHTTP1.Get(s,UnFluxMemoire );
  UnFluxMemoire.Seek(0, soFromBeginning);
  UnJPEG.LoadFromStream(UnFluxMemoire);
  UnJPEG.SaveToFile('C:\temp\France_UK2.jpeg');
 
  UnFluxMemoire.Clear;
  s:='http://wms.jpl.nasa.gov/wms.cgi?request=GetMap&layers=global_mosaic_base&srs=EPSG:4326&width=512&height=512&bbox=2.3,48.7,2.4,48.9&format=image/jpeg&version=1.1.0&styles';
  IdHTTP1.Get(s,UnFluxMemoire );
  UnFluxMemoire.Seek(0, soFromBeginning);
  UnJPEG.LoadFromStream(UnFluxMemoire);
  UnJPEG.SaveToFile('C:\temp\Paris.jpeg');
  finally
  UnFluxMemoire.Free;
  UnJPEG.Free;
  end;
end;
 
end.

1) Je ne sais pas encore comment récupérer l'image directement au format BMP

(il faut mettre quoi à la place de jpeg dans la requête http ?

)
2) Pour les Layers, il y en a sans doute d'autres que global_mosaic_base et modis, mais lesquels ?

3) Si vous avez des idées je suis preneur pour cette FAQ
4) C'est moche Paris, hein ?

VOilà...

**ero-sennin** · 19/11/2007, 22h19

Hey, Waskol est de retour !

Ce projet m'intéressait! Dès que j'ai Delphi (autant dire pas avant Vendredi), j'essaierai ton code !

Content de te revoir

**Le_Suisse** · 07/01/2009, 15h50

Envoyé par waskol

Voilà, je m'absente un temps et c'est la panique :
Bon, pour google maps, voici un projet tout fait (Delphi 7)

http://www.developpez.net/forums/att...8&d=1158934194
googleMaps.zip

Par contre, je ne suis pas sur, mais il y a des problêmes de droits avec googlemaps, donc utilises plutôt NASA World Wind si tu veux des photos satellites. J'eu eu (huhu ? :aïe) une ex-QR en préparation :

VOilà...

Bonjour Waskol, je n'arrive pas a télécharger ton fichier zip qui contient cet exemple googlemap. Il m'intéresse beaucoup. Peux-tu faire quelque chose ? Merci beaucoup