Image bitmap incorrecte

Version imprimable

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:

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

22/08/2007, 15h56
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) ?
23/08/2007, 00h34
Jipété
'Soir !

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

Code:

ImageBitmap.PixelFormat := pf24bit;

juste avant
Code:

1 2 ImageBitmap.Width := ImageJPEG.Width; ImageBitmap.Height := ImageJPEG.Height;
Mes 2 cts,
--
jp