Ejemplo de programación de intercepción de imagen de Delphi (5)

3) Ratea el formulario o la imagen de control

Tome un formulario o imagen de control, es decir, para usar un nuevo Form22, consulte "Delphi Image Intercept Ejemplo (7)"

Agregue Capture2 en los usos de la implementación de la unidad principal.

[Captura de ventanas o controles] Evento de acción para un formulario o captura de control

Procedimiento tmainform.cptwindowsexecute (remitente: tobject);

var p: tpoint;

Comenzar

Inc (CaptureNum, 1);

aplicación.minimize;

Retraso (500);

FileName: = 'Capture'+intToStr (captureNum);

Nombre de archivo: = defaultDirectory+nombre de archivo;

con tform2.create (aplicación) do

intentar

Si showModal = Mrok entonces

Comenzar

Createmdichild (nombre de archivo, verdadero);

Statusbar.simpletext: = FileName;

Retraso (500);

Abitmap: = tbitmap.create;

GetCursorpos (P);

Manejas: = WindowfromPoint (P);

Abitmap: = captureWindowimage (manejas);

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;

Child.image1.hint: = 'altura:'+intToStr (child.image1.picture.height)+'píxeles'

+'Ancho:'+intToStr (child.image1.picture.width)+'píxeles';

Abitmap.Free;

fin;

Finalmente

Gratis;

Application.Restore;

fin;

fin;

4) Fotos de icono de rastreo

Tome una imagen de icono, es decir, para usar un nuevo Form33, consulte "Delphi Image Intercept Ejemplo (8)"

Agregue Capture3 en los usos de la implementación de la unidad principal.

Agregue el proceso privado capturado en la unidad principal:

procedimiento tmainform.captureicon;

Comenzar

con tform3.create (aplicación) do

intentar

Si showModal = Mrok entonces

con frect hacer comienza

if (derecha> a la izquierda) y (abajo> arriba) entonces comience

Retraso (300);

Abitmap: = tbitmap.create;

Abitmap.assign (capturescreenrect (frect));

Child.image1.picture.bitmap: = abitmap;

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

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

Abitmap.Free;

Fin El otro comienzo

Messagedlg ('Error de selección de borde, intente nuevamente!', MtInformation, [mbok], 0);

Niño. Cerca;

Form3.free;

salida;

fin;

fin;

Finalmente

Gratis;

fin;

fin;

[Icono de captura] Evento de acción para iconas de captura de imágenes

procedimiento tmainform.cpticonExecute (remitente: tobject);

Comenzar

Aplicación.minimize;

Retraso (400);

Inc (CaptureNum, 1);

FileName: = 'Capture'+intToStr (captureNum);

Nombre de archivo: = defaultDirectory+nombre de archivo;

Createmdichild (nombre de archivo, verdadero);

Statusbar.simpletext: = FileName;

Captiveicon;

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;

Child.image1.hint: = 'altura:'+intToStr (child.image1.picture.height)+'píxeles'

+'Ancho:'+intToStr (child.image1.picture.width)+'píxeles';

Application.Restore;

fin;