BC++Builder : Redimensionner image

Version imprimable

12/05/2009, 22h50
Inazad

BC++Builder : Redimensionner image

Bonjour a tous,

j'aimerais savoir comment je pourrais redimensionner avec Borland C++ Builder ?

J'ai bien beau redimensionner le width et le height de Image1 mais lorsque je fais un SaveToFile, l'image a encore les dimensions originales...

J'attends votre coup de main ! :bug:

Merci

Salut !

Les dimensions de TImage sont celles de la visualisation (sa propre fenêtre).
Les dimensions réelles de l'image sont celles de son bitmap :
Code:

1 2 3 Image->Picture->Bitmap->Width Image->Picture->Bitmap->Height
Si on modifie ces valeurs à ce niveau là, l'image ne subit aucun stretch, donc elle est soit rognée soit augmentée de n pixels.

Si tu veux enregistrer l'image en y appliquant un stretch, il faut créer un bitmap temporaire et utiliser TCanvas::StretchDraw.
Le stretch s'applique du bitmap source vers le bitmap temporaire et il suffit ensuite de sauvegarder ce bitmap temporaire puis de le détruire !

Exemple :
Code:

1 2 3 4 5 6 7 8 9 10 // REM : TImage *Image1 AnsiString Filename = "bla...bla..."; Graphics::TBitmap *Temp = new Graphics::TBitmap; Temp->Width = ...; Temp->Height = ...; TRect DestRect = Rect(0,0,Temp->Width, Temp->Height); Temp->Canvas->StretchDraw(DestRect, Image1->Picture->Bitmap); Temp->SaveToFile(Filename); delete Temp;
A plus !

Salut,

merci pour ta reponse rapide !

J'ai essayé ton code avec une image jpg et l'image créée et redimensionnée est vide.. Elle n'a rien dedans.. Le fichier existe et a les bonnes dimensions, pese 1.17 mo mais il n'y a rien dedans..

Je l'ai aussi essayer de le sauvegarder en bitmap, ca donne le meme resultat..

Comment régler cela ?

J'ai pourtant bien copier ton code (et analyser) :
Code:

1 2 3 4 5 6 7 8 9 10 // REM : TImage *Image1 AnsiString Filename = "C:\\test.jpg"; Graphics::TBitmap *Temp = new Graphics::TBitmap; Temp->Width = 640; Temp->Height = 480; TRect DestRect = Rect(0,0,Temp->Width, Temp->Height); Temp->Canvas->StretchDraw(DestRect, Image1->Picture->Bitmap); Temp->SaveToFile(Filename); delete Temp;
Merci

Code:

1
2
3
4
5
6
7
8
9
    AnsiString Filename = "C:\\test.jpg";
    Graphics::TBitmap *Temp = new Graphics::TBitmap;
    Image1->Picture->LoadFromFile(Filename);
    Temp->Width = 640;
    Temp->Height = 480;
    TRect DestRect = Rect(0,0,Temp->Width, Temp->Height);
    Temp->Canvas->StretchDraw(DestRect, Image1->Picture->Bitmap);
    Temp->SaveToFile(Filename);
    delete Temp;

Je pense ...

13/05/2009, 21h17
Inazad

Non Image1 a bel et bien sa photo...

Merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Image1->Visible=false;
TJPEGImage*imagemodif =new TJPEGImage();
      OpenPictureDialog1->Execute();
      Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
      AnsiString ext;
      ext=ExtractFileExt(OpenPictureDialog1->FileName);
       if(ext==".jpg" || ext==".JPG" )
       { imagemodif->LoadFromFile(OpenPictureDialog1->FileName);
         Image1->Picture->Bitmap->Assign(imagemodif);
           }
Graphics::TBitmap *Temp = new Graphics::TBitmap;
    Temp->Width = 640;
    Temp->Height = 480;
    TRect DestRect = Rect(0,0,Temp->Width, Temp->Height);
    Temp->Canvas->StretchDraw(DestRect, Image1->Picture->Bitmap);
    Temp->SaveToFile(OpenPictureDialog1->FileName);
 
delete Temp;
delete imagemodif;

normal avec le jpg , ilfaut faire çà

ne pas oublier
#include <jpeg.hpp>

14/05/2009, 07h43
Inazad

OK Merci, cela fonctionne...

mais j'aimerais comprendre pourquoi la taille de mon image originale est de 300 kb et celle de la redimensionnée de 1.17 mo ?

Merci
14/05/2009, 09h13
Patrick Seuret
Ce doit être parce que le fichier JPG fait un encodage avec perte ce qui lui permet de gagner de la place. Il y a un facteur de qualité à règler au moment de l'enregistrement qui va permettre de gagner plus ou moins de place (haute qualité = gros fichier, basse qualité = petits fichiers).

Si tu passes d'une image encodée avec une basse qualité (petit fichier) à une image, même plus petite, mais avec une haute qualité, alors ton fichier final peut être plus gros...

Tu peux choisir la qualité de l'image d'un object TJPEGImage qui sera sauvé comme ceci:
Code:

1 2 3 4 TJPEGImage *image=new TJPEGImage(); image->LoadFromFile(OpenDialog1->FileName); signed char quality=image->CompressionQuality; // range from 1 to 100
Tu peux régler ce facteur
Comme tu ne sais pas quel était le facteur de qualité de ton image d'origine alors tu sauves une image déjà dégradée mais avec une haute qualité ce qui revient à bien sauver les imperfections du précédent codage tout en en ajoutant d'autres...

Le problème est que si tu baisses ton niveau de qualité et que ton image d'origine était de plus haute qualité, alors cette fois-ci tu auras une réelle dégradation.

Il faudrait pouvoir récupérer le facteur qualité de l'image de départ et le reprendre pour la sauvegarde, mais malheureusement ce facteur n'est pas accessible à ma connaissance (la propriété TJPEGImage::CompressionQuality n'est pas lue depuis le fichier d'origine et n'est utilisée que pour sauvegarder...)
14/05/2009, 17h55
cedni

c est juste que c est un bitmap qui est créé , c est donc plus lourd
01/06/2009, 13h49
Inazad

Il n'y aurait pas moyen de créer un JPEG au lieu d'un Bitmap ?

Merci
04/06/2009, 11h23
henderson
Salut !

Tu peux éventuellement sauvegarder sous la forme d'un bitmap 8 bit si le bitmap source est un 24 bits.
Son poids sera 3 fois moindre mais avec une perte de qualité.
Code:

1 2 Bitmap->PixelFormat = pf8bit;
Sinon, il faudrait vérifier si on peut faire (il suffit de tester si ça fonctionne) :
Code:

1 2 3 4 TJPEGImage*image = new TJPEGImage(); image->Assign(bitmap); image->SaveToFile(...);
Ou bien vérifier s'il existe d'autres constructeurs :
Code:

1 2 TJPEGImage*image = new TJPEGImage(bitmap);
Comme je n'ai pas les sources de TJPEGImage...

A plus !
04/06/2009, 18h46
Inazad

Mais si cela était possible, est-ce que le JPEG serait de moindre qualité compte tenu que le fichier source est d'une resolution plus grande ainsi qu'un poids plus volumineux ?

Il existe des pages sur internet qui dit que TJPEGImage nous laisse transformer des Bitmap en Jpeg et vice versa mais il n'y a pas de code...
04/06/2009, 20h20
henderson
Salut !

Peut-être en testant :
Code:

1 2 3 4 TJPEGImage *Dest = new TJPEGImage (); Dest->Assign(le_bitmap); Dest->SaveToFile(...);
Comme je n'ai pas cette classe ... ???

Sinon on peut aussi convertir en 8 bits.
S'il est en 24 bits, ça divise le poids du fichier par 3 (avec une perte de qualité qui varie d'une image à l'autre) !
Code:

1 2 Bitmap->PixelFormat = pf8bit;
A plus !
04/06/2009, 22h05
blondelle

Salut Inazad
Une recherche sur les posts de ce Forum avec le mot " JPEG " mon permis de trouver ces deux liens parmis d'autres

Citation:

http://www.developpez.net/forums/d27...sion-bmp-jpeg/
http://www.developpez.net/forums/d31...rsion-jpg-bmp/