Discussion :

[fbalien]

Bonjour

Charechant a a faire pivoter des images je suis tomber sur l'api PLGBLT qui semble bien pour cela
j'ai donc fait une procedure comme celle ci pour tester

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
procedure RotateBitmap(Bmp: TBitmap; Rads: Single; AdjustSize: Boolean;
  BkColor: TColor = clWhite );
var
  C: Single;
  S: Single;
  Tmp: TBitmap;
  OffsetX: Single;
  OffsetY: Single;
  Points: array[0..2] of TPoint;
begin
  C := Cos(DegToRad(Rads));
  S := Sin(DegToRad (Rads));
  Tmp := TBitmap.Create;
  try
    tmp.PixelFormat := bmp.PixelFormat ;
    Tmp.TransparentColor := Bmp.TransparentColor;
    Tmp.TransparentMode := Bmp.TransparentMode;
    Tmp.Transparent := Bmp.Transparent;
    Tmp.Canvas.Brush.Color := BkColor;
    if AdjustSize then
    begin
      Tmp.Width := Round(Bmp.Width * Abs(C) + Bmp.Height * Abs(S));
      Tmp.Height := Round(Bmp.Width * Abs(S) + Bmp.Height * Abs(C));
      OffsetX := (Tmp.Width - Bmp.Width * C + Bmp.Height * S) / 2;
      OffsetY := (Tmp.Height - Bmp.Width * S - Bmp.Height * C) / 2;
    end
    else
    begin
      Tmp.Width := Bmp.Width;
      Tmp.Height := Bmp.Height;
      OffsetX := (Bmp.Width - Bmp.Width * C + Bmp.Height * S) / 2;
      OffsetY := (Bmp.Height - Bmp.Width * S - Bmp.Height * C) / 2;
    end;
    Points[0].X := Round(OffsetX);
    Points[0].Y := Round(OffsetY);
    Points[1].X := Round(OffsetX + Bmp.Width * C);
    Points[1].Y := Round(OffsetY + Bmp.Width * S);
    Points[2].X := Round(OffsetX - Bmp.Height * S);
    Points[2].Y := Round(OffsetY + Bmp.Height * C);
    PlgBlt(Tmp.Canvas.Handle, Points, Bmp.Canvas.Handle, 0, 0, Bmp.Width,
      Bmp.Height, 0, 0, 0);
    Bmp.Assign(Tmp);
  finally
    Tmp.Free;
  end;
end;

cela fonctionne tres bien avec de petite image (2808*1872)
des que je test avec les image issue de mon APN qui sont en 5616*3744 la çà ne marche que si je défini un angle de 180° dans le cas contraire l'image est vide
pourquoi cette limitation ?
quel autre moyen rapide ais je pour pivoter une image ?

[ShaiLeTroll]

2808*1872 une petite image
5616*3744 c'est assez costaud, 63Mo en mémoire, la Rotation étant plus grande (à 45° ça doit être le pire), ça doit être un trop grand !

Que renvoie GetLastError juste après PLGBLT ?

Essaye le TRotateImage, tu as le code complet !

Code surement plus lent mais peut-être sans limitation du GDI

[Andnotor]

Il y a aussi SetWorldTransform.
Sinon, peut-être temps de passer à GDI+

[fbalien]

Bonjour

merci bien pour les réponses

le comportement est différent entre un XP et Seven
Avec XP cela fonctionne bien alors que que sous Seven non

J'ai pris juste la fonction de rotation dans le Trotateimage cela marche bien
c'est même plus rapide que BlGblt quand il marche

gelasterror renvoie toujours 6 (descripteur non valide)

je vais regarder ce que donne setworldTransform et GDI+

pour info dev sous Delphi XE3
os : au taf XP 32bits
a la maison Seven 64Bits

[fbalien]

Bonjour

je viens de tester GDIPLUS de Erik van Bilsen
cela marche bien

vous avez déjà testé ?

[Andnotor]

C'est ce que j'utilise