Текущий архив: 2004.12.12;
Скачать: CL | DM;
Вниз
Вырезать из 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 вся ветка
Текущий архив: 2004.12.12;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.037 c
