Traitement d'image en Delphi

bonjour,
Je suis en train de travailler sur un petit logiciel de traitement d'image et étant donné que je suis débutant, j'ai besoin d'un peu d'aide.

Je voudrais savoir comment je peux sauver une Timage dans un fichier .bmp. Ou alors sauver un bitmap dans un .bmp.

Merci par avance

Salut

A l'aide de la méthode SaveToFile de TBitmap.

Un p'tit coup de :f1: sur la fonction. ;)

@+ Claudius

oui je sais mais j'arrive pas a la faire marché. T'inquiète pas j'ai deja cherché dans le F1...

Tu as un exemple de transformation d'un jpeg en bmp dans la FAQ. Tu peux peut-être t'en inspirer.

@+

en fait j'ai chargé un fichier .bmp dans un bitmap contenu dans un Timage et j'aimerais pouvoir le resortir (sauver) sous le format .bmp.

Essaye comme ceci:

Code:

---

1 2	Image1.Picture.Bitmap.SaveToFile('C:\Path\Filename.bmp');

---

@+

ca marche pas :(
Ca me fait impossible de créer le fichier :(

Image c'est bien mon objet TImage?

c'est bon, merci :)

J'aurais aimé savoir maintenant comme je peux faire pour récupérer les coordonnés du dernier click sur un Canvas.

Merci par avance

Bonjour,

Citation:

---

J'aurais aimé savoir maintenant comme je peux faire pour récupérer les coordonnés du dernier click sur un Canvas.

---

... t'as les procédures enclenchées par les événements MouseDown, MouseMove et MouseUp qui renvoient à tout instant les coordonnées X et Y de la souris :

Code:

---

1 2 3 4 5 6 7 8

procedure TfrmImgD.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);   procedure TfrmImgD.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);   procedure TfrmImgD.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

---

... pour le dernier click tu peux te contenter du MouseUp.

A+ :D

J'ai finalement utilisé l'évênement mouseUp.
Ceci avait pour but de créer un outil gomme comme dans paint. Le problème c'est que en fait X et Y correspondent aux valeurs du click précédents et non pas à celle du dernier click.

Quelqu'un peut m'aider?

Citation:

---

Envoyé par ditchou

J'ai finalement utilisé l'évênement mouseUp.
Le problème c'est que en fait X et Y correspondent aux valeurs du click précédents et non pas à celle du dernier click.

---

????????????
Teste ça, tu verras que c'est bien le dernier click !

Code:

---

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

private pt:tpoint; end;   var Form1: TForm1;   implementation   {$R *.dfm}       procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin pt:=point(x,y); end;   procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin caption:='('+inttostr(x)+' , '+inttostr(y)+')'+'=>'+'('+inttostr(pt.x)+' , '+inttostr(pt.y)+')'; end;   end.

---

merci bcp, en fait c'était un problème de refresh de l'image.... Merci.
Dsl je débute dans le monde cruel de la programmation

parfait, n'oublie pas le :resolu: :D