Пример программирования перехвата изображений Delphi (4)

(Vi) событие действия Tmainform (Picture)

1) Полный захват экрана

[Capture Desktop] Действие

Процедура tmainform.cptdesktopexecute (отправитель: tobject);

Начинать

Inc (CaptuRenum, 1);

Application.minimize;

Задержка (500);

Имя файла: = 'захват'+inttoStr (capturenum)+'. Bmp';

FileName: = defaultDirectory+FileName;

CreateMdichild (имя файла, True);

Statusbar.simpletext: = filename;

с ActiveMdichild, как tmdichild, начинаются

Image1.picture.bitmap: = CaptureScreen;

Horzscrollbar.range: = image1.picture.width;

Vertscrollbar.range: = image1.picture.height;

конец;

Child.image1.hint: = 'height:'+inttoStr (child.image1.picture.height)+'пиксели'

+'Ширина:'+inttoStr (child.image1.picture.width)+'пиксели';

Application.Restore;

конец;

2) Захват площади

Для захвата изображений областей, новая форма1 для использования, см. «Пример программирования Image Image Image (6)».

Добавьте Capture1 в использовании реализации основной единицы.

Добавьте частный процесс в CaptureArea Main Unit:

Процедура tmainform.captureaea;

Начинать

с tform1.create (приложение) do

пытаться

Если ShowModal = MROK, тогда

с фректором, начинается

if (справа> слева) и (внизу> сверху), затем начните

Задержка (400);

Abitmap: = tbitmap.create;

Abitmap.assign (захваткратный (frect));

Child.image1.picture.bitmap: = abitmap;

Child.clientWidth: = child.image1.picture.width;

Child.clientHeight: = child.image1.picture.height;

Child.horzscrollbar.range: = child.image1.picture.width;

Child.vertscrollbar.range: = child.image1.picture.height;

Abitmap.free;

конец иначе начнется

MOSSAGEDLG («Выберите область изображения неправильно, пожалуйста, повторно выбирайте!», Mtinformation, [MBOK], 0);

Ребенок.close;

Form1.free;

Выход;

конец;

конец;

Окончательно

Бесплатно;

конец;

конец;

[Область захвата] событие действия для захвата площади

Процедура tmainform.cptareaexecute (отправитель: tobject);

Начинать

Inc (CaptuRenum, 1);

Application.minimize;

Задержка (500);

Имя файла: = 'захват'+inttoStr (capturenum)+'. Bmp';

FileName: = defaultDirectory+FileName;

{Создать детское окно MDI}

CreateMdichild (имя файла, True);

Statusbar.simpletext: = filename;

{Область захвата экрана}

CaptureArea;

Child.image1.hint: = 'height:'+inttoStr (child.image1.picture.height)+'пиксели'

+'Ширина:'+inttoStr (child.image1.picture.width)+'пиксели';

Application.Restore;

конец;