Уменьшить масштаб полученного снимка экрана

[kyran29]

Необходимо уменьшить масштаб полученного снимка с минимальными потерями качества.
Результат: масштаб был уменьшен с помощью функции ResizeBitmap - качество изображения изменилось с худшим результатом:

Качество изображения без функции ResizeBitmap :

Прошу помочь разобраться с уменьшением масштаба изображения с минимальными потерями в качества.

uses Jpeg;
 
function ResizeBitmap(BmpIn : TBitmap; NewWidth, NewHeight : Integer) : TBitmap;
begin
  Result := TBitmap.Create;
 try
   Result.Width := NewWidth;
   Result.Height := NewHeight;
   Result.PixelFormat := BmpIn.PixelFormat;
   Result.Canvas.StretchDraw(Rect(0, 0, Result.Width, Result.Height), BmpIn);
 except
   Result.Free;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 var
   JpegIm: TJpegImage;
   bm: TBitMap;
   ScrJpg : String;
 begin
   ScrJpg := 'screenshot.jpg';
   DeleteFile(ScrJpg);
   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);
   bm := ResizeBitmap(bm, 1200, 674);
   JpegIm := TJpegImage.Create;
   JpegIm.Assign(bm);
   JpegIm.CompressionQuality := 90;
   JpegIm.Compress;
   JpegIm.SaveToFile(ScrJpg);
   bm.Destroy;
   JpegIm.Destroy;
   Form1.Close;
end;

 

[vital]

JpegIm.CompressionQuality := 90;

А с этим параметром баловаться пробовали?

 

[kyran29]

А с этим параметром баловаться пробовали?

Пробовал, масштаба изображения - JpegIm.CompressionQuality не меняет

 

[vital]

масштаба изображения - JpegIm.CompressionQuality не меняет

Зато влияет на результирующее качество картинки, при преобразовании из bitmap в jpg, как вариант.

 

[kyran29]

Зато влияет на результирующее качество картинки, при преобразовании из bitmap в jpg, как вариант.

Суть вопроса изменить масштаб с минимум потерь в качестве изображения.

 

[vital]

Суть вопроса изменить масштаб с минимум потерь в качестве изображения.

Почитать про алгоритмы изменения размера изображения.
Например тут http://habrahabr.ru/post/111402/
или тут http://habrahabr.ru/post/48518/
на худой конец тут https://ru.wikipedia.org/wiki/Масштабирование_изображения

 

[vital]

http://www.eurasip.org/Proceedings/Eusipco/Eusipco2009/contents/papers/1569187154.pdf

Вот еще хороший алгоритм. Поищите реализации на дельфях, только вряд ли. Такие вещи не выкладывают обычно. Оно вам точно надо?

 

[sinkopa]

Суть вопроса изменить масштаб с минимум потерь в качестве изображения.

Всё равно мне лично "суть вопроса" Вашего понятна не до конца...
Если суть - накодить алгоритм уменьшения картинки "с малыми потерями качества, то Вам сюда:
http://geektimes.ru/post/13534/
или (как уже подсказывали) сюда http://habrahabr.ru/post/183638/
А если же суть - получить результат, то сюда:
http://freeimage.sourceforge.net/index.html