diminuer taille image

Version imprimable

Bonjour, je fais un print screen, mais je trouve mon image trop lourde. y'a t-il 1 moyen de reduire sa taille ? merci

code du print screen :

Code:

1
2
3
4
5
6
7
8
9
 
Graphics::TBitmap *Bitmap = new Graphics::TBitmap;
Bitmap->Height = Screen->Height;
Bitmap->Width = Screen->Width;
HDC ScreenSrc = GetWindowDC(0);
BitBlt(Bitmap->Canvas->Handle, 0, 0, Screen->Width, Screen->Height, ScreenSrc, 0, 0, SRCCOPY);
Bitmap->SaveToFile(ExtractFilePath(Application->ExeName) + "Image.bmp");
ReleaseDC(GetDesktopWindow(), ScreenSrc);
delete Bitmap;

30/03/2007, 20h24
Crayon

Juste pour être certain, c'est la taille de l'image Image.bmp que tu trouves trop grande?

Si oui, est-ce que tu peux me dire si l'image est en 24bits? Peut-être qu'en changent ce paramêtre tu peux arriver à de quoi de bon pour toi!!!

Voici comment tu peux procéder pour transformer ton Bitmap en jpeg:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
                TJPEGImage *jp = new TJPEGImage();
                try
                {
                        jp->Assign(Bitmap);
                        jp->CompressionQuality = 85; // ou ce que tu veux
                        jp->SaveToFile("nom_du_jpeg");
                }
                __finally
                {
                        delete jp;
                }

Autre possibilité, diminuer la dimension de ton Bitmap:

Code:

1
2
3
4
5
6
7
8
9
10
11
 
                Graphics::TBitmap *Bitmap2 = new Graphics::TBitmap();
                //définit sa taille
                Bitmap2->Height = newHeight;  // à toi de définir
                Bitmap2->Width = (Bitmap->Width*newHeight)/Bitmap->Height;
 
                //fait la copie de Bitmap vers Bitmap2
                Bitmap2->Canvas->StretchDraw(Bitmap2->Canvas->ClipRect,Bitmap);
 
                Bitmap2->SaveToFile("new_bitmap.bmp");
                delete Bitmap2;

31/03/2007, 10h49
ac/dc

merci, je me suis dirigé sur la méthode du JPG. :D