Как улучшить качество скриншота

[Arkuz]

Здравствуйте. Подскажите, почему такое качество ужасное у скриншота...

Реализую так:

 canva:=TCanvas.Create;
 canva.Handle:=GetDC(0);
 Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),
             canva, Rect(0,0,Screen.Width,Screen.Height));

..............................................................

 b:=TBitmap.Create();
 b:=Image1.Picture.Bitmap;
 b.SaveToFile('Screen'+IntToStr(i)+'.bmp');

[Alar]

поставь - image1.Proportional:=true;

procedure TForm1.Button1Click(Sender: TObject);
var
canva: TCanvas;
b:TBitmap ;
begin
   image1.Proportional:=true;
 canva:=TCanvas.Create;
 canva.Handle:=GetDC(0);
 Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),
             canva, Rect(0,0,Screen.Width,Screen.Height));

//..............................................................

 b:=TBitmap.Create();
 b:=Image1.Picture.Bitmap;

 b.SaveToFile('c://2ddScreen.bmp');

[Arkuz]

Спасибо, но не помогло... Как было так и осталось...

[Alar]

Arkuz, посмотрите файлик c://2ddScreen.bmp, пожалуйста.

Как минимум также не могло остаться, скрин будет больше размером, чем в вашем вложении

[Пепел Феникса]

а для чего ты используешь промежуточный TBitMaP?
ты же можешь сохранить напрямую Image1.Picture.Bitmap

procedure TForm1.Image1Click(Sender: TObject);
var canva:TCanvas;
begin
 canva:=TCanvas.Create;
 canva.Handle:=GetDC(0);
 Image1.Canvas.CopyRect(Rect(0,0,Image1.Width,Image1.Height),
             canva, Rect(0,0,Screen.Width,Screen.Height));
 Image1.Picture.Bitmap.SaveToFile('pic.bmp');
end;

а в этом коде твоя ошибка в том что ты не меняешь размер BitMaP'ов
потому и ужимает картинку...
добавь это перед копированием области:

 Image1.Width:=Screen.Width;
 Image1.Height:=screen.Height;

[mihali4]

Эх, лень человеческая... Поиск для кого сделан?
Получайте то, что уже было на форуме:

Как сделать BMP снимок с экрана?

Код от Грузин:

var
  Desktopcanvas :TCanvas ;
 BitMap  :TBitMap;
begin
  DesktopCanvas:=TCanvas.Create;
  DesktopCanvas.Handle:=GetDC(Hwnd_Desktop);
  BitMap := TBitMap.Create;
  BitMap.Width := Screen.Width;
  BitMap.Height:=Screen.Height;
  Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
  DesktopCanvas, DesktopCanvas.ClipRect);
  bitmap.SaveToFile('c:\windows\screen.bmp');
 image1.Picture.LoadFromFile('c:\windows\screen.bmp');
end;

Код от Alar:

var 
ScreenDC:HDC; 
Canvas:TCanvas; 
Image1:TImage; 
Begin 
ScreenDC := GetDC(0); 
Canvas:=TCanvas.Create(); 
Canvas.Handle:=ScreenDC; 
Image1 := TImage.Create(nil); 
Image1.Width := Screen.Width 
Image1.Height := Screen.Height 
Image1.Canvas.CopyRect(Rect(0, 0, Image1.Width, Image 1.Height), Canvas, Rect(0, 0, Screen.Width, Screen.Height)); 
ReleaseDC(0,ScreenDC); 
Canvas.Free; 
end;

Ну, а это я приводил для JPG:

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;

А вот еще интересная функция:

PaintDeskTop(Form1.Canvas.Handle);

Она закрашивает фон формы Form1 фоновым рисунком рабочего стола (или цветом, если рисунка нет).

[Arkuz]

Спасибо.....