Bonjour à tous,
Je ne suis pas développeur, juste un simple passionné en informatique ayant appris sur le tas.
Je développe un petit logiciel qui intègre une image (qui est récupérée sur gmaps) pour ensuite y positionner des marqueurs.

Etape 1: Je dispose d'une liste de commune de la moselle.
Etape 2: j'obtiens les coordonnées de cette commune( Par exemple, "Boulay,Moselle")
Etape 3: Je positionne des marqueurs d'une certaine couleur pour d'autres endroits, et d'une autre couleur pour la ville de moselle.

Tout fonctionnait bien et puis...plus rien!
J'entends dire qu'il faut une clé google pour des ...api? Cela devient un peu compliqué pour moi.
Même le champs carte ne fonctionne pas dans mon windev 20.
Je dois avouer que je cherche depuis un certain temps....sans résultat
Votre aide me serait précieuse...

Voici le code concerné:

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
74
75
76
77
78
79
80
81
82
83
84
85
86
 
sEndroitmission est une chaîne = TABLE_CarteCompagnieLocation.COL_Communes..ValeurAffichée + ", moselle"
Zoom est un entier
Zoom = 10
Point est un gglParamètreCarte
rLatitude, rLongitude sont des réels
Localisation est un gglCoordonnée
Marq est un gglMarqueur
 
// Récupération de la longitude et latitude d'une adresse physique
Localisation = GglAdresseVersCoordonnées(sEndroitmission)
rLatitude = Localisation..Latitude
rLongitude = Localisation..Longitude
 
 
// Création du marqueur pour cette adresse
Marq.Latitude = rLatitude
Marq.Longitude =  rLongitude
Marq.Couleur = VertClair
Marq.Taille = gglPetit
Ajoute(Point..Marqueur, Marq)
 
// SAS
Marq.Latitude=49.112631
Marq.Longitude= 7.081183
Marq.Couleur=RougeClair
TableauAjoute(Point.Marqueur,Marq)
 
// SAG
Marq.Latitude= 48.719079
Marq.Longitude= 7.044791
Marq.Couleur=RougeClair
TableauAjoute(Point.Marqueur,Marq)
Point.Format = gglPNG32
 
// FOR
Marq.Latitude= 49.186359
Marq.Longitude= 6.904490
Marq.Couleur=RougeClair
TableauAjoute(Point.Marqueur,Marq)
Point.Format = gglPNG32
 
// FAU
Marq.Latitude= 49.052300
Marq.Longitude= 6.605030
Marq.Couleur=RougeClair
TableauAjoute(Point.Marqueur,Marq)
Point.Format = gglPNG32
 
// CHS
Marq.Latitude= 48.824253
Marq.Longitude= 6.506310
Marq.Couleur=RougeClair
TableauAjoute(Point.Marqueur,Marq)
Point.Format = gglPNG32
 
// ALB
Marq.Latitude= 48.934218
Marq.Longitude= 6.851081
Marq.Couleur=RougeClair
TableauAjoute(Point.Marqueur,Marq)
Point.Format = gglPNG32
 
// BOU
Marq.Latitude= 49.180244
Marq.Longitude= 6.497510
Marq.Couleur=RougeClair
TableauAjoute(Point.Marqueur,Marq)
Point.Format = gglPNG32
 
// AVO
Marq.Latitude= 49.1037701
Marq.Longitude= 6.6947331
Marq.Couleur=RougeClair
TableauAjoute(Point.Marqueur,Marq)
Point.Format = gglPNG32
 
// ROB
Marq.Latitude= 49.0470317
Marq.Longitude= 7.279327
Marq.Couleur=RougeClair
TableauAjoute(Point.Marqueur,Marq)
Point.Format = gglPNG32
 
 
IMG_Carto = GglRécupèreCarte(rLatitude,rLongitude, Zoom , 640, 640,gglPlan,Point)