Сохранить изображение в формате 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