Discussion :

[gandf]

Bonjour,
J'ai rajouté GraphicEx.pas et maintenant un TImage peut ouvrir beaucoup plus de format.

TImage a SaveToFile et LoadToFile.
Est-il possible de convertir une image bmp (qui est chargée dans le TImage) directement dans un autre format pour ensuite le sauvegarder?

Merci

[ChMerlier]

Bonjour,

Il est possible de sauver l'image dans un autre format si la fonction membre SaveToFile de la classe représentant le format est implémentée.
Par exemple on ne peut pas sauver un Pcx, SaveToFile étant vide !

Regarde dans le récapitulatif des formats implémenté pour savoir si tu peux ou non sauver.

Code :

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

1
2
3
 
// Note: The library provides usually only load support for the listed image formats but will perhaps be enhanced
//       in the future to save those types too.

[gandf]

Bonsoir,

Dans l'aide de graphicEx, j'ai vu par exemple que pour le TGA il y a SaveToStream.

J'ai donc essayé de sauvegarder sous ce format.
Mon programme réalise une image en BMP. Je peux utiliser un TJPEGImage pour l'enregistrer en JPEG mais je voudrais avoir plus de choix dans les formats.

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
    Graphics::TBitmap* bm = new Graphics::TBitmap; //création du bitmap
 
//modification du bitmap
...
//Partie sauvegardant en JPEG
TJPEGImage* pJPEGImage = new TJPEGImage;
pJPEGImage->CompressionQuality = 40;
pJPEGImage->Assign(bm);
pJPEGImage->Compress();
pJPEGImage->SaveToFile(SaveDialog2->FileName);
delete pJPEGImage; 
 
TImage* Image = new TImage(0); // création d'une nouvelle image
TMemoryStream* Fichier1 = new TMemoryStream(); //création d'un flux pour le savetostream
Image->Picture->Assign(bm); //on récupère l'image à sauvegarder
Image->Picture->Bitmap->SaveToStream(Fichier1); //on le met dans le flux
Fichier1->Position = 0; //on se place au début du flux
Fichier1->SaveToFile(SaveDialog2->FileName); //on sauvegarde le fichier

Seulement ca marche pas. L'image est toujours au format BMP.
Et en plus, je connais rien au Stream. Il manque certainement le changement de format de l'image mais j'ai pas trouvé comment faire.

Merci de m'aider

[Orangina]

Bonjour

Voilà un exemple sauvant une image bitmap au format gif.

Code :

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

1
2
3
4
5
6
 
                       TGIFImage *image = new TGIFImage ();
                        image->ColorReduction = rmQuantizeWindows;       // réduit correctement les couleurs
                        image->Assign (ImageBmp->Picture->Bitmap);
                        image->SaveToFile (SavePictureDialog->FileName);
                        delete image;

[gandf]

Je viens de comprendre. GraphicEx n'est pas accessible uniquement depuis un TImage. On peut directement créer les images dans le format voulu.

Merci pour tout