Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.024 c
14-1101265400
ИМХО
2004-11-24 06:03
2004.12.12
Почему Москва такой дорогой город?


11-1083932600
*Pavel
2004-05-07 16:23
2004.12.12
Глюки с открытием файла


1-1101715306
Molchanov
2004-11-29 11:01
2004.12.12
Удаление строк из TRichEdit


6-1096695984
Ivolg
2004-10-02 09:46
2004.12.12
Передача


1-1101725416
Gloomer
2004-11-29 13:50
2004.12.12
Компонент выбора папки