Appel de l'api "PolyBezier" en Delphi

Bonjour
J'essaie d'appeler l'api PolyBezier (http://msdn.microsoft.com/en-us/libr...=VS.85%29.aspx) déclarée dans l'unité Windows.pas comme ceci :

Code:

---

1 2	{$EXTERNALSYM PolyBezier} function PolyBezier(DC: HDC; const Points; Count: DWORD): BOOL; stdcall;

---

Dans mon code je procède comme suit:

Code:

---

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

var ... J:Integer; BitmapHDC: L_HDC;//Handle du bitmap sur lequel je vais dessiner APointsList: array of TPoint;//Tableaux dynamique des sommets de mon bezier ANbPoints: Integer;//Nombre de points de mon bezier begin //Initialisation de la taille du tableau de points ANbPoints := AContour.Count; SetLength(APointsList, ANbPoints); for J := 0 to ANbPoint - 1 do begin ...Divers calculs de changement de repère.... APointsList[J].X := AImagePoint2.X; APointsList[J].Y := AImagePoint2.Y; end; PolyBezier(BitmapHDC, APointsList, ANbPoints); end;

---

Malheureusement ça n'a pas l'air de marcher: les lignes affichées ne correspondent pas à ce que j'attends. Le calcul de coordonnées de AImagePoint2 est bon.
Ou se trouve mon erreur?
Merci de votre aide.

si tes points sont bons, essaie ceci

Code:

---

1 2	PolyBezier(BitmapHDC, APointsList[0], ANbPoints);

---

Salut,

Avec :

Code:

---

1 2 3 4 5

for J := 0 to ANbPoint - 1 do begin ...Divers calculs de changement de repère.... APointsList[J].X := AImagePoint2.X; APointsList[J].Y := AImagePoint2.Y; end;

---

... tous les APointsList[J] sont égaux à l'unique AImagePoint2 : Oui/Non ?

A+. :D

Code:

---

1 2	PolyBezier(BitmapHDC, APointsList[0], ANbPoints);

---

Ca marche :ccool:! Je n'ai rien pigé mais ça marche. T'aurais pas une chite explication ou un lien, histoire que je ne meure pas (trop) idiot!
Merci Paul TOTH

Citation:

---

... tous les APointsList[J] sont égaux à l'unique AImagePoint2 : Oui/Non ?

---

Non je n'ai pas mis tout le code pour ne pas surcharger mais AImagePoint2 prends différentes valeurs

Citation:

---

Envoyé par samaury

Code:

---

1 2	PolyBezier(BitmapHDC, APointsList[0], ANbPoints);

---

Ca marche :ccool:! Je n'ai rien pigé mais ça marche. T'aurais pas une chite explication ou un lien, histoire que je ne meure pas (trop) idiot!
Merci Paul TOTH

---

tout ça c'est la faute aux tableaux dynamiques, ils sont très pratiques mais source de nombreuses erreurs d'utilisation...tout comme les (long) string

la fonction attend un paramètre "const", c'est la méthode habituelle en C ou tu envoie le premier élément d'un tableau sachant que les autres suivent en mémoire, leur nombre est donné par un autre paramètre.

mais le mot clé "const" non typé peut être vu comme un "@" implicite

"APointsList" est un pointeur vers le premier élément du tableau
"APointsList[0]" est LE premier élément du tableau
c'est un peu comme "Pointer" et "Pointer^"

avec const tu as
"@APointList"
et
"@APointsList[0]"

et c'est bien cette dernière forme que l'on attend


ton code aurait fonctionné si la fonction avait été déclarée différemment:

Code:

---

1 2	function PolyBezier(DC: HDC; Points: Pointer; Count: DWORD): BOOL; stdcall;

---

Compris
Merci

Bonjour,

Au fait, y a-t'il un réel intérêt à appeler directement l'api PolyBezier (???)puisque l'on dispose de la procédure Delphi dont la syntaxe est bien plus simple et n'induit pas en erreur :

Code:

---

procedure PolyBezier(const Points: array of TPoint);

---

A+. :D

Citation:

---

Envoyé par Gilbert Geyer

Bonjour,

Au fait, y a-t'il un réel intérêt à appeler directement l'api PolyBezier (???)puisque l'on dispose de la procédure Delphi dont la syntaxe est bien plus simple et n'induit pas en erreur :

Code:

---

procedure PolyBezier(const Points: array of TPoint);

---

A+. :D

---

ça dépend, j'ai un projet un peu complexe qui fait beaucoup d'appel GDI...la version VCL initiale est largement plus lente que les appels directement à l'API car sous Delphi tu as un tas de gestion de OnChange, RequiredState etc... qui peuvent nuire à la rapidité.

Re-bonjour,

Citation:

---

Paul TOTH : ça dépend, ... projet un peu complexe qui fait beaucoup d'appel GDI... qui peuvent nuire à la rapidité.

---

... ok, merci pour la réponse.

Comme j'utilise Delphi-5 je n'ai pas accès aux sources de la procedure Delphi PolyBezier(const Points: array of TPoint) je pensais que celle-ci se réumait à trois ou quatre instructions dont une qui appelle directement l'API Polybezier ce qui me laissait penser que cet intermédiaire de Delphi ne prendrait que quelques nanosecondes.

A+. :D

Citation:

---

Envoyé par Gilbert Geyer

Re-bonjour,


... ok, merci pour la réponse.

Comme j'utilise Delphi-5 je n'ai pas accès aux sources de la procedure Delphi PolyBezier(const Points: array of TPoint) je pensais que celle-ci se réumait à trois ou quatre instructions dont une qui appelle directement l'API Polybezier ce qui me laissait penser que cet intermédiaire de Delphi ne prendrait que quelques nanosecondes.

A+. :D

---

Code:

---

1 2 3 4 5 6 7 8

procedure TCanvas.PolyBezier(const Points: array of TPoint); begin Changing; RequiredState([csHandleValid, csPenValid, csBrushValid]); Windows.PolyBezier(FHandle, PPoints(@Points)^, High(Points) + 1); Changed; end;

---

le problème (et l'avantage) avec TCanvas c'est qu'on peu invoquer tout et n'importe quoi à tout moment...mais du coup, si le Canvas est celui d'un Bitmap dans un TImage il faut bien qu'il se réaffiche...si le Handle n'a pas encore été crée, il faut bien le faire, si les HPen ou HBrush ne sont pas créés, il faut le faire également.

dans un code utilisant l'API tu dois penser à tout cela avant l'appel à PolyBezier. Mais si tu as une centaine de poly à dessiner tu ne le fera qu'une fois...Delphi aussi, mais il vérifiera à chaque poly que c'est bien déjà fait.