Discussion :

[TISSEYRE]

Merci de me dépanner :
je ne trouve de propriete type saveToFile ...
comment faire car message d'erreur avec methode Assign.
auriez vous un exemple à me suggerer ?

merci bcp

eric

[MD Software]

Voici un bout de code pour enregistrer un bitmap à partir d'un paintbox :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
  var lImage : TBitmap;
                 cadre : TRect;
begin
  lImage := TBitmap.Create;
  lImage.Width := PaintBox1.Width;
  lImage.Height := PaintBox1.Height;
  cadre := Rect(0,0,PaintBox1.Width,PaintBox1.Height);
  lImage.Canvas.CopyRect(cadre,PaintBox1.Canvas,cadre);
  lImage.SaveToFile('c:\toto.bmp');
  lImage.Free;
end;