Есть ли функции качественного масштабирования tbitmap?

[Illusiony]

делаю так :

sk_bmp_cards.Canvas.StretchDraw(Rect(0, 0, 620, 204), sk_bmp_cards);

Но качество оставляет желать лучшего.
Через CSS в html эта же картинка масштабируется гораздо лучше.

П.С. Delphi7

Нашел такое:

procedure ResizeBMP(ABitMap: TBitmap; ANewWidth, ANewHeight: Integer);
var
 tmpBmp:     TBitmap;
(**)
 divHeight,
 divWidth:   double;
(**)
begin
 tmpBmp := TBitmap.Create;
 try
   tmpBmp.PixelFormat := ABitMap.PixelFormat;
   tmpBmp.Width := ABitMap.Width;
   tmpBmp.Height := ABitMap.Height;
   BitBlt(tmpBmp.Canvas.Handle, 0, 0, tmpBmp.Width, tmpBmp.Height,
          ABitMap.Canvas.Handle, 0, 0, SRCCOPY);
(**)
   divHeight := ABitMap.Height / ANewHeight;
   divWidth := ABitMap.Width / ANewWidth;
   if (divHeight = 1.0) and (divWidth = 1.0) then
   begin     //  Keine ﾄnderung
     ANewWidth := ABitMap.Width;
     ANewHeight := ABitMap.Height;
   end
   else if divHeight > divWidth then
   begin     //  Bei Height
     ANewWidth := trunc(ABitMap.Width / divHeight);
   end
   else      //  Bei Width
   begin
     ANewHeight := trunc(ABitMap.Height / divWidth);
   end;
(**)
   ABitMap.Width := ANewWidth;
   ABitMap.Height := ANewHeight;
   if SetStretchBltMode(ABitMap.Canvas.Handle, HALFTONE) = 0 then
   begin
     ShowMessage('SetStretchBltMode: ' + SysErrorMessage(GetLastError));
   end
   else if not SetBrushOrgEx(ABitMap.Canvas.Handle, 0, 0, nil) then
   begin
     ShowMessage('SetBrushOrgEx: ' + SysErrorMessage(GetLastError));
   end
   else if not StretchBlt(ABitMap.Canvas.Handle, 0, 0, ABitMap.Width, ABitMap.Height,
                          tmpBmp.Canvas.Handle, 0, 0, tmpBmp.Width, tmpBmp.Height, SRCCOPY) then
   begin
     ShowMessage('StretchBlt: ' + SysErrorMessage(GetLastError));
   end;
 finally
   tmpBmp.Free;
 end;
end;

Качество не лучше

[kropotkina-alice]

Посмотрите на киберфоруме - ребятам удалось:
http://www.cyberforum.ru/delphi-begi...ml#post4086320

[Illusiony]

Сообщение от kropotkina-alice

Посмотрите на киберфоруме - ребятам удалось:
http://www.cyberforum.ru/delphi-begi...ml#post4086320

Видел это уже, но там на самом деле нету решения. Приведен пример интерполяции только.

[Smitt&Wesson]

Есть ли функции качественного масштабирования tbitmap?

Есть. Но пример могу привести только на С++. Устроит?

[kropotkina-alice]

Сообщение от Illusiony

Видел это уже, но там на самом деле нету решения.

Пост #37 внимательно посмотрели, под спайдером?

Сообщение от Illusiony

Приведен пример интерполяции только.

Вы знаете другой способ? Ню-ню...
Тогда флаг вам в руки...

[Illusiony]

Сообщение от Smitt&Wesson

Есть. Но пример могу привести только на С++. Устроит?

К сожалению нет.

[Illusiony]

Сообщение от kropotkina-alice

Пост #37 внимательно посмотрели, под спайдером?


Вы знаете другой способ? Ню-ню...
Тогда флаг вам в руки...

Да это и имел ввиду, но как им воспользоваться, боюсь сложновато. Несколько фильтров. И как ими масштабировать не знаю.

[Smitt&Wesson]

Сообщение от Illusiony

К сожалению нет.

Увы, но в Делфях не силён.

[Illusiony]

Нашел библиотеку FastDIB.

Сделал так:

procedure TForm1.btn1Click(Sender: TObject);
var Src,Dst:TFastDIB;
jpg_test_nRazpozn:TJPEGImage;
bmp:TBItmap;
begin
Src:=TFastDIB.Create;
Dst:=TFastDIB.Create;
Src.LoadFromFile('jpg_test_nRazpozn0bmp.bmp');
Dst.SetSize(620, 204, Src.Bpp);
Bilinear24(Src, Dst);
//FastResize24(Src, Dst);
//Quick2x24(Src, Dst);
Dst.SaveToFile('jpg_test_nRazpozn__j.bmp');
bmp:=TBitmap.Create;
bmp.LoadFromFile('jpg_test_nRazpozn__j.bmp');
jpg_test_nRazpozn:= TJPEGImage.Create;
 jpg_test_nRazpozn.Assign(bmp);
 jpg_test_nRazpozn.CompressionQuality:=20;
jpg_test_nRazpozn.SaveToFile('jpg_test_nRazpozn__j.jpg');
 Src.Destroy;
 Dst.Destroy;
 bmp.Free;
 jpg_test_nRazpozn.Free;
end;

Все равно качество гораздо хуже чем если бы я без масштабирования сохранил рисунок с тем же качеством jpg=20, а потом отмасштабировал его CSS в html страничке до того же разрешения 620,204

До масштабирования в браузере jpeg загружается с разрешением 1100х362.
Жалко что нельзя сохранить отмасштабированное CSS изображение чтобы можно было сравнить размеры.

Возможно я недопонимаю сам процесс масштабирования в СSS?
Может быть хоть размеры картинки визуально отмасштабированы, но реально картинка осталась весить столько же? таким образом мне нужно сравнивать размеры немасштабированного рисунка в html с масштабированным в delphi, если так сделать, то качество получается близкое.

Кто нибудь использовал эту библиотеку? как в ней загрузить bmp из tbitmap, который создан заранее ,а не из файла?
Вроде есть Assing, но аналогично jpeg в виде: jpg_test_nRazpozn.Assign(sk_bmp_car ds); не работает

[kropotkina-alice]

Сообщение от Illusiony

но как им воспользоваться, боюсь сложновато. Несколько фильтров. И как ими масштабировать не знаю.

Фильтрами не масштабируют, а обрабатывают увеличенное изображение.
Там даже готовый пример дан (пост #39).
Из любопытства сама попробовала и полностью согласна с постом #40.
А вот что вам там "сложновато" - это для меня загадка...