inserer un point avec Mapwindows

j'aimairai savoir comment on insere un point dynamiquement sur une couche?
en fait j'ai essayé un truc comme :

Code:

---

p:= sf[2].point[index];

---

je ne sais pas à quoi sert index,
je voudrais savoir aussi est ce que on ne doit pas instancier p d'abord comme pour sf:= coshapefile.create;
au niveau du point on ne retrouve pas ça.
bref, si on peut me donner plus d'informations sur l'utilisation du point vu que le document referentiel des fonctions n'explique pas trop les fonctions et en plus la syntaxe est en vb. merci

MapWindows est un ActiveX
Cela ne concerne pas spécialement le Delphi, consultes les tutoriels, tu auras plus de réponse qu'ici !

Citation:

---

Envoyé par ShaiLeTroll

MapWindows est un ActiveX
Cela ne concerne pas spécialement le Delphi, consultes les tutoriels, tu auras plus de réponse qu'ici !

---

oui j'ai été sur ce lien; mais il n'ya pas assez de documentation pour delphi delphi, si quelqu'un a un lien suis preneur

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ShapeLayer[2].SFile := CoShapeFile.Create; //ShapeLayer[2].SFile.Open('C:\Shapefiles\cities.shp', nil); // ShapeLayer[2].Handle := Map1.AddLayer(ShapeLayer[2].SFile, true); Map1.LayerFont(ShapeLayer[2].handle,'Arial',7); pindex:=1; p:=CoPoint.Create; p.x:=-109.679100036621; p.y:=48.5438194274902; ShapeLayer[2].SFile.Shape[1].InsertPoint(p,pindex); ShapeLayer[2].Handle := Map1.AddLayer(ShapeLayer[2].SFile, true);

---

par exemple : ici j'essai d'ajouter un point sur une couche et l'afficher, mais il m'affiche erreur et s'arrete au niveau de la ligne en gras

Peut importe Delphi ou Pas
Ce qui compte déjà c'est l'utilisation des Méthodes !
Ensuite ce n'est qu'un problème de Syntaxe !

Citation:

---

Envoyé par moustaf_26

, mais il m'affiche erreur et s'arrete au niveau de la ligne en gras

---

Il affiche une erreur, certe, LAQUELLE ? Toujours fourni le message d'erreur ! sinon ça ne sert à rien de nous le dire !

Violation d'Acces ? OLE Exception 2147483648 ?

Et je me répète, ici, peu de gens connaissent MapWindows, à la limite, tu devrais poser des questions sur leur forum, et l'on pourra t'aider à traduire les sections de code en VB ou C++ en Delphi !
D'ailleurs, le site contient une mini démo Delphi que tu sers de base, je suppose, c'est donc que tu peux leur poser des questions Delphi sur leur Forum

Ou alors à chaque fois, il faut nous fournir les prototypes des fonctions, ou des liens vers une documentation en ligne !

Sinon, Shape[1], cela commence à ZERO ou à UN les indices de collections ?
Vérifie SFile.NumShapes

Mapwindows est un programme qui ouvre des shape files à l'instar d'un SIG.

Si veux programmer sous Delphi, c'est l'activex MapWinGis que tu utilises et tu dois donc faire tes recherches avec ce mot clé.
De même, tu as intérêt à utiliser ce mot dans le sujet de tes posts sur les forums.

Pour ta question, tu dois d'abord déclarer les variables :

Code:

---

1 2 3 4

Var Lindex, Pindex, Sindex: integer; // Numéro du Layer, du point et du shape P : MapWinGIS_TLB.Point; S : MapWinGIS_TLB.Shape;

---

Ta source devient :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

// Lindex := // selon que le Shape file existe ou est à créer pindex := 0; // Numéro du point p[pindex] := CoPoint.Create; // Le point 1 est créé p[pindex].x:=-109.679100036621; p[pindex].y:=48.5438194274902; Sindex := 0; S[Sindex] := CoShape.Create; S[Sindex].ShapeType := SHP_POINT; S[Sindex].Set_ShapeType(SHP_POINT); S[Sindex].InsertPoint(p[Pindex],Pindex); ShapeLayer[Lindex].EditInsertShape(S[Sindex],Sindex); // Instructions de définitions du shape dans la db Map1.MoveLayerTop(1); // 2 - 1 = 1 Rend le point est visible

---

