AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • Delphi CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 03:41:00
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

DELPHI GOOGLE MAP GPS TOOL


Information sur la source

Catégorie :Périphériques Classé sous : Delphi-Google map, sexagésimaux-Decimal Converter, Google map Niveau : Initié Date de création : 08/07/2008 Date de mise à jour : 15/07/2008 18:17:42 Vu / téléchargé: 8 095 / 829
Auteur : aminedelphi Ecrire un message privé
Note :
8,8 / 10 - par 5 personnes
8,80 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (56)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
Bonjour ce petit code source vous permettra d’avoir tout type d’image de google map
Il suffite simplement de donner vos coordonner l’altitude et la longitude
Soit en système décimal ou  en système sexagésimaux (les coordonner afficher dans le GPS)  
Il dispose aussi d’un convertisseur  sexagésimaux--- > décimal et  décimal--- > sexagésimaux
Le point le plus important et le fait d’avoir les image de Gmap et les combiné avec sont petit GPS fabriqué soi même (pour les amateur d’électronique)  on peux dire que vous aurez un GPS avec tout la carte du monde a+.
J’ai presque oublié pour  le Key obtenez le votre ici : http://code.google.com/apis/maps/signup.html
C’est gratuit !! il suffite simplement d’avoir votre compte Gmail

 

Source

  • AnimateWindow(Self.Handle, 250, AW_HOR_NEGATIVE or AW_SLIDE or AW_HIDE); 
AnimateWindow(Self.Handle, 250,  AW_HOR_NEGATIVE or AW_SLIDE   or AW_HIDE);

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

15 juillet 2008 18:17:42 :
le code source a été modifier un peu en ajoutant quelque animation

Commentaires et avis

signaler à un administrateur
Commentaire de HAFTARIFOUAD le 09/07/2008 20:21:22

Bonjour

Je suis là pour vous encourager, vraiment intéréssant votre projet.
Il rêste des choses à complèter (renommage des composants, ...) , mais c'est du bon travail méritant mes félicitations.

signaler à un administrateur
Commentaire de yvessimon le 10/07/2008 10:58:08

Bonjour,

Très bonne application.

Un seul souci pour le séparateur décimal des coordonnées GPS. Mais très facile à résoudre: soit avec un test soit en le forçant.

Une valeur par défaut avec un séparateur décimal "virgule" ou "point" crée une erreur si le paramètre des nombres de l'option régional du PC est différente.

Salutations

signaler à un administrateur
Commentaire de jackalunion le 10/07/2008 11:13:40 10/10

Trés bonne et même trés trés bonne

signaler à un administrateur
Commentaire de Francky23012301 le 10/07/2008 15:24:02 7/10

Salut,

Ca aurait pu être sympas mais :

*les composants ne sont pas renommés (Idem pour le fiches).
*Beaucoup de fonctions n'ont utilisées
*On s'attend à pouvoir faire un Zoom avec la roulette de la souris : dommage

7*10

signaler à un administrateur
Commentaire de aminedelphi le 12/07/2008 02:40:56

bonjour
pour pouvoir faire un Zoom avec la roulette de la souris
il suffit simplement de mettre ce petit code dans l'événement on MouseWheel de la form1


procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if (WheelDelta>0) then Zoom.ItemIndex:=Zoom.ItemIndex+1 else
Zoom.ItemIndex:=Zoom.ItemIndex-1;
if Zoom.ItemIndex<0 then Zoom.ItemIndex:=0;
if Zoom.ItemIndex>20 then Zoom.ItemIndex:=20;
ZoomChange(Sender);
end;
a+

signaler à un administrateur
Commentaire de pierrefo le 14/07/2008 09:46:01 8/10

Bonjour,

