FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Código para hacer una captura de pantalla
Tengo el siguiente código que hace una captura de pantalla de la aplicación que este por debajo del form:
procedure TForm1.timer3Timer(Sender: TObject); var handlePantalla : hdc; begin //ocultamos el formulario de la //aplicación para que no aparezca hide; //image6.autosize := false; //sleep(1000); //esperamos un segundo image6.picture := nil; //eliminamos el contenido del image1 actual //establecemos el tamaño de image1 al tamaño de la resolución de la pantalla /// image6.SetBounds(0, 0, screen.width, screen.height); handlePantalla := GetDesktopWindow; //obtenemos el handle de la pantalla //copiamos la captura a image1, mediante la función BitBlt BitBlt(image6.Canvas.handle, 0, 0, screen.width, screen.Height, getdc(handlePantalla), 0, 0, srcCopy); ReleaseDC(0, handlePantalla); //liberamos el objeto show; image6.autosize := true; timer3.Enabled := false; end; ------------------------------------- El problema es que me guarda una imagen que es una porción de un cuarto de lo que en realidad es la imagen real. Me podéis decir como puedo modificar el código para que la imagen que muestro en un "image6" de la form sea proporcional. He probado con proportional := true. El código original no es mio. Gracias! |
#3
|
||||
|
||||
Otra opcion es simular el presionado de la tecla que imprime la pantalla..eso puede lograrse con la API keybd_event() aunque segun se ve ahí, que dicha API ha sido sustituida por esta otra API SendInput , pero eso no quiere decir que la primera no funcione....
Saludos...
__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7
|
#4
|
||||
|
||||
Si miras la sección de trucos de la página, verás que hay un par para realizar capturas de pantralla (link, link).
Si realizas una búsqueda también deberías obtener varios hilos, ya que es un tema que ya hemos tratado antes.
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Captura de pantalla (de formulario) | Duc | Gráficos | 5 | 05-03-2009 18:30:46 |
captura de pantalla | magomalo | C++ Builder | 1 | 04-02-2007 01:25:17 |
Captura pantalla | walito | Gráficos | 11 | 28-01-2006 01:37:05 |
Tecnicas para captura de pantalla | diegofhernando | Varios | 0 | 21-07-2004 17:31:38 |
Captura de pantalla | craven | API de Windows | 1 | 29-08-2003 15:51:39 |
|