Discussion :

[r0seBa]

Bonjour à tous,

Dans le cadre de mon projet, j'assigne à mon Timage un Tbitmap chargé par l'utilisateur.

Code :

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

1
2
3
4
5
6
OpenPictureDialog1.execute;
                       Edit1.text:=OpenPictureDialog1.Filename;
                       Imagechoisie:=Tbitmap.create;
                       Imagechoisie.loadfromfile(Edit1.text);
                       Image1.Picture.Assign(Imagechoisie);
                       Image1.Canvas.draw(0,0,Imagechoisie);

Je modifie ensuite les pixels de mon Image1 et je veux pouvoir sauvegarder cette image modifiée, comment faire ?

Si je fais:

Code :

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

Imagechoisie.SaveToFile(Edit2.Text+'.bmp');

ça me sauvegarde l'image originelle.

Merci d'avance,
Cordialement, r0seBa

[DOLPat®]

Bonjour

Il faudrait voir le code complet car je ne vois pas d'où vient le problème.
Ceci fonctionne sous Delphi 2005:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  Imagechoisie:TBitmap;
begin
  if OpenPictureDialog1.execute then
   begin
    Edit1.text:=OpenPictureDialog1.Filename;
    Imagechoisie:=Tbitmap.create;
    Imagechoisie.loadfromfile(Edit1.text);
    Imagechoisie.Canvas.Rectangle(0,0,100,100);  // Modification
    Image1.Picture.Assign(Imagechoisie);
    Imagechoisie.SaveToFile(Edit1.Text);
   end;
end;

Quelles sont les modifications que tu effectues sur l'image ?