 |
Club Builder Foro de C++Builder en español
|
| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Gustavo Ens

Registrado: 23 Sep 2003Mensajes: 41Ubicación: Campeche,Mexico
|
Publicado: Mie 25 Feb, 2004 7:27 pm Asunto: capturar la pantalla (Impr Pant) |
|
|
Hola a todos los programadores builderos, tengo una pregunta como puedo capturar la imagen de esta en mi Pc, es decir quiero programar un timer que copie las acciones que este realizando el usuario.
Es decir un programa que haga la funcion de la tecla IMP PANT del teclado, y lo almacene en un TImage???
Agradeceria mucho sus respuestas Bye. |
|
| Volver arriba |
|
 |
el diego Master


Registrado: 23 Ago 2002Mensajes: 232Ubicación: Paris
|
Publicado: Sab 28 Feb, 2004 4:03 am Asunto: |
|
|
Hola Gustavo,
proba con el siguiente codigo. Ponelo dentro del evento de tu timer.
| Código: | void __fastcall TForm1::Button1Click(TObject *Sender)
{
Image1->Picture->Bitmap->Height = Screen->Height;
Image1->Picture->Bitmap->Width = Screen->Width;
Image1->Height = Screen->Height;
Image1->Width = Screen->Width;
HDC ScreenSrc = GetWindowDC(0);
BitBlt(Image1->Picture->Bitmap->Canvas->Handle, 0, 0, Screen->Width,
Screen->Height, ScreenSrc, 0, 0, SRCCOPY);
ReleaseDC(GetDesktopWindow(), ScreenSrc);
} |
Este codigo te captura la pantalla completa en un TImage (Image1).
suerte
diego |
|
| Volver arriba |
|
 |
likibuay Master


Registrado: 24 Abr 2006Mensajes: 190Ubicación: COLOMBIA
|
Publicado: Lun 30 Oct, 2006 9:32 am Asunto: |
|
|
//#include <jpeg.hpp> <--- declarar libreria
//capturo print screen
Image1->Picture->Bitmap->Height = Screen->Height;
Image1->Picture->Bitmap->Width = Screen->Width;
Image1->Height = Screen->Height;
Image1->Width = Screen->Width;
HDC ScreenSrc = GetWindowDC(0);
BitBlt(Image1->Picture->Bitmap->Canvas->Handle, 0, 0, Screen->Width,Screen->Height, ScreenSrc, 0, 0, SRCCOPY);
ReleaseDC(GetDesktopWindow(), ScreenSrc);
| Cita: |
//Cambiar de Imagen BMP a JPG
I++; //<- hay qu declararla
TJPEGImage *EnJPG = new TJPEGImage;
EnJPG->Assign(Image1->Picture->Bitmap);
EnJPG->SaveToFile(Image1->Name+IntToStr(I)+".jpg");
delete EnJPG; |
Agregando esto para q se guarde en jpg _________________ ><(((((º> From °l||l° §ÂN ÅNЮ€$ i§Lã$ °l||l°
_____________________ |
|
| Volver arriba |
|
 |
|
|
No puedes publicar temas nuevos en este foro No puedes responder a temas en este foro No puedes editar tus mensajes en este foro No puedes borrar tus mensajes en este foro No puedes votar en las encuestas de este foro
|
© 2002–2026 Club Builder · Funciona con phpBB.
|