Discussion :

[ditchou]

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

[Cl@udius]

Salut

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

Un p'tit coup de sur la fonction.

@+ Claudius

[ditchou]

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

[Cl@udius]

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

@+

[ditchou]

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.

[Cl@udius]

Essaye comme ceci:

Code :

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

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

@+

[ditchou]

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

Image c'est bien mon objet TImage?

[ditchou]

c'est bon, merci

[ditchou]

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

[Gilbert Geyer]

Bonjour,

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 :

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

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+

[ditchou]

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?

[Archimède]

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 :

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
 
  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.

[ditchou]

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

[Archimède]

parfait, n'oublie pas le