Цитата:
var
Bmp: TBitmap;
Jpg: TJPEGImage;
begin
Jpg := TJPEGImage.Create;
Bmp := TBitmap.Create;
bmp.Width := Screen.Width;
bmp.Height := Screen.Height;
BitBlt(bmp.Canvas.Handle, 0, 0, Screen.Width, Screen.Height,
GetDC(GetDesktopWindow), 0, 0, SRCCopy);
Jpg.Assign(Bmp);
Jpg.CompressionQuality:=20;
Jpg.Compress;
end;
|
Вот, получаю таким образом изображение экрана в Jpg (мб и коряво, но не в этом смысл). А вопрос заключатеся в том, что: как узнать сколько это изображение "весит"?