Вырезать из jpeg в отдельный файл

← →
KliffLevy (2004-09-13 11:29) [0]

Есть такая задача:

Сканировать изображение и вырезать из него квадраты определенного размера в jpeg-файлы.

Со сканированием справиться легко. На форме у меня есть TImage, куда изображение и попадает.

Теперь осталось чтобы была возможность получившееся изображение просматривать с прокруткой (пока у меня высвечивается только верхний левый угол) и помещать на экран прямоугольник, перемещаемый мышью, а при нажатии кнопки сохранять то что под прямоугольником в jpeg-файл.

← →
Ozone © (2004-09-13 14:05) [1]

Тупо наверно, но другого варианта я пока не знаю
var BMP: TBitmap; JPG: TJpegImage; DC: HDC; R: TRect; begin with BMP do begin DC := GetWindowDC(Win); try GetWindowRect(Win, R); BitBlt(Canvas.Handle, 0, 0, Width, Height, DC, 0, 0, SRCCOPY); finally ReleaseDC(Win, DC); end; {...} JPG.Assing(BMP); {...}

Win : HWND (окно где у тебя рисунок)

Вырезать из jpeg в отдельный файл Найти похожие ветки