| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вырезать из jpeg в отдельный файл [D6, Win95/98]
KliffLevy © (2004-09-13 11:29:00)Есть такая задача:
Сканировать изображение и вырезать из него квадраты определенного размера в jpeg-файлы.
Со сканированием справиться легко. На форме у меня есть TImage, куда изображение и попадает.
Теперь осталось чтобы была возможность получившееся изображение просматривать с прокруткой (пока у меня высвечивается только верхний левый угол) и помещать на экран прямоугольник, перемещаемый мышью, а при нажатии кнопки сохранять то что под прямоугольником в jpeg-файл.
Ozone (2004-09-13 14:06:00) [1]Win : HWND (окно где у тебя рисунок)
Ozone (2004-09-13 14:05:00) [2]Тупо наверно, но другого варианта я пока не знаю
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);
{...}
| |