Souvent, on ne veut pas enregistrer dans le shape file ce que l'on dessine mais simplement le visualiser dans un layer jusqu'à ce que le programme soit fermé, par exemple, des points de localisation, des symboles, etc.
Voici une procédure utilisant la fonction DrawCrossCircled qui fait clignoter un point :

Code:

---

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

Function DrawCrossCircled(X, Y, Radius : Double; Color : TColor; Circled, Scaled : Boolean) : Integer; Var R : Double; TmpDraw : Integer; begin // Dessiner une croix et un cercle au centre de la parcelle de côté < à 5 mm // Map.ClearDrawing(ParcelCircle); if (Scaled) and ((Sqrt(ParcelArea) / Scale) > 0.005) then exit; TmpDraw := Map.NewDrawing(dlSpatiallyReferencedList); R := Scale * Radius; // 0.005 (5 mm) est considéré comme minimum visible Map.DrawLine(X - R, Y, X + R, Y, 2, Color); Map.DrawLine(X, Y - R, X, Y + R, 2, Color); R := ConvertRadius(R); if Circled then begin Map.DrawCircle(X, Y, R + 0.001, Color, False); Map.DrawCircle(X, Y, R - 0.001, Color, False); end; Result := TmpDraw; end; Procedure FlashPoint(Map : TMap; Count : Integer; Colour : TColor; X, Y : Double); Var i, NoPnt : Integer; begin For i := 1 to Count do begin NoPnt := DrawCrossCircled(X, Y, 0.0015, Colour, True, False) ; Map.Refresh; Sleep(250); Map.ClearDrawing(NoPnt); Map.Refresh; Sleep(250); end; end;

---

Pour l'appeler en reprenant les coordonnées des points que tu as données :

Code:

---

FlashPoint(Map1,10,clRed,-109.679100036621,48.5438194274902);

---

Voilà pour essayer de te faire avancer.

Consultes aussi les liens suivants :
http://www.mapwindow.org/phorum/read...intview,page=1

Citation:

---

Envoyé par defluc

Mapwindows est un programme qui ouvre des shape files à l'instar d'un SIG.

Si veux programmer sous Delphi, c'est l'activex MapWinGis que tu utilises et tu dois donc faire tes recherches avec ce mot clé.
De même, tu as intérêt à utiliser ce mot dans le sujet de tes posts sur les forums.

Pour ta question, tu dois d'abord déclarer les variables :

Code:

---

1 2 3 4

Var Lindex, Pindex, Sindex: integer; // Numéro du Layer, du point et du shape P : MapWinGIS_TLB.Point; S : MapWinGIS_TLB.Shape;

---

Ta source devient :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

// Lindex := // selon que le Shape file existe ou est à créer pindex := 0; // Numéro du point p[pindex] := CoPoint.Create; // Le point 1 est créé p[pindex].x:=-109.679100036621; p[pindex].y:=48.5438194274902; Sindex := 0; S[Sindex] := CoShape.Create; S[Sindex].ShapeType := SHP_POINT; S[Sindex].Set_ShapeType(SHP_POINT); S[Sindex].InsertPoint(p[Pindex],Pindex); ShapeLayer[Lindex].EditInsertShape(S[Sindex],Sindex); // Instructions de définitions du shape dans la db Map1.MoveLayerTop(1); // 2 - 1 = 1 Rend le point est visible

---

Souvent, on ne veut pas enregistrer dans le shape file ce que l'on dessine mais simplement le visualiser dans un layer jusqu'à ce que le programme soit fermé, par exemple, des points de localisation, des symboles, etc.
Voici une procédure utilisant la fonction DrawCrossCircled qui fait clignoter un point :

Code:

---

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

Function DrawCrossCircled(X, Y, Radius : Double; Color : TColor; Circled, Scaled : Boolean) : Integer; Var R : Double; TmpDraw : Integer; begin // Dessiner une croix et un cercle au centre de la parcelle de côté < à 5 mm // Map.ClearDrawing(ParcelCircle); if (Scaled) and ((Sqrt(ParcelArea) / Scale) > 0.005) then exit; TmpDraw := Map.NewDrawing(dlSpatiallyReferencedList); R := Scale * Radius; // 0.005 (5 mm) est considéré comme minimum visible Map.DrawLine(X - R, Y, X + R, Y, 2, Color); Map.DrawLine(X, Y - R, X, Y + R, 2, Color); R := ConvertRadius(R); if Circled then begin Map.DrawCircle(X, Y, R + 0.001, Color, False); Map.DrawCircle(X, Y, R - 0.001, Color, False); end; Result := TmpDraw; end; Procedure FlashPoint(Map : TMap; Count : Integer; Colour : TColor; X, Y : Double); Var i, NoPnt : Integer; begin For i := 1 to Count do begin NoPnt := DrawCrossCircled(X, Y, 0.0015, Colour, True, False) ; Map.Refresh; Sleep(250); Map.ClearDrawing(NoPnt); Map.Refresh; Sleep(250); end; end;

