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

[evg_m]

мы копируем картинку (со всеми ее атрибутами: длина, ширина, формат, ...) или пиксели одной картинки в другую?

Image2.Picture.Bitmap.width:=Image1 .width;
Image2.Picture.Bitmap.height:=Image 2.height;
Image2.Picture.Bitmap.Canvas.copyrect

[Herly]

Хотелось бы с тем же форматом производить копирование.
А ещё я заметил что если взять картинку из интернета, через Paint сохранить как Bmp, а затем подгрузить её в image1 и скопировать в image2 то качество не теряется.
Поэтому я теперь начинаю думать что дело не в копировании, а в формате, который приходит со скаера.
Программно картинка со сканера добавляется так

TWAIN_DrawDibToDC(MyBitMap.Canvas.H andle,0,0,Width,Height,dat,0,0);
Image1.Picture.Graphic:=MyBitMap;
Image1.Picture.SaveToFile('C:\image .bmp');
Image1.Picture.LoadFromFile('C:\ima ge.bmp');

Может быть тут ошибка.

Скрин копирования изображения после сохранения в bmp через paint прилагается.
Если прописать следующие

Image2.Picture.Bitmap:=Image1.Pictu re.Bitmap

то картинка идёт без изменения качества. Я никак не пойму что не так.

[Herly]

В итоге решил эту неприятность так:

image2.picture.bitmap.height:=image 1.picture.bitmap.height
image2.picture.bitmap.width:=image1 .picture.bitmap.width

Но возникла новая добавляю изображение в БД как и раньше, но при обратной загрузке стала вылетать ошибка: "Bitmap Image is not valid"
С чем это связано, кто знает?
Вроде как в Blob поле базы Paradox можно поместить до 256 мб, а картинка весит 15 мб, значит переполнение не происходит, и тогда неясно в чём дело.

[Herly]

Помогите пожалуйста разобраться, а то не хочется возвращаться к худшему качеству изображения.

Unp.Nimg1.Picture.Bitmap.Height:=Un p.Pimg1.Picture.Bitmap.Height;
Unp.Nimg1.Picture.Bitmap.Width:=Unp .Pimg1.Picture.Bitmap.Width;
Unp.Nimg1.Picture.Bitmap.Canvas.Cop yRect(Rect(0,0,Unp.Nimg1.Picture.Bi tmap.Width,Unp.Nimg1.Picture.Bitmap .Height),Unp.Pimg1.Picture.Bitmap.C anvas,Num);
Unp.ALimg1.Picture.Bitmap.Height:=U np.Pimg1.Picture.Bitmap.Height;
Unp.ALimg1.Picture.Bitmap.Width:=Un p.Pimg1.Picture.Bitmap.Width;
All.Top:=Num.Bottom+5;
All.Left:=trunc(BitM.Width/2);
All.Right:=unp.Pimg1.Picture.Bitmap .Width;
All.Bottom:=Unp.Pimg1.Picture.Bitma p.Height;
Unp.ALimg1.Picture.Bitmap.Canvas.Co pyRect(Rect(0,0,Unp.ALimg1.Picture. Bitmap.Width,Unp.ALimg1.Picture.Bit map.Height),Unp.Pimg1.Picture.Bitma p.Canvas,All);
Redraw();//поворот скопированной области
Unp.PGimg1.Picture.Bitmap.Height:=U np.ALimg1.Picture.Bitmap.Height;
Unp.PGimg1.Picture.Bitmap.Width:=Un p.ALimg1.Picture.Bitmap.Width;
Unp.PGimg1.Picture.Bitmap.Canvas.Co pyRect(Unp.PGimg1.Picture.Bitmap.Ca nvas.ClipRect,Unp.ALimg1.Picture.Bi tmap.Canvas,rect(0,trunc(Unp.ALimg1 .Picture.Bitmap.Height/5),trunc(Unp.ALimg1.Picture.Bitmap. Width/2.9),trunc(Unp.ALimg1.Picture.Bitma p.Height/1.5)));
Unp.ALimg1.Picture.Bitmap.Canvas.Co pyRect(Unp.ALimg1.Picture.Bitmap.Ca nvas.ClipRect,Unp.ALimg1.Picture.Bi tmap.Canvas,rect(trunc(Unp.ALimg1.P icture.Bitmap.Width/2.9),0,Unp.ALimg1.Picture.Bitmap.Wi dth,trunc(Unp.ALimg1.Picture.Bitmap .Height/1.5)));

Num,All-размеры областей которые я копирую в исходном Pimg1
Вот так происходит копирование нужных мне полей из главного (Pimg1), при этом качество остаётся отличным.
Заносится в БД следующим образом

Unp.Table1.Append;
Unp.Table1.Edit;
TblobField(Unp.Table1.FieldByName(' PhotoField')).Assign(Unp.ALimg1.Pic ture);
TblobField(Unp.Table1.FieldByName(' PhotoNum')).Assign(Unp.Nimg1.Pictur e);
TblobField(Unp.Table1.FieldByName(' PhotoP')).Assign(Unp.PGimg1.Picture );
Unp.Table1.Post;

Вывод происходит так:

Res.DBGrSR.SelectedIndex:=0;
Res.ImgPh.Picture.Assign(TBlobField (Res.DBGrSR.SelectedField));
Res.DBGrSR.SelectedIndex:=1;
Res.ImgNum.Picture.Assign(TBlobFiel d(Res.DBGrSR.SelectedField));
Res.DBGrSR.SelectedIndex:=2;
Res.ImgAll.Picture.Assign(TblobFiel d(Res.DBGrSR.SelectedField));

, где поле под индексом 0-PhotoP, 1-PhotoNum, 2-PhotoField.
В итоге выводится только изображение в ImgPh, а на осталные два выдаёт ошибку : "Bitmap Image is not valid"
Я пробовал после копирования дописывать

Unp.ALimg1.Picture.Bitmap.PixelForm at:=pf24bit;
Unp.Nimg1.Picture.Bitmap.PixelForma t:=pf24bit;
Unp.PGimg1.Picture.Bitmap.PixelForm at:=pf24bit;

Но это не помогло.
Подскажите что нужно сделать чтобы вывод изображения из БД проходил без ошибок(БД Paradox 7). Очень нужен хелп...

[Herly]

Картинка стала нормально выводится когда понижаю количество цветов,
либо размер битмап, хотя исходная картинка спокойно добавляется и выводится.

Unp.ALimg1.Picture.Bitmap.PixelForm at:=pf8bit;

на сайте http://base.vingrad.ru/view/45-Paradox
указано что максимальный размер Blob поля 256 мб, картинка в целом в формате Bmp весит 20мб максимум, значит части её будут весить меньше.
И я никак немогу понять почему с уменьшением кол-ва цветов на пиксель->с уменьшением веса всё начинает нормально работать, разъясните пожалуйста.