Rebonjour, voila j'ai encore un problème avec mon traîtement d'images, ce serait bien si qq1 pourrait m'aider.
Je cherche à enregistrer le contenu de mon image au format jpg, j'y arrive mais je n'arrive pas à modifier sa taille en pixel ...
Voici le code qui enregistre le jpg
merci d'avance
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 procedure TForm2.Button1Click(Sender: TObject); var jp : TJpegImage; bp : TBitMap; begin if (CheckBox1.Checked=true) or not(FileExists('./Mes diagrammes/'+Edit1.Text+'.jpg')) then begin jp:=TJpegImage.Create; bp:=TBitMap.Create; bp:=Form1.Image1.Picture.Bitmap; jp.Assign(bp); jp.CompressionQuality:=strtoint(Edit3.Text); jp.SaveToFile('./Mes diagrammes/'+Edit1.Text+'.jpg'); jp.Free; bp.FreeImage; Form2.Close; end else ShowMessage('Diagramme déjà existant'); end;
Partager