如何得到拷屏文件，并保存为jpg格式？？

Question

如何得到拷屏文件，并保存为jpg格式？？

Answer 1

Bitblt到TBitmap，然后Assign到TJPEGImage

Answer 2

var
    face: TBitmap;
    Jpg: TJPEGImage;
begin
    face := TBitmap.Create;
    face.Width := frameRect.Right-frameRect.Left;
    face.Height := frameRect.Bottom-frameRect.Top;
    Form1.Image1.Width := face.Width;
    Form1.Image1.Height := face.Height;    BitBlt(face.Canvas.Handle, 0, 0,frameRect.Right-frameRect.Left,frameRect.Bottom-frameRect.Top,
           sourceBmp.Canvas.Handle, frameRect.left, frameRect.top, SRCCOPY);
    Jpg := TJPEGImage.Create;
    Jpg.CompressionQuality := 100;
    Jpg.Assign(face);
    Jpg.SaveToFile(FileName);
    Jpg.Free;
    face.Free;
end;