Discussion :

[Masmeta]

Bonjour

Voila je trace une courbe dans un paintbox grâce à un Tbitmap. J'aimerai pouvoir l'enregistrer sous forme d'image BMP.
Et je ne sais pas quoi utiliser entre : TBitmap::SaveToStream et TBitmap::SaveToClipboardFormat.

Quelqu'un pourrai m'orienter et me montrer comment cela fonctionne?

merci beaucoup

[kmaniche]

Bonjour,

J'ai la solution avec TImage. Pour le TPainBox je suis aussi preneur.

Dans le cas d'un TImage :

Pour enregistrer tu as besoin d'un TSavePictureDialog :

Code :

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

1
2
3
4
5
 
 if(SavePictureDialog1 -> Execute())
     {
      Image -> Picture -> SaveToFile(ChangeFileExt(SavePictureDialog1 -> FileName, ".bmp")) ;
     }

Et pour charger une image, tu as besoin d'un TOpenPictureDialog :

Code :

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

1
2
3
4
5
6
7
8
 
  if(OpenPictureDialog1 -> Execute())
    {
      if(FileExists(ChangeFileExt(OpenPictureDialog1 -> FileName, ".bmp")))
        {
         Image -> Picture -> LoadFromFile(ChangeFileExt(OpenPictureDialog1 -> FileName, ".bmp")) ;
        }
    }

Bon courage

[bandit boy]

Salut,
Vous pouvez faire un copie du Canvas du TPaintBox dans le Timage (en utilisant la méthode Canvas->Draw) et sauvegarder l'image en BMP à partir du Timage avec la méthode que tu as cité kmaniche.

Ou sans introduire de composant mais avec le même principe:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
    //déclare la Bitmap
    Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
    //définit sa taille
    Bitmap->Height = PaintBox1->ClientRect.Bottom - PaintBox1->ClientRect.Top;
    Bitmap->Width  = PaintBox1->ClientRect.Right  - PaintBox1->ClientRect.Left;
    //fait la copie de Canvas
    Bitmap->Canvas->CopyRect(Bitmap->Canvas->ClipRect,PaintBox1->Canvas,PaintBox1->ClientRect);
    //sauvegarde le Bitmap
    Bitmap->SaveToFile("C:\image.bmp");
    delete Bitmap;

[Masmeta]

ok ça marche bien.
merci beaucoup