Mettre le Handle du bureau dans une image jpg.

Question

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;

cs_bgK · Answer

Bonjour !!!

Il faut ajouter JPEG dans la section uses de l'unité où se situe ce code.

Mettre le Handle du bureau dans une image jpg.

1 réponse

Votre réponse

Discussions similaires