Toutes mes félicitations.
Je n'ai pas encore eu le temps de regarder votre source en détail, mais je vais le faire.
Pour moi, au premier abord, juste un petit problème: lors d'une capture d'image celle-ci est toujours nommée (0,0).bmp Je suppose que vous vouliez mettre les coordonnées (peut être un problème de séparateur décimal?)
Une petite idée de fonction complémentaire (à moins que je ne l'ai pas vu!). Comme il est possible de déplacer la carte dans la fenêtre Google, il serait bien de pouvoir récupérer les nouvelles coordonnées après déplacement. Ceci permettrait, par exemple, de se positionner avec des coordonnées approximatives puis, à l'aide du zoom et du déplacement d'obtenir les coordonnées précises d'un point.

Cordialement
Pierre

signaler à un administrateur
Commentaire de pierrefo le 14/07/2008 10:18:17

Re Bonjour,

J'ai oublié deux points dans mon commentaire précédent.

1- J'ai moi-même réalisé une page .html avec script me permettant de faire une recherche à partir d'une adresse et de visualiser la carte Google et la carte ViaMichelin (l'API est aussi disponible). Je peux ensuite me déplacer sur l'une ou l'autre des cartes puis les re-synchroniser et récupérer les coordonnées. Ce code n'a pas sa place ici puisqu'il ne s'agit pas de Delphi mais si ca peut vous donner des idées je peux vous l'envoyer par e-mail.

2- Je vous conseille d'éviter de mettre votre 'KEY' dans le code source posté. Certains ne prennent pas la peine de s'enregistrer, même si c'est gratuit, et utilisent votre propre code. Vous risquez alors de voir votre compte bloqué. Je vous donne ce conseil car ça m'est arrivé!!

Bonne journée
Pierre

signaler à un administrateur
Commentaire de pierrefo le 14/07/2008 11:34:16

Re Re ...

Au lieu d'utiliser des combobox pour l'échelle (zoom) et le type de carte, il est possible de se servir des fonctions incluses dans l'api Google et qui visualisent sur la carte un curseur d'échelle et des boutons de sélection de la visualisation.

Pour ça il suffit dans CodeHTML d'ajouter l'appel de ces fonctions après le 'map.setCenter' :

             +'map.setCenter(new GLatLng('+Latitude.Text +','+ Longitude.Text    +'),'+inttostr(Zoom.ItemIndex) + ','+'G_'+MapType.Text +'_MAP'+');'#13
             +'map.addControl(new GLargeMapControl());'#13
             +'map.addControl(new GMapTypeControl());'#13
             +'map.addControl(new GScaleControl());'#13

Amicalement
Pierre

signaler à un administrateur
Commentaire de cincap le 14/07/2008 12:59:19

Bonjour à toutes et à tous,

@ aminedelphi, Cela à l'air très bien mais pas moyen d'utiliser cette source, car le composant "TWebBrowser" manque avec mon Delphi 6.

Peus tu me dire ou télécharger cette vcl.

Merci,

@+,

Cincap

signaler à un administrateur
Commentaire de pierrefo le 14/07/2008 15:02:22

Re Bonjour,

Voilà j'ai rajouté dans le TWebBrowser un bouton et deux zones texte permettant, après déplacement de la carte d'obtenir les nouvelles coordonnées du centre.

Il suffit de modifier le CodeHTML et de mettre :

CodeHTML := '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"'
             +'"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'#13
             +'<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">'#13
             +'<head>'#13
             +'<meta http-equiv="content-type" content="text/html; charset=utf-8"/>'#13
             +'<title>Google Maps JavaScript API Example: Simple Map</title>'#13
             +'<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key='+ mykey+'"'#13
             +'type="text/javascript"></script>'#13
             +'<script type="text/javascript">'#13
             +'function initialize() {'#13
             +'centreG = new GLatLng;'#13
             +'if (GBrowserIsCompatible()) {'#13
             +'map = new GMap2(document.getElementById("map_canvas"));'#13
             +'map.setCenter(new GLatLng('+Latitude.Text +','+ Longitude.Text +'),'+inttostr(Zoom.ItemIndex) + ','+'G_'+MapType.Text +'_MAP'+');'#13
             +'map.addControl(new GLargeMapControl());'#13
             +'map.addControl(new GMapTypeControl());'#13
             +'map.addControl(new GScaleControl());'#13
             +'functioncentre();'#13
             +'  }'#13
             +' }'#13
             +'function functioncentre() {'#13
             +'centreG = map.getCenter();'#13
             +'document.coord_G.G_long.value = centreG.lng();'#13
             +'document.coord_G.G_lat.value = centreG.lat();'#13
             +' }'#13
             +'</script>'#13
             +'</head>'#13
             +'<body onload="initialize()" onunload="GUnload()">'#13
             +'<div>'#13
             +'<form action="" name="geocoder_form" id="geocoder_form" style="margin-top: 10px;">'#13
             +'<input value="Coordonn&eacute;es Centre" onclick="functioncentre();" type="button">'#13
             +'</form></div>'#13
             +'<div>'#13
             +'<form action="" name="coord_G" id="coord_G" style="margin-top: 10px;">'#13
            +'<font size="2">Longitude : </font> <input value=" " name="G_long" size="14" maxlength="12" 2="" type="text">'#13
         +'<font size="2">Latitude : </font> <input value=" " name="G_lat" size="12" maxlength="14" 2="" type="text">'#13
           +'</form>'#13
             +'</div>'#13
             +'<div id="map_canvas" style="width: 512px; height: 512px"></div>'#13
             +'</body>'#13
             +'</html>'#13 ;


Ajout du bouton et des zones dans la partie <body> du code HTML et adjonction dans le script de la fonction functioncentre() qui récupère les coordonnées et alimente des deux zones Latitude et Longitude.

Bonne journée à toutes et tous
Pierre

signaler à un administrateur
Commentaire de systmd le 14/07/2008 22:35:56 10/10

Bonsoir
@ aminedelphi : du trés bon boulot

@ cincap : si tu utilise les versions "perso" de delphi il faut installer l'active X du TWebBrowser.
Consulte la marche à suivre içi :
http://phidels.com/php/index.php3?page=../php/activex/acivexie4.htm&id=178&PHPSESSID=60b39beaa2b326fb8292d55e2738193e

signaler à un administrateur
Commentaire de cincap le 14/07/2008 23:12:09

Bonsoir,

@ SYSTMD, Merci, c'est déjà fait cet après midi après une recherche sur Google et cela fonctionne.

10/10

@+,

Cincap

signaler à un administrateur
Commentaire de aminedelphi le 15/07/2008 03:05:15

Bonjour à toutes et à tous et  Bonjour Pierre
Merci pour le conseille y a pas que le Key il y a aussi ou je crèche on zooment un peu plus .
Bon revenant a notre sujet
Au départ  le but de ce petit programme été de me permettre d'avoir les cartes pour mon petit module GPS (Les Map) et les carte son payant alors il me faut des carte numériser et gratuite c'est pour ça que  Delphi google Map fut créer .  
Pour les bitmap (0,0) il appartienne a une matrice  (n,n) c'est-à-dire pour un zoom donner je devez avoir tout la carte mais découper en petit morceau la matrice  (n,n)  représente le nom du petit morceau  
Exemple pour le Zoom 2 on a 4 puissance 2 ce qui donne 16 morceau de carte de 256*256 Pixel (nombre d'image=4^Zoom) des petit fichier facile a charger dans une autre application off ligne (pour mon module GPS et Même pour PC)
Même google utilise cette technique en quelque sort pour leur piller leur map à leur méthode.
Pour des images plus grande 512 * 512 je devisais le zoom/2
C'est pour ça que les boutons optionnel de google Map ne figuré pas a l'aperçu  
Pour le bouton Auto Capture il génère des altitudes et des longitudes pour me permettre d'avoir tout les petit image avec précision car tout les coordonner son le milieux de la page afficher Horizontalement et verticalement .
Exemple    pour le zoom=2 (long Matrice ==4^Zoom/2=2=n) pour des image 512*512 Pixel
Long :-90° ,Lal :45° nom image(0,0);Long : 90° ,Lal :45° nom image(0,1)          
Long :-90° ,Lal :-45° nom image(1,0);Long : 90° ,Lal:-45° nom image(1,1)
Resultat :
(0,0) (0,1)
(1,0) (1,1)
2 image Hor et 2 Ver (n,n)=(2,2)
For Free I Can En joy
Et les fichier matrice.text et Zoom.text me permeté de faire une pause des capture (une sauvegarde)
mais désolé ça na marche pas car Google map fais a ça tête !!!  
en plus j'ai fait les calcule pour avoir tout la base de donner de google map il fallait
environ  800 siècle de téléchargement en continu et des centaine de Giga de stockage
car mon but s'été un Module GPS universelle un peu fous non .  
mais j'ai trouver une autre méthode plus barbare  mais pour la prochain fois.
une petit question es que quelqu'un connais comment on peux avoir l'affichage du TWebBrowser dans une image Merci à tous pour les commentaire chaleureux   a+
  

signaler à un administrateur
Commentaire de yvessimon le 15/07/2008 13:35:53

Bonjour  ,
En modifiant le code html j'ai bien la possibilité de faire les zooms qui s'affiche.

Par contre l'image sauvegardée contient aussi les images des boutons du zoom.

Est-il possible de ne sauvegarder que l'image html ?

Merci

signaler à un administrateur
Commentaire de yvessimon le 15/07/2008 14:42:38

Bonjour,
Depuis 14 heure 40mn il ne charge plus de carte ?

Salutations

signaler à un administrateur
Commentaire de pierrefo le 15/07/2008 16:07:49

Bonjour,
Les composants Google étant intégrés à l'image envoyée je pense que la seule solution serait de regénérer la carte sans ces composants avant d'effectuer une sauvegarde.

Je profite de cette réponse pour préciser à ceux qui voudraient tester le code que j'ai posté pour récupérer les coordonnées du centre après déplacement, que j'ai modifié l'introduction de la clé individuelle fournie par Google. Dans le code initiale cette clé était visible à l'écran dans un Tedit appelé 'Key'. Personnellement je l'ai introduite dans une variable string intitulée 'mykey'. Donc soit vous remplacez dans mon code le +mykey par +key.txt (comme c'était dans la version d'origine), soit vous définissez une variable 'mykey' que vous initialisez avec votre clé.

Salutations

signaler à un administrateur
Commentaire de aminedelphi le 15/07/2008 16:59:22

NB : que la capture d'image et simplement un Imprime écran

le Key et toujour valide pour moi

signaler à un administrateur
Commentaire de aminedelphi le 15/07/2008 18:34:40

bonjour
le code source a été modifier un peu en ajoutant quelque animation
--pas Besoin du Key ça marche !!?

signaler à un administrateur
Commentaire de ahmed12 le 16/07/2008 09:47:57

bonjour

Je vaudrais afficher l'aperçu ou le serf qui ce trouve en bas de la map dans un rectangle comme dans le site google map qui facilite la navigation dans une map.
Est ce que quelqu'un connais comment rajouter cette fonction dans le code html
Merci d'avance  

signaler à un administrateur
Commentaire de pierrefo le 16/07/2008 10:29:50

Bonjour AHMED12,

Pour visualiser le rectangle permettant de se déplacer dans la région il faut ajouter dans CodeHTML la commande suivante après le map.setcenter :

    + 'map.addControl(new GOverviewMapControl());'#13

Bonne journée à toutes et tous

signaler à un administrateur
Commentaire de laurentgirard le 16/07/2008 10:40:56

Bonjour,

Félicitations pour cet exemple d'utilisation des API Google Map !

Sans vouloir abuser, savez vous comment faire apparaitre une info bulle lors d'un click sur un point de la carto ?

Merci par avance, et bonne journée à tous.

signaler à un administrateur
Commentaire de yvessimon le 16/07/2008 11:33:40

Bonjour,

Fonctionne très bien malgrés mon accès au réseau pertubé.

Mais ou est l'image dans  WebBrowser1 ?

Salutations

signaler à un administrateur
Commentaire de pierrefo le 16/07/2008 12:11:02

Bonjour LAURENTGIRARD,

Je n'ai pas regardé la possibilité de visualiser une info bulle par un click. Par contre j'ai réalisé la visualisation d'un curseur (initialement positionné au centre de la carte). Ce curseur peut être déplacé à l'aide de la souris et en fin de déplacement il affiche les coordonnées de la nouvelle position du curseur. Voici la partie script que j'utilise dans CodeHTML si ca peut te donner des idées (l'API Google est assez complète):

    + '<script type="text/javascript">'#13
    + 'function initialize() {'#13
    + 'centreG = new GLatLng;'#13
    + 'centreM = new GLatLng;'#13
    + 'if (GBrowserIsCompatible()) {'#13
    + 'map = new GMap2(document.getElementById("map_canvas"));'#13
    + 'centreG1 = new GLatLng(' + Latitude.Text + ',' + Longitude.Text + ');'#13
    + 'map.setCenter(centreG1,' + inttostr(Zoom.ItemIndex) + ',' + 'G_' + MapType.Text + '_MAP' + ');'#13
    + 'map.addControl(new GLargeMapControl());'#13
    + 'map.addControl(new GMapTypeControl());'#13
    + 'map.addControl(new GScaleControl());'#13
    + 'map.addControl(new GOverviewMapControl());'#13
    + 'var marker = new GMarker(centreG1, {draggable: true});'#13
    + 'GEvent.addListener(marker, "dragstart", function() {'#13
    + 'map.closeInfoWindow();'#13
    + ' });'#13
    + 'GEvent.addListener(marker, "dragend", function() {'#13
    + 'centreM = marker.getLatLng();'#13
    + 'marker.openInfoWindowHtml("Longitude = "+centreM.lng()+"<br/>Latitude = "+centreM.lat());'#13
    + ' });'#13
    + 'map.addOverlay(marker);'#13
    + 'functioncentre();'#13
    + '  }'#13
    + ' }'#13
    + 'function functioncentre() {'#13
    + 'centreG = map.getCenter();'#13
    + 'document.coord_G.G_long.value = centreG.lng();'#13
    + 'document.coord_G.G_lat.value = centreG.lat();'#13
    + ' }'#13
    + '</script>'#13

Salutations

signaler à un administrateur
Commentaire de ahmed12 le 16/07/2008 12:40:16

merci pierrefo pour la réponse rapide.

je voudrai aussi savoir comment afficher la flache qui fait agrandir la map sur la page web.

merci pour toutes et tous.

signaler à un administrateur
Commentaire de pierrefo le 16/07/2008 19:16:18

Bonsoir Ahmed,
De quelle flèche veux-tu parler?
Voici les principaux controles que je connais:

GSmallMapControl() :Creates a control with buttons to pan in four directions, and zoom in and zoom out.

GLargeMapControl() : Creates a control with buttons to pan in four directions, and zoom in and zoom out, and a zoom slider.

GSmallZoomControl() : Creates a control with buttons to zoom in and zoom out.

GScaleControl() : Creates a control that displays the map scale.

GMapTypeControl() : Creates a control with buttons to switch between map types.

GOverviewMapControl() : Creates a collapsible overview mini-map in the corner of the main map for reference location and navigation (through dragging). The GOverviewMapControl creates an overview map with a one-pixel black border.

Pour les utiliser il suffit d'ajouter dans CodeHTML la création du controle du type :

   + 'map.addControl(new GScaleControl());'#13

Pour ceux qui souhaitent voir des exemples de mise en oeuvre de l'API Google, voici, outre le site Google, un site assez complet en exemples:
http://econym.googlepages.com/index.htm

Salutations

signaler à un administrateur
Commentaire de pierrefo le 16/07/2008 19:40:45

Bonsoir YVESSIMON,

Une petite idée si tu veux récupérer l'image sans les controles.

Il suffit de ne faire apparaitre les controles que lorsque le curseur de la souris est sur la map et de les masquer dès qu'elle sort. Pour ça tu rajoutes les commandes suivantes sur les évènements mouseover et mouseout :

////'mouseover' listener shows controls

GEvent.addListener(map, "mouseover", function(){
map.showControls();
});

////'mouseout' listener hides controls

GEvent.addListener(map, "mouseout", function(){
map.hideControls();
});

Mais je pense finalement que ces infos relèvent plus d'un site sur Google que sur Delphi, bien qu'on puisse être adepte des deux! Qu'en pense notre modérateur ou administrateur?

Amitiés
Pierre

signaler à un administrateur
Commentaire de yvessimon le 17/07/2008 10:16:22

Bonjour,

Je suis perdu !

Ou doit-on mettre GEvent.addListener ...
dans le string CodeHTML ?

car dans WebBrowser1   je ne vois pas d'événement mouseover !

par contre il doit bien y avoir y image de créée dans WebBrowser1.  
Salutations

signaler à un administrateur
Commentaire de pierrefo le 17/07/2008 11:20:05

Bonjour Yves,

Oui c'est bien dans CodeHTML qu'il faut ajouter les lignes correspondantes. Par exemple:

    + 'GEvent.addListener(map, "mouseover", function(){'#13
    + 'map.showControls();'#13
    + '});'#13
    + 'GEvent.addListener(map, "mouseout", function(){'#13
    + 'map.hideControls();'#13
    + '});'#13

Concernant l'image si tu regardes la partie HTML dans CodeHTML une définition de <DIV> appelée map_canvas :

    + '<div id="map_canvas" style="width: 512px; height: 512px"></div>'#13

C'est là que se trouve la map retournée par Google (voir aussi dans la partie script de CodeHTML la définition de l'objet map :

    + 'map = new GMap2(document.getElementById("map_canvas"));'#13

Salutations

signaler à un administrateur
Commentaire de yvessimon le 17/07/2008 12:03:38

Bonjour,
A l'adresse
http://www.developpez.com/delphi/faq/?page=webrowser#webpropimages
on trouve comment récupérer les liens de chcunes des images.

ceci permet de récuperer des images propres.

par contre l'image est bien dans le PC comment la récuperer ?


Salutations

signaler à un administrateur
Commentaire de pierrefo le 17/07/2008 15:16:40

Bonjour YVESSIMON,

Je pense qu'il faut que tu précises ce que tu veux récupérer. En effet Google ne renvoie pas 1 image mais un ensemble de 'tile' qui, misent cote à cote, constitue l'image que tu vois. (cf. la documentation de l'API Google). Ce sont donc l'ensemble de ces 'tiles', chaque 'tile' constituant une image qui se trouve dans le TWebBrowser. A titre d'exemple, mets sur la Form1 un bouton et un Tedit (appelé nbimage) et sur le clic du bouton tu mets le code :

  nbimage.Text := inttostr(WebBrowser1.OleObject.Document.Images.Length);

Tu vas récupérer le nombre d'images dans le TWebBrowser qui dépend du type de visualisation (dans l'exemple de ce programme moi j'en récupère 44 en mode plan et 76 en mode mixte).

Si ton objectif est de simplement récupérer une image, la technique utilisée par AMINEDELPHI dans Button2Click est sans doute la plus simple (du type copie d'une zone d'écran). C'est plus simple que de récupérer 44 images et de les réassembler.

Si dans le code HTML soumis au TWebBrowser tu rajoutes certains composants (boutons, imput ...) il suffit d'ajuster les coordonnées du rectangle dans:

  GetScreenBitmap(rect(form1.Left + 13, form1.Top + 44, 512, 512), map);

Remplacer +13 et +44 pour ne recopier que la map en fonction de sa position.

Salutations

signaler à un administrateur
Commentaire de yvessimon le 18/07/2008 10:39:17

bonjour,
avec ces deux commande le presse papier contien toutes les images
// Sélectionner tout
webbrowser1.ExecWB(OLECMDID_SELECTALL , OLECMDEXECOPT_DODEFAULT);
// Copier
Webbrowser1.ExecWB(OLECMDID_COPY , OLECMDEXECOPT_DODEFAULT);

ce qui permat de les mettres dans word dans le désordre.

Par contre il doit bien y avoir une image de créée dans webrowser pour afficher l'ennsemble des images.
C'est pour comprndre le cheminement des données.


Salutations

signaler à un administrateur
Commentaire de pierrefo le 18/07/2008 20:55:23

Bonsoir,

Non il n'y a pas une image dans le webbrowser mais un ensemble de petites images (les 'tiles' de Google) qui positionnées cote à cote ou l'une en dessous de l'autre donnent la vue complète de la carte. D'ailleurs très souvent selon la charge du réseau, du serveur ou de ton PC tu pourras constater que l'affichage s'effectue par carré.

Par conséquent soit tu récupères toutes les petites images et reconstitue toi-même la carte globale, soit tu profites de l'assemblage réalisé à l'écran et effectues une copie d'écran. La reconstitution se fait par le positionnement des tiles élémentaires mais il n'y a pas une image complète reconstituée dans le webbrowser.

Bonne soirée

signaler à un administrateur
Commentaire de ahmed12 le 19/07/2008 10:46:02

Bonjour pierrefo

La flèche que je veux faire apparaître elle est afficher en petit sur la gauche de la map.

voir ce lien http://maps.google.com/maps?hl=fr&tab=wl

merci d'avance

signaler à un administrateur
Commentaire de pierrefo le 19/07/2008 19:11:01

Bonjour Ahmed,

Cette flèche à gauche n'est pas un composant de Google Map. C'est un simple outil de gestion de HTML dynamique qui masque la partie gauche (résultat des recherches) et agrandit la zone attribuée à la carte.

Dans le code de cet exemple, ceci revient à recharger la carte après avoir modifié, dans CodeHTML les dimensions affectées à map_canvas :
    + '<div id="map_canvas" style="width: 512px; height: 512px"></div>'#13

Tu peux essayer de lancer l'affichage de la carte après avoir modifié ce code, par exemple:
    + '<div id="map_canvas" style="width: 812px; height: 512px"></div>'#13

Lors de la création de l'élément GMap tu lui indique où elle sera visualisée:
    + 'map = new GMap2(document.getElementById("map_canvas"));'#13
et l'image crée tient compte des dimensions de la zone.

Tu peux donc ajouter dans ta page HTML tout élément dont l'activation par un clic lancera une fonction javascript qui modifiera la position ou la dimension de la zone affectée à l'image. Mais il s'agit là d'HTML Dynamique et de JavaScript beaucoup plus que de Delphi.

Cordialement

signaler à un administrateur
Commentaire de ahmed12 le 20/07/2008 12:43:43

bonjour
merci pierrefo
le faite mon objectif c'été de faire agrandir et éclater la map dans la canavas et j'ai essaie dans le codeHTML ca et sa marche bien:

+ '<div id="map_canvas" style="width: 100%px; height: 512px"></div>'#13
bon courage



signaler à un administrateur
Commentaire de aminedelphi le 20/07/2008 16:22:04

Bonjour
Génial Ahmed  comment a tu trouver ça le 100%px
Il reste maintenant que la reconstitution du puzzle
A+

signaler à un administrateur
Commentaire de pierrefo le 20/07/2008 17:18:02

Bonjour,

AMINEDELPHI, pour la reconstitution du puzzle je te conseille de lire la documentation Google. Voici le lien pour l'explication des 'tiles':
http://code.google.com/apis/maps/documentation/overlays.html#Tile_Overlays

Bon courage, mais si en final c'est juste pour réassembler les 'tiles' du puzzle tu as intéret à faire une copie de la partie d'écran concernée!

AHMED12, tu peux même rendre dynamique le dimensionnement de la carte et faire apparaitre des ascenseurs horizontal et vertical si tu dépasse la taille du WebBrowser.
Pour un exemple, tu peux essayer ça:

Mettre un bouton dans la page HTML, par exemple avant + '<div id="map_canvas"

    + '<input value="Change Largeur" onclick="functionlarge();" type="button">'#13

Ceci crée un bouton qui lance la function functionlarge en cliquant dessus

Dans la partie script de CodeHTML, avant     + '</script>'#13
tu rajoutes la fonction functionlarge (la variable t_largeur sert juste à faire du flip-flop entre les dimensions :

    + 't_largeur = 512;'#13
    + 'function functionlarge() {'#13
    + 'if (t_largeur == 512) {'#13
    + '  document.getElementById("map_canvas").style.width = "1000px";'#13
    + '  document.getElementById("map_canvas").style.height = "800px";'#13
    + '  t_largeur = 1000;'#13
    + '}'#13
    + 'else {'#13
    + 'document.getElementById("map_canvas").style.width = "512px";'#13
    + 'document.getElementById("map_canvas").style.height = "512px";'#13
    + 't_largeur = 512;'#13
    + '}'#13
    + ' }'#13

Ce petit exemple montre comment récupérer et modifier dynamiquement les caractéristiques d'un objet de la page HTML.

Amicalement

signaler à un administrateur
Commentaire de MAURICIO le 25/07/2008 15:39:23

Salut,

source atypique et interessante.

Il manque une certaine interactivité entre le WebBrowswr et les compos de control: actualiser par exemple la longitude dans le TEdit à chaque fois que l' on se déplace sur la carte. Pour cela, il te faut récupérer le code HTML généré:

uses MSHTML_TLB;

var
  document: IHTMLDocument2;
begin
  Document := WebBrowser1.Document as IHTMLDocument2;
  MemSrc.Lines.Text := Document.Body.innerHTML;


Ensuite, il ne reste plus qu' à récupérer les données necessaires.

A+

signaler à un administrateur
Commentaire de pierrefo le 25/07/2008 20:56:39

Bonjour,

Pour ma part J'ai intégré dans le WebBrowser des champs permettant de récupéréer la position du curseur et celle du marqueur:

    + '<form action="" name="coord_G" id="coord_G" style="margin-top: 10px;">'#13
    + '<font size="2">Longitude : </font> <input value=" " name="G_long" size="14" maxlength="12" 2="" type="text">'#13
    + '<font size="2">Latitude : </font> <input value=" " name="G_lat" size="12" maxlength="14" 2="" type="text"><br/>'#13
    + '<font size="2"> Marqueur Longitude : </font> <input value=" " name="M_long" size="14" maxlength="12" 2="" type="text">'#13
    + '<font size="2">Latitude : </font> <input value=" " name="M_lat" size="12" maxlength="14" 2="" type="text">'#13
    + '</form>'#13
    + '</div>'#13
    + '<div id="map_canvas" style="width: 600px; height: 550px"></div>'#13

et associé l'évènement 'drag' du marqueur pour maintenir à jour ces <input>:

    + 'GEvent.addListener(marker, "drag", function(){'#13
    + 'var pointM = new GLatLng;'#13
    + 'pointM = marker.getLatLng();'#13
    + 'document.coord_G.M_long.value = pointM.lng();'#13
    + 'document.coord_G.M_lat.value = pointM.lat();'#13
    + '});'#13

Dans le programme Delphi il suffit d'un bouton avec le code suivant pour récupérer directement les coordonnées finales du marqueur:

procedure TPOIForm.RecupClick(Sender: TObject);
begin
  Latitude.Text := GoogleBrowser.MapGoogle.MapBrowser.OleObject.Document.coord_G.M_lat.value;
  Longitude.Text := GoogleBrowser.MapGoogle.MapBrowser.OleObject.Document.coord_G.M_long.value;

end;

Nota: j'utilise l'accès GoogleMap dans une unité indépendante avec sa propre fenêtre et son composant TwebBrowser (unité: GoogleBrowser, Form: MapGoogle, TWebBrowser: MapBrowser)


J'utilise ce type de fonctionnement pour visualiser des POI GPS ainsi que les points géographiques issues de bases de données. Au lancement je centre la carte Google sur les coordonnées en ma possession et affiche un marqueur sur ce point. Le déplacement de ce marqueur et la récupération de ses coordonnées me permettent d'affiner les coordonnées.

Je me suis contenté de donner quelques réponses dans cette discussion, et je n'ai pas mis cette application en ligne car elle nécessite une base de données Oracle et des composants optimisant l'accès Oracle et non livrés en standard.

Amitiés

signaler à un administrateur
Commentaire de saima ben hadj le 29/07/2008 16:04:09

salut, je suis entrain de devéloppée un projet utilisant l'api google maps. je veut ajouter des nombres à la carte sans que ces nombres soient affichés sur un marqueur. quelqu'un peut m'aider. merci

signaler à un administrateur
Commentaire de pierrefo le 29/07/2008 21:16:34

Bonsoir SAIMA,
Avec l'API GoogleMap il existe deux possibilités (peut-être y en a-t-il d'autres?) qui peuvent t'aider pour ton besoin:

La premiére est la possibilité de définir des icons en tant que marqueur. Il te suffit d'avoir des icones représentant les chiffres.

La deuxième est la possibilité de définir ses propres controles, qui peuvent être textuel, et donc des chiffres, que tu pourras placer sur la map.

Je te conseille de consulter la doc API Google sur leur site, et en particulier les paragraphes 'Custom Map Controls' et 'Custom Icon'

Amitiés

signaler à un administrateur
Commentaire de pierrefo le 06/08/2008 00:52:28

Bonsoir à toutes et à tous,

Juste un petit conseil pour celles et ceux qui veulent "jouer" avec l'API GoogleMap.
Au lieu d'insérer tout le code du script dans CodeHTML, créé un fichier par exemple MonGoogle.js qui sera de format texte et dans lequel vous pourrez écrire directement le script en Javascript. Et dans codeHTML vous remplacez toute la partie script par:

+ '<script src="MonGoogle.js" type="text/javascript"></script>'#13

Bien sur le fichier MonGoogle.js doit se trouver dans le répertoire de votre exécutable.

Ceci vous permet de modifier le script, de tester d'autres fonctions de GoogleMap sans avoir à modifier le source du programme Delphi et le recompiler.

Bonne soirée

signaler à un administrateur
Commentaire de saima ben hadj le 07/08/2008 14:48:28

salut à tous,
au fait j'ai deux questions consernant l'utilisation de l'API Google Maps:
la première est : peut on récuperer l'adresse ou les coordonnées sur la carte de la machine connectée?
et la deuxième est : est ce qu'on peut décomposer la carte d'un pays en des gouvernera ça veut  dire afficher les limites de chaque gouvernera.
merci pour votre aide

signaler à un administrateur
Commentaire de pierrefo le 07/08/2008 17:42:29

Bonjour Saima,
Pour ta première question: En fait c'est Toi qui spécifie à Google les coordonnées de la carte à afficher. Google n'a aucun moyen de connaitre ta position géographique (pour cela il faudrait que tu soit équipé d'un émetteur type GPS et que Google vienne l'interroger.). Par contre si tu connais tes coordonnées (longitude et latitude) tu peux soit demander que la carte affichée soit centrée sur ce point, soit ajouter un marqueur à cet emplacement.
Pour ta deuxiéme question: Google propose différents type d'affichage (carte, satellite ..) plus ou moins détaillés selon les emplacements. Les divisions administratives ne sont effectivement pas toujours indiquées. Par contre il est possible de rajouter sur les cartes Google des informations provenant d'autres sources. Mais je pense que pour cela il vaut mieux que tu t'adresses à un forum GoogleMap ou OpenLayers, plutot qu'à une discussion Delphi. Le sujet est en effet assez vaste et complexe. (Nota: j'ai cité OpenLayers car, à mon avis, il offre des possibilités plus "fines" que Google et permet, en autre, de récupérer des couches Google)
Amitiés.

signaler à un administrateur
Commentaire de elkhlifiyoussef le 18/08/2008 11:25:11

bonjour Saima,
j'esper t a resolu ton probleme ,benh moi je peus pas t'aider dans ce baigne de delfi.. mais juste pour te dire bon courage .
allez a+.

signaler à un administrateur
Commentaire de jeanjeandada le 14/11/2008 11:49:39 9/10

Chapeau .... les gars !!!!!! Bravo.
J'ai essayé de reprendre le code du projet pour me le mettre dans un autre de mes projet pour le modifier selon mes envie. Mon projet se compile mais lorsque sur un des boutons il affiche un message d'erreur:
"Violation d'accés à l'adresse 0048887E dans le module 'Project1.exe'. Lecture de l'adresse 000000000"
Je pense que le problème vient de morceaux de code :

             +'<meta http-equiv="content-type" content="text/html; charset=utf-8"/>'#13
             +'<title>Google Maps JavaScript API Example: Simple Map</title>'#13
             +'<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;'#13

Mais je ne sais quoi faire pour y remédier !!
Merci par avance de bien m'expliquer pq
merci!

signaler à un administrateur
Commentaire de aminedelphi le 15/11/2008 17:50:05

Bonjour
si ta copier le code a l'identique et que ça bloque alors vois avec le WebBrowser1 si la propriétés Silent est a True
car il pose des problèmes des fois mais avec internet explorer 7 ca pose pas de problèmes
@+    

signaler à un administrateur
Commentaire de pierrefo le 16/11/2008 09:49:33

Bonjour JEANJEANDADA,
Si ton code est exactement celui que tu as donné le problème provient probablement d'un refus de la connexion par Google.Pour utiliser l'API Google tu dois être inscrit et poséder une clef d'accès (voir http://code.google.com/apis/maps/signup.html)

Cette clef doit être indiquée dans l'appel du script. Par exemple :
    + '<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=' + mykey + '"'#13

Dans laquelle mykey est une variable string dans laquelle tu auras rentré la clef fournie par Google lors de ton inscription.
Cordialement.

signaler à un administrateur
Commentaire de aminedelphi le 16/11/2008 16:01:51

Bonjour
Pierre ça fait plaisir de te revoir et tout les autre aussi
@+

signaler à un administrateur
Commentaire de jeanjeandada le 19/11/2008 09:36:23

Bonjour tout le monde,

Voilà aprés avoir mis la propriété Silent à True, de TwebBrowser, d'avoir remplacer 'mykey ' par ma clé, j'ai tjrs l'erreur de "Violation d'accés ....."

voici le code avec ma clé :
CodeHTML := '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"'
             +'"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">'#13
             +'<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">'#13
             +'<head>'#13
             +'<meta http-equiv="content-type" content="text/html; charset=utf-8"/>'#13
             +'<title>Google Maps JavaScript API Example: Simple Map</title>'#13
             +'<script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key='+ 'ABQIAAAAqHhhNK50RxB906fs404HgxQk6pxkT65eygJqsrDDJPRIXJfc3hQZBgWpL0CDxM_stTHvCLo8MAOjdA' +'"'#13

Est ce que qq1 pourrai essayer chez lui ma clé et me retourne le résultat.
(Sur la fiche j'ai seulement laisser le bouton "Genereted HTML" avec le Twebbrowser. Dans le code j'ai supprimé tout ce qui n'était pas en relation avec twebbrowser...: normalement tout est correct niveau code)

Merci des aides !

signaler à un administrateur
Commentaire de jeanjeandada le 19/11/2008 09:39:37

Oups j'ai oublié de dire que j'ai installé IE7 mais peut etre que Delphi charge la page sur Firefox par défaut..

signaler à un administrateur
Commentaire de aminedelphi le 19/11/2008 12:49:59

Bonjour
j'ai Firefox par défaut..  Et je me connecte sans Key
Est ça cause pas de problème c'est autre chose
@+

signaler à un administrateur
Commentaire de jeanjeandada le 20/11/2008 14:54:05

Ma page Web où j'ai la clé de google map est vide c.a.d. qu'elle ne comporte aucun script. Est ce que cela aurait une importance ?

signaler à un administrateur
Commentaire de pierrefo le 20/11/2008 15:42:32

Bonjour,
Une petite question : Est-ce que le programme mis ici par AMINEDELPHI fonctionne sans modification sur ta configuration?

Si oui je pense qu'il faut que tu examines en détail le code HTML que tu génères dans CodeHTML, ainsi que la séquence associée au clic du bouton (création du code html, génération d'un fichier comprenant ce code, lancement du TWebBrowser sur ce fichier)

signaler à un administrateur
Commentaire de jeanjeandada le 02/12/2008 15:30:34

Bonjour tout le monde,
ME revoilà d'attaque ^^
Je pense que j'ai trouvé la source de l'erreur :
Dans le code on déclare une constante :

const
  TEMP_FILE_NAME = '\BAGMaps.html';

La question est la suivante : A quoi sert le répertoire "file:///C:/BAGMaps.html" et que met on dedans ??
Sincère salutation !

signaler à un administrateur
Commentaire de aminedelphi le 02/12/2008 19:07:24

bonjour
tout d abord il faux comprendre le principe de fonctionnement de ce petit programme ,
le programme va écrire un fichier texte tous simplement qui contiendrai du code HTML ,le texte est le même pour seul variable la l'altitude et la longitude et le type de la carte ,
le fichier texte est sauvegarder sous le nom BAGMaps avec extension HTML  
il suffit de le nommer nom_fichier.Html pour que ce fichier soit considérai comme un fichier Html que l'on peut le naviguer (internet explorer vas exécute le contenu )  
et le déroulement du programme vas écraser l'ancien fichier et écrire un autre nouveau a la place de l'ancien et le naviguer
pour TEMP_FILE_NAME = '\BAGMaps.html' c'est juste une adresse au hasard que j'ai choisi si tu a l'adresse suivant C:/BAGMaps.html alors ta exécuter ton programme dans le disque C:
et si il est exécuter dans le D: tu aura D:/BAGMaps.html
@+

    

Ajouter un commentaire

Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Téléchargements

Logiciels à télécharger sur le même thème :

Comparez les prix Nouvelle version


RIM BlackBerry Storm 9530
Entre 72€ et 72€


Visiter le guide achat

Photothèque Nouveau !

Photo pretty girlsPhoto homme nu
Photo a pretty teenage girlPhoto machu picchu

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,374 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.