Добрый день, Знатоки!
Помогите пожалуйста с проблемой! Пытаюсь вырезать заданный фрагмент из хорошего файла изображения и записать в файл и Image! Получаю и в Image и в файле искаженное изображение! Уже перебрал множество вариантов, а результат все тот - же !
Код:
Graphics::TBitmap* inBitmap = new Graphics::TBitmap();
inBitmap->PixelFormat = pf24bit;
inBitmap->Width = 640;
inBitmap->Height = 480;
inBitmap->LoadFromFile("PHOTO.BMP");
Graphics::TBitmap* outBitmap = new Graphics::TBitmap();
outBitmap->PixelFormat = pf24bit;
outBitmap->Width = CURRENT.Width;
outBitmap->Height = CURRENT.Height;
outBitmap->Palette = inBitmap->Palette;
outBitmap->Canvas->CopyMode = cmSrcCopy;
TRect Dest_Rect (0,0,CURRENT.Width,CURRENT.Height);
TRect Source_Rect (CURRENT.Left*2,
CURRENT.Top*2,
(CURRENT.Left + CURRENT.Width)*2,
(CURRENT.Top + CURRENT.Height)*2);
outBitmap->Canvas->CopyRect(Dest_Rect,inBitmap->Canvas,Source_Rect);
outBitmap->SaveToFile("TMP.BMP");
Image3->Stretch = true;
Image3->Transparent = true;
Image3->Width = CURRENT.Width;
Image3->Height = CURRENT.Height;
Image3->Picture->LoadFromFile("TMP.BMP");
delete outBitmap;
delete inBitmap;
Админ: Пользуемся тегами для оформления кода!
Попутно второй вопрос! Имеется заведомо хороший BMP файл изображения (полученный при захвате с веб камеры).
Как из него вывести на Image фрагмент с заданными координатами?!!
С Уважением и надеждой!!!
Onic777