Сохранить изображение в формате JPEG

Previous  Top  Next

    
 

 

В комплект поставки Delphi входит модуль JPEG. Он позволяет работать с изображениями в формате JPEG. Эта программа сохраняет изображение экрана в файле C:\Screen.jpg.

 

Code:

uses Jpeg;

 

procedure TForm1.Button1Click(Sender: TObject);

var

JpegIm: TJpegImage;

bm: TBitMap;

begin

bm := TBitMap.Create;

bm.Width := Screen.Width;

bm.Height := Screen.Height;

BitBlt(bm.Canvas.Handle, 0, 0,

   bm.Width, bm.Height,

   GetDC(0), 0, 0, SRCCOPY);

 

JpegIm := TJpegImage.Create;

JpegIm.Assign(bm);

JpegIm.CompressionQuality := 20;

JpegIm.Compress;

JpegIm.SaveToFile('C:\Screen.jpg');

bm.Destroy;

JpegIm.Destroy;

end;

 

©Drkb::03789

Автор советов: Даниил Карапетян

e-mail: delphi4all@narod.ru

 

Автор справки: Алексей Денисов

e-mail: aleksey@sch103.krasnoyarsk.su