Discussion :

[PadawanDuDelphi]

Bonjour,

Je souhaite redimensionner une image JPEG affichée dans un Timage.
Pour cela je me suis inspiré du code fournit dans ce forum: http://www.developpez.net/forums/sho...age+TBitMap%3B

Seulement j'ai toujours des problèmes (l'image s'affiche, mais il n'y a pas de redimentionnement )

Voici ma fonction qui gère le redimentionnement:

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
procedure Timage1.LoadImageJPEG(fichier:ansistring;FImage1: Timage);
Var
  ImageJPEG   : TJPEGImage;
  ImageBmp    : TBitMap;
  Ratio: double;
begin
ImageJPEG:=TJPEGImage.Create;
   Try
     ImageJPEG.LoadFromFile(fichier);
  if (ImageJpeg.Empty) then Exit;
     ImageBmp:=TBitMap.Create;
        Try
       ImageBmp.Assign(ImageJPEG);
      Ratio := ImageJpeg.Height / ImageJpeg.Width;
      if Ratio > 1 then
        ImageBmp.Width := Round(image1.Width / Ratio)
      else
          ImageBmp.Width := Fimage1.Width;
          ImageBmp.Height := Round(ImageBmp.Width * Ratio);
       ImageBmp.Canvas.StretchDraw(ImageBmp.Canvas.ClipRect, ImageJpeg);
       FImage1.Picture.BitMap.Assign(ImageBmp);
      finally
       ImageBmp.Free;
     end;
    Finally
     ImageJPEG.Free;
   end;
end;

Si quelqu'un peut me dire ce qui ne va pas dans mon code...

Merci d'avance.

[jfdeterme]

Salut,
alors je ne sais pas te dire ce qui ne va pas dan ton code ( je l'ai pas lu aussi ) mais à cette adresse : http://delphi.developpez.com/faq/?pa...dimensionimage , tu trouveras normalement ton bonheur.

A+

[tourlourou]

Code :

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

FImage1.Picture.Assign(ImageBmp); // ??? pê

[PadawanDuDelphi]

Bonjour

Effectivement tourlourou, c'est bien la ligne :

Code :

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

FImage1.Picture.Assign(ImageBmp);

qui plante, mais je voit pas où (je débute).

et merci à toi jfdeterme, avec ce code j'arrive à sauver une image de taille différente en mémoire.
Mais le problème c'est qu'en faite je voudrais afficher la nouvelle image dans un Timage, sans l'enregistrer sur le disque auparavant(on est un peu limiter en mémoire...)

[tourlourou]

en fait, que veux-tu faire précisément ?
qui sont TImage1 et FImage1 ?
le TImage ne te suffit-il pas ?

tu veux simultanément afficher une même photo sous 2 tailles ?

[PadawanDuDelphi]

Ok,

J'ai vu ce qui va pas: Je m'acharnait pas sur la bonne ligne.
En réalité je voulais assigner un jpeg, au lieu d'un bitmap à mon Timage...
Y'a des fois ou on ferait mieux d'aller en WE au lieu de bosser..

Bref, merci à tous our votre aide !!