Discussion :

[michel71]

Bonjour,

j'ai un problème avec des images. Je récupère de images au format jpeg que je converties avec ce bout de procédure

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
20
 
   ImageJPEG := TJPEGImage.Create;
 
                      //Chargement de l'image
    ImageJPEG.LoadFromFile(images);
    ImageBitmap := TBitmap.Create;
 
                     //On donne la même taille que l'image jpeg
    ImageBitmap.Width := ImageJPEG.Width;
    ImageBitmap.Height := ImageJPEG.Height;
 
                    //On dessine le jpeg sur le canvas du Bitmap
    ImageBitmap.Canvas.Draw(0, 0, ImageJPEG);
 
                  //On enregistre
MoveFileEx(PChar(images), PChar(ExtractFilePath(Application.ExeName)+'photo-timbre\'+image_fin),MOVEFILE_COPY_ALLOWED);
 
      ImageBitmap.Free;
 
     ImageJPEG.Free;

cette conversion se passe bien (apparemment) mais lorsque je veux afficher l'image dans un Timage j'ai le message d'erreur suivant

Image Bitmap incorrete

Merci pour votre aide

[Tardiff Jean-François]

Bonjour,

si j'ai bien compris le code,

1°) vous charger images
2°) Vous convertissez0 images
3°)vous copier l'images d'origines
4°) vous détruisez les images de travails

Peut être avez vous oblier de sauver l'image résultant (Méthode SavetoFile de votre image converti) ?

[Jipété]

'Soir !

D'après l'excellent site d'efg, j'ai plutôt l'impression qu'il manque

Code :

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

ImageBitmap.PixelFormat := pf24bit;

juste avant

Code :

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

1
2
ImageBitmap.Width := ImageJPEG.Width;
ImageBitmap.Height := ImageJPEG.Height;

Mes 2 cts,
--
jp