Discussion :

[Michel_57]

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

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;

merci d'avance

[PyRoFlo]

Code :

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

1
2
JP.Width := BP.Width;
JP.Height := BP.Height;

J'espère avoir mal compris....

[Michel_57]

certainement mal compris oui

je veux l'enregistrer avec un savetofile, mais dans une autre taille c'est a dire au lieu qu'il soit de 590*590 comme dans le Form1.Image1, le mettre sur le disque dur par exemple a 10% de la taille donc 59*59

[PyRoFlo]

Code :

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

1
2
JP.Width = (10 * BP.Width) / 100;
JP.Height = (10 * BP.Height) / 100;

:

[Sub0]

http://nono40.developpez.com/sources/source0036.html

-> Pensez au tag [résolu] Merci!

[Michel_57]

merci ça fonctionne ouf, enfin fini ce programme !