Discussion :

[darkman13130]

Bonjour je doit affiche des photos qui peuvent avoir plusieur format d'extension et je vien de voir qu'avec le composant TImage sa marché que si c'était en .bmp

est ce que c'est possible d'afficher avec un autre extension, comment je peut le convertir s'il le faut

[sat83]

Pour les JPEG :

Code :

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

#include <jpeg.hpp>

[darkman13130]

Sa fonctionne pas, il y a pas de possibilité de lire un autre format????

[SmileSoft]

Bonjour je doit affiche des photos qui peuvent avoir plusieur format d'extension et je vien de voir qu'avec le composant TImage sa marché que si c'était en .bmp

est ce que c'est possible d'afficher avec un autre extension, comment je peut le convertir s'il le faut

voilà un code permettant de charger du jpeg

Code :

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

1
2
3
4
5
if(ExtractFileExt(OpenPictureDialog1->FileName).LowerCase() == ".jpg" || ExtractFileExt(OpenPictureDialog1->FileName).LowerCase() == ".jpeg")
        {    // chargement jpeg
            TJPEGImage *jpeg = new TJPEGImage();
            jpeg->LoadFromFile(OpenPictureDialog1->FileName);
            Image1->Picture->Bitmap->Assign(jpeg);

bien sur sans oublier d'inclure jpeg.hpp.

[darkman13130]

Code :

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

1
2
3
4
5
6
7
OpenPictureDialog1->Execute();
if(ExtractFileExt(OpenDialog1->FileName).LowerCase() == ".jpg" || ExtractFileExt(OpenDialog1->FileName).LowerCase() == ".jpeg")
        {    // chargement jpeg
            TJPEGImage *jpeg = new TJPEGImage();
            jpeg->LoadFromFile(OpenDialog1->FileName);
            Image1->Picture->Bitmap->Assign(jpeg);
          }

Le code ce compile bien mais au mement ou OpenPicture souvre je clique a peine sur la photo et sa me mais une erreur

Erreur c'est classe d'exception EJPEG avec le message "Erreur JPEG #52"

J'ai bien inclue la bibliotheque

[sat83]

A priori c'est que ton image n'est pas une image JPEG valide. Le code donnée par SmileSoft fonctionne très bien.

Juste une précision, il ne faut pas oublier de libérer le TJPEGImage créer lorsqu'on en a plus besoin :

Code :

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

1
2
3
4
    TJPEGImage *jpeg = new TJPEGImage();
    jpeg->LoadFromFile(OpenPictureDialog1->FileName);
    Image1->Picture->Bitmap->Assign(jpeg);
    delete jpeg ;

[SmileSoft]

[merci sat83 pour la précision.

@ darkman13130: peux tu nous poster ton code de chargement?

[darkman13130]

En effet sat83 c'est bien la photo qui n'est pas au format jpeg pourtant elle porte bien l'extension. Le programme marche super bien après avoir mis une photo au format jpg pris de paint

Par contre une autre question comme je peut faire si j'ai d'autre format or du JPG ou JPEG ou BMP pour l'ouvrir merci

[sat83]

Trouvé des unités/classes/composants capable de les lire. En cherchant sur Google tu devrait trouvé.

Tu peux regarder GraphicEx sur cette page, peut etre que ca te sera utile (je ne l'ai jamais tester ou utiliser)

[SmileSoft]

Par contre une autre question comme je peut faire si j'ai d'autre format or du JPG ou JPEG ou BMP pour l'ouvrir merci

peut être tu trouveras ton bonheur dans cette cette discussion

[goldenconti]

Salut à tous

J'utilise la version 6 de Builder
Pour ouvrir un image Jpeg ou jpg j'ai utilisé le composant TOpenPictureDialog, très probablement c'est ce composant qui inclu jpeg.hpp.
En choisissant la proprieté Filter avec toutes les extensions graphiques je n'ai eu aucune peine à lire des images jpeg.

Mon probleme est différent, j'ai besoin d'inclure une image soit venant d'un scanner (Mira) ou d'une webcam, pour cela j'ai utilisé un composant TWAIN vcl de chez "mcm design", vraiment trés bien, pour l'instant en version trial, ce composant ne permet pas le jpeg, mais des tas d'autres formats
[TWFF_TIFF,TWFF_BMP,TWFF_JFIF,TWFF_FPX,TWFF_TIFFMULTI,TWFF_PNG,TWFF_SPIFF,TWFF_EXIF]

A la fin du scan j'ai l'image chargée dans un TImage et elle est au format bitmap
Ma question est : comment l'écrire sur disque en format jpeg. Y a-t-il des fonctions pour faire la conversion
J'ai lu qq part que l'on parlait d'un composant TJPEGImage mais qui ne serait pas un vcl

Merci pour toute réponse

[Crayon]

A la fin du scan j'ai l'image chargée dans un TImage et elle est au format bitmap
Ma question est : comment l'écrire sur disque en format jpeg. Y a-t-il des fonctions pour faire la conversion
J'ai lu qq part que l'on parlait d'un composant TJPEGImage mais qui ne serait pas un vcl

Merci pour toute réponse

Pour convertir un Bitmap dans un TImage en fichier JPeg sur le disque dur il suffit de faire ceci:

Code :

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

1
2
3
4
5
6
7
8
9
Graphics::TBitmap *bmpImage = Image1->Picture->Bitmap;
if(bmpImage->Width && bmpImage->Height)
{
    TJPEGImage *TempJpeg = new TJPEGImage();
    TempJpeg->Assign(bmpImage);
    TempJpeg->CompressionQuality = 100;
    TempJpeg->SaveToFile("test.jpg");
    delete TempJpeg;
}

Il faut inclure l'entête:

Code :

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

#include <jpeg.hpp>