---

Pour l'appeler en reprenant les coordonnées des points que tu as données :

Code:

---

FlashPoint(Map1,10,clRed,-109.679100036621,48.5438194274902);

---

Voilà pour essayer de te faire avancer.

Consultes aussi les liens suivants :
http://www.mapwindow.org/phorum/read...intview,page=1

---

salut, merci pour les codes. mais je peut savoir si c'est pour quel version de delphi, parce que p qui est un point ne prend pas sur mon editeur je ne peux ecrire de la façon dont tu as ecrit

Code:

---

p[index]

---

et dans ta fonction de representer un point sur le map, si je peux avoir des commentaires, par exemples la variable scale,scaled..à quoi ça sert.
merci

p doit être un array of MapWinGIS_TLB.Point;

Bien vu ShaiLeTroll, parmi tes nombreuses connaissances, tu aurais également la programmation scientifique et la cartographie ?

Quant à toi, moustaf_26, tout d'abord, la version de Delphi n'intervient pas dans l'utilisation de l'activex.
Ensuite, il faut savoir que la question de l'échelle est primordiale en cartographie.

Si tu dessines un objet à partir de ses coordonnées, tu ne le verras jamais si l'échelle d'affichage est très large.
Par exemple, un cercle de 1 m sera invisible à l'échelle de 1/100.000 ème.
Voici une fonction que j'ai créée pour calculer l'échelle.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function TMapForm.CalcScale : Double; Var RealDist, MapDist, Calibration : Double; PixDist : Integer; begin Calibration := GetDeviceCaps(GetDc(0), HorzSize)/10; Result := Calibration; // Echelle = 1/x où x = Distance terrain / mesure sur plan if Result = 0 then // Mesure sur plan = Distance terrain / x begin // Distance terrain = Mesure sur plan * x exit; end; MapDist := Calibration / 100; // Conversion en m PixDist := Screen.Width; // Largeur de l'écran RealDist := TranslationDist(0, 0, PixDist, 0).X; Result := RealDist / MapDist; end;

---

J'ai peut-être été trop vite en te fournissant des extraits de source avec des variables globales comme ParcelArea.

Attaches-toi à avancer par petits pas.

Ainsi, comme le relève ShaiLeTroll, commences par déclarer le point pour qu'il soit "reconnu" dans le contexte de MapWinGis.

Question : Tu visualises ta carte ?
Bon courage.

Citation:

---

Envoyé par defluc

Bien vu ShaiLeTroll, parmi tes nombreuses connaissances, tu aurais également la programmation scientifique et la cartographie ?

---

:yaisse2: Merci :bravo: Merci :roi: ... non juste de le sens de l'observation et assez de curiosité pour télécharger la démo Delphi de Paul Bailey :mouarf:
Toute la gloire en revient à l'auteur du composant et à Paul Bailey qui ont eu la bonne idée d'écrire une démo ! :ccool:

Se confronter à des problématiques différentes de celle de son travail quotidien permet se s'améliorer et trouver au final des solutions alternatives pour son propre travail !

Citation:

---

Envoyé par ShaiLeTroll

:yaisse2: Merci :bravo: Merci :roi: ... non juste de le sens de l'observation et assez de curiosité pour télécharger la démo Delphi de Paul Bailey :mouarf:
Toute la gloire en revient à l'auteur du composant et à Paul Bailey qui ont eu la bonne idée d'écrire une démo ! :ccool:

Se confronter à des problématiques différentes de celle de son travail quotidien permet se s'améliorer et trouver au final des solutions alternatives pour son propre travail !

---

salut, oui j'affiche m carte, j'affiche mes boutons avec un drawpoint,
ce que j'aimerais savoir, est qu'il possible d'afficher les informations d'un point afficher sur le passage de la souris?
parce que avec l'evenement onmousemove, une fois dans la carte, les coordonnées ne changent pas, mais si la souris sort du map pour revenir il capte les premiers coordonnées et ne varie plus.
je voudrais qu'il m'affiche dynamiquement les coordonnées si je bouge ma souris . merci