Discussion :

[cincap]

Bonjour à toutes et à tous,

Voici mon petit problème, je dispose d'un TImage avec déjà un fond de couleur qui est créé par une autre fiche.

Avec cette image je dois lui appliquer un resize avant de la sauver en *.Jpg.

J'obtiens bien ma sauvegarde mais pas avec le resize.

Voici le code que j'ai testé de toutes les manières possibles !

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
procedure TmainModiffond.bcopierClick(Sender: TObject);
var
  ds : string;
 
 BMP : Tbitmap;
 
begin
 
 ds:= edirectory.text;
 
 if not DirectoryExists(ds) then ForceDirectories(ds);
 
    BMP := Tbitmap.create;
 
    BMP.width := sp1.value; //TSpinedit
    BMP.height := sp2.value;
    BMP.pixelformat := pf24bit;
 
   SetStretchBltMode(BMP.Canvas.Handle,HALFTONE);
 
   BMP.Canvas.StretchDraw(Rect(0,0,sp1.value,sp2.value),BMP);
 
  with TJPEGImage.Create do
  try
  CompressionQuality  := 80; 
 
  ProgressiveEncoding := True; 
 
  Assign(image1.picture.bitmap);
 
  SaveToFile(ds+'\test.jpg');
 
  finally
  Free;
  BMP.Free;
  end;
 
  end;

Merci encore de votre attention,

@+,

Cincap

[Clorish]

Code :

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

1
2
 
   BMP.Canvas.StretchDraw(Rect(0,0,sp1.value,sp2.value),BMP);

Tu copie le BMP sur lui meme ... je ne suis pas sur qu'il apprecie beaucoup

Pour ma part je passerais par un bitmap temporaire qui contiendrais la copie retaillé de ton bitmap original.

[cincap]

Merci à toi Clorish, tu as vu juste, j'ai corrigé en mettant 'image.picture.bitmap' à la place de 'bmp' et cela fonctionne.

Bonne journée.

@+,

Cincap