Потеря качества изображения при копировании

[Herly]

В программе мне нужно скопировать часть картинки из одного Timage в другую и при этом теряется качество изображения.
Для пробы скопировал из одного Image в другой идентичный по размеру
Копирую слудующим образом:

Image2.Picture.Bitmap.width:=Image1 .width;
Image2.Picture.Bitmap.height:=Image 2.height;
Image2.Picture.Bitmap.Canvas.copyre ct(rect(0,0,Image2.width,Image2.hei ght),Image1.picture.bitmap.canvas,r ect(0,0,Image1.Picture.bitmap.width ,Image1.picture.Bitmap.height));

И изображение оказалось хуже по качеству, подскажите как можно повысить качество копирования.

[mihali4]

А вы перед этим кодом добавьте еще:

Image2.width:=Image1.width;
Image2.height:=Image1.height;

А при изменении размера качество будет страдать, от этого никуда не денешься...

[Herly]

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

rect(0,0,Image1.Picture.bitmap.widt h ,Image1.picture.Bitmap.height));

То качество ухудшается
а если написать так

rect(0,0,Image1.width ,Image1.height));

То качество не меняется, но каритинка не растягивается на весь Image а виден только верхний левый угол.

[mihali4]

Какой размер исходной картинки ?
Каков ее настоящий размер ?
Какую часть ее вы копируете ?
Каков размер картинки, куда вы помещаете копию ?
Совпадает ли он с размером копируемой части ?
Если нет, то каков коэффициент изменения ?

Видите, сколько вопросов вы не раскрыли ?
Зато результат хотите получить, как от десятка экстрасенсов...

[Herly]

картинка идёт со сканера глубина 200dpi
размер картинки 21.47х29.57см
вес 11.52мб
она добавляется в Image1, затем оттуда сохраняется на диск, под именем image.bmp, а далее снова грузится в image1(Сохраняемая картинка и загруженная визуально абсолютно идентичны).
Для пробы я копирвоал всю картинку из Image1 в Image2. Размер Image2
как вы предложили ранее был указан програмно. При этом происходит сильная потеря качества. А если производить копирование частей картинки внутри самого Image1 качество не меняется.

[raxp]

что-то никак не возьму в толк смысл всех этих манипуляций... не хотите потерь, сохраняйте битовую матрицу (bmp) как она есть и уже все остальные действия пусть танцуют от нее...

[BOBAH13]

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

что-то никак не возьму в толк смысл всех этих манипуляций... не хотите потерь, сохраняйте битовую матрицу (bmp) как она есть и уже все остальные действия пусть танцуют от нее...

+ добавлю, уж если пошла речь о качестве, GDIовский CopyRect тут вообще не в тему. Легкий вариант это GDI+ + DrawImage + Interpolaition HighQualityBicubic (как то так)

[Herly]

Вот скрин этого копирования чтобы было понятно что меня смущает в копировании...
(Слева картинка после сканирования, справа после копирования)
А вот почему так никак не пойму.

[evg_m]

кроме размеров у TBitmap еще есть

property PixelFormat: TPixelFormat;
property Palette: HPalette;

[Herly]

Я когда копирую из одного Image в другой pixelsformat не изменяю. поэтом я думаю не в нём дело.
А вот что задаёт poperty Palette?