Discussion :

[Inazad]

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 !

Merci

[henderson]

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 :

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

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 :

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

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 !

[Inazad]

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 :

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

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

[cedni]

Code :

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

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 ...

[Inazad]

Non Image1 a bel et bien sa photo...

Merci

[cedni]

Code :

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

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>

[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

[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 :

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

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...)

[cedni]

c est juste que c est un bitmap qui est créé , c est donc plus lourd

[Inazad]

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

Merci

[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 :

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

1
2
 
Bitmap->PixelFormat = pf8bit;

Sinon, il faudrait vérifier si on peut faire (il suffit de tester si ça fonctionne) :

Code :

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

1
2
3
4
 
TJPEGImage*image = new TJPEGImage();
image->Assign(bitmap);
image->SaveToFile(...);

Ou bien vérifier s'il existe d'autres constructeurs :

Code :

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

1
2
 
TJPEGImage*image = new TJPEGImage(bitmap);

Comme je n'ai pas les sources de TJPEGImage...

A plus !

[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...

[henderson]

Salut !

Peut-être en testant :

Code :

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

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 :

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

1
2
 
Bitmap->PixelFormat = pf8bit;

A plus !

[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

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