Discussion :

[samaury]

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 :

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

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

Dans mon code je procède comme suit:

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
 
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.

[Paul TOTH]

si tes points sont bons, essaie ceci

Code :

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

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

[Gilbert Geyer]

Salut,

Avec :

Code :

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

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+.

[samaury]

Code :

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

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

Ca marche ! 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

[samaury]

... 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

[Paul TOTH]

Code :

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

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

Ca marche ! 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 :

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

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

[samaury]

Compris
Merci

[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 :

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

procedure PolyBezier(const Points: array of TPoint);

A+.

[Paul TOTH]

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 :

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

procedure PolyBezier(const Points: array of TPoint);

A+.

ç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é.

[Gilbert Geyer]

Re-bonjour,

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+.

[Paul TOTH]

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+.

Code :

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

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.