Bonjour,
J'essaye d'enregistrer un Jpeg dans un fichier en utilisant le code de l'exemple de D7 :
J'ai une exception EJPEG avec le message 'JPEG Error#12' sur la ligne SaveToFile.
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 procedure TForm1.Button1Click(Sender: TObject); var jp: TJPEGImage; //nécessite l'ajout de l'unité "jpeg" à la clause "uses". begin jp := TJPEGImage.Create; try with jp do begin Assign(Image1.Picture.Bitmap); SaveToFile('d:\Test.jpg') end; finally jp.Free; end; end;
Le fichier créé Test.Jpg fait 0k.
Quelqu'un a une idée d’où cela vient ?
Merci
A+
Charly
Partager