Как сделать JPG снимок с экрана?
Как сделать JPG снимок с экрана?
Как сделать JPG снимок с экрана? mihali4: var ScreenDC:HDC; Canvas:TCanvas; myjpg: TJPEGImage; Image: TImage; Begin Image:=TImage.Create(nil); myjpg:= TJPEGImage.Create; ScreenDC := GetDC(0); Canvas:=TCanvas.Create(); Canvas.Handle:=ScreenDC; Image.Width := Screen.Width; Image.Height := Screen.Height; Image.Canvas.CopyRect(Rect(0, 0, Image.Width, Image.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height)); ReleaseDC(0,ScreenDC); myjpg.Assign(Image.Picture.Bitmap); myjpg.compressionquality:=75; {устанавливаем параметры качества. Должно быть от 1 до 100. Если 100, то качество наилучшее, 1 наихудшее} myjpg.compress; {производим сжатие данных картинки} myjpg.SaveToFile('c:\prob.jpg'); Image.Free; Canvas.Free; end;
