Форум: "Media";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Вниз

Вырезать из 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);
{...}


---

← →
Ozone ©   (2004-09-13 14:06) [2]

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

---

Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2004.12.12;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.048 c