Главная страница
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.037 c
3-1100166911
ALex11
2004-11-11 12:55
2004.12.12
Wer ist das: Insufficient disk space.???


4-1098878484
maxistent
2004-10-27 16:01
2004.12.12
??? CreateFileMapping ???


1-1100705690
Sicilla
2004-11-17 18:34
2004.12.12
Ошибка в delphi 7


1-1101469896
барбос
2004-11-26 14:51
2004.12.12
TabOrder


3-1100182284
Katrin
2004-11-11 17:11
2004.12.12
Как узнать ID созданной с помощью SQL записи?