Discussion :

[Angrim]

Bonjour,
Je souhaiterais sauver un Canvas venant d'un TpainBox dans un fichier jpg ou bmp...
Pour cela j'ai essayé de copier le Canvas du TPaintbox dans la canvas d'un TBitmap... mais cela ne fonctionne pas...

Quelqu'un aurai une idée?

merçi

[henderson]

Salut !

Nom du fichier avec son chemin complet

Code :

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

1
2
 
AnsiString Filename = "....";

Ou bien quelque chose comme, à la place de :

Code :

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

1
2
 
SavePictureDialog1->FileName

Une méthode OnClick

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
Graphics:: TBitmap *B = new Graphics::TBitmap;
B->Width = PaintBox1->Width;
B->Height = PaintBox1->Height;
TRect R = Rect(0, 0, B->Width, B->Height);
B->Canvas->CopyRect(R, PaintBox1->Canvas, R);
B->SaveToFile(Filename);
delete B;
}

Donc pour que ça ne fonctionne pas chez toi, soit tu as un problème avec la taille du bitmap, avec CopyRect ou bien avec le nom du fichier.

A plus !

[Angrim]

Merçi infiniment de ton aide... J'ai à peu près le même code et pourtant quand je copie le tien cela fonctionne...
J'ai beau lire les deux codes... je vois pas de différence...
Mauis merçi beaucoup tu m'a retiré une belle épine du pied!!!