Discussion :

[Charly910]

Bonjour,

J'essaye d'enregistrer un Jpeg dans un fichier en utilisant le code de l'exemple de D7 :

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;

J'ai une exception EJPEG avec le message 'JPEG Error#12' sur la ligne SaveToFile.
Le fichier créé Test.Jpg fait 0k.

Quelqu'un a une idée d’où cela vient ?
Merci
A+
Charly

[Charly910]

C'est réparé :

j'avais une unité Jpeg.pas pourrie dans le répertoire de mon projet !

A+
Charly