Hello quand je compile ceci delphi me dit que JPG:TJPEGImage n'est pas déclaré. (Undeclared identifier :'TJPEGImage') sur ma version j'ai delphi 6 version anglaise. Pourquoi delphi me donne ce message c'est pourtant déclaré non ? Aider moi please.
procedure TForm1.Button1Click(Sender: TObject);
var Img:TPicture;
MemStream:TMemoryStream;
JPG:TJPEGImage;
begin
try
Img:=TPicture.Create;
MemStream:=TMemoryStream.Create;
Img.Bitmap.Width:=Screen.Width;
Img.Bitmap.Height:=Screen.Height;
BitBlt(Img.Bitmap.Canvas.Handle,0,0,Screen.Width,Screen.Height,GetDC(GetDesktopWindow),0,0,SrcCopy);
JPG:=TJPEGImage.Create;
try
JPG.Assign(Img.Bitmap);
JPG.CompressionQuality:=strtoint(Qual);
jpg.savetostream(Memstream);
finally
img.free;
JPG.Free;
end;