| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
seth
Cmdr
Registrado: 16 Nov 2003Mensajes: 129
|
 Publicado: Lun 01 Dic, 2003 8:20 pm Asunto: Ayuda Captura de imagen del monitor |
 |
|
Hola soy yo de nuevo....
Quien me puede ayudar acapturar la imagen del monitor pero no unsando la tecla de ImprPant lo quiero hacer usando talvez un boton o algo asi y colocarla en TImage no se si en este componente se pueda |
|
| Volver arriba |
|
 |
_Viktor
Master
Registrado: 20 Jul 2003Mensajes: 463Ubicación: Santiago, Los Angeles - Chile
|
| Publicado: Lun 01 Dic, 2003 9:59 pm Asunto: |
|
|
Hola, esto te servira exactamente para lo que buscas hacer.
| Código: | HDC dc = GetDC(0);
Graphics::TCanvas *ScreenCanvas = new Graphics::TCanvas;
ScreenCanvas->Handle = dc;
Image1->Picture->Bitmap->Width = Screen->Width;
Image1->Picture->Bitmap->Height= Screen->Height;
TRect rect = Rect(0,0,Screen->Width, Screen->Height);
Image1->Picture->Bitmap->Canvas->CopyRect(rect, ScreenCanvas, rect);
delete ScreenCanvas;
ReleaseDC(NULL,dc); |
Necesitas un TImage, un TButton y nada mas.
Saludos y espero te sirva.
_________________
"Ser inteligente no es ser mas, solo equivocarse menos y no usar Visual Basic"
Atte.
Victor Yañez
Apoyen el Proyecto OpenSource del Club Builder. Ya tenemos componentes Listos!!! |
|
| Volver arriba |
|
|
seth
Cmdr
Registrado: 16 Nov 2003Mensajes: 129
|
| Publicado: Lun 01 Dic, 2003 10:35 pm Asunto: Hola _Victor |
|
|
Como lo dijiste el precisamente lo que busco pero quiero saber que peudo hacer para dimencionar el tamaño de la imagen osea....
si el tamaño del TImage no ocupa toda la pamtalla como podria hacer para que me saliera aun la imagen completa en el cuadro
Saludos Seth |
|
| Volver arriba |
|
|
_Viktor
Master
Registrado: 20 Jul 2003Mensajes: 463Ubicación: Santiago, Los Angeles - Chile
|
| Publicado: Mar 02 Dic, 2003 5:26 am Asunto: |
|
|
Haber si lo que quieres es ver redimensionada la imagen para que se vea en el tamaño que tenga el TImage algo asi :
Al codigo anterios solo le agregas una linea, es decir darle la propiedad Stretch = true del Image, tambien lo podrias hacer en diseño:
| Código: | HDC dc = GetDC(0);
Image1->Stretch = true;
Graphics::TCanvas *ScreenCanvas = new Graphics::TCanvas;
ScreenCanvas->Handle = dc;
Image1->Stretch = true;// <<<< ESTA
Image1->Picture->Bitmap->Width = Screen->Width;
Image1->Picture->Bitmap->Height= Screen->Height;
TRect rect = Rect(0,0,Screen->Width, Screen->Height);
Image1->Picture->Bitmap->Canvas->CopyRect(rect, ScreenCanvas, rect);
delete ScreenCanvas;
ReleaseDC(NULL,dc); |
Espero te sirva.
Saludos!!!
(Disculpen si a alguien le molesta el fondo  trate de taparlo lo mas que pude )
_________________
"Ser inteligente no es ser mas, solo equivocarse menos y no usar Visual Basic"
Atte.
Victor Yañez
Apoyen el Proyecto OpenSource del Club Builder. Ya tenemos componentes Listos!!! |
|
| Volver arriba |
|
|
seth
Cmdr
Registrado: 16 Nov 2003Mensajes: 129
|
| Publicado: Mie 03 Dic, 2003 5:33 pm Asunto: Gracias |
|
|
Hola victor gracias era justamente lo que buscaba...
esa liena me hacia falta..
Saludos...
Seth |
|
| Volver arriba |
|
|
seth
Cmdr
Registrado: 16 Nov 2003Mensajes: 129
|
| Publicado: Sab 06 Dic, 2003 9:06 pm Asunto: Manejo de THandleStream |
|
|
Hola victor sabes como usar el THandleStream...
lo que quiero hacer es pasar una imagen de la pantalla por Socket y creo que me sirme THandleStream,,, o si tenes algun ejemplo me ayudarias... yo paso archivos de cualquier tipo con el ejemplo de stream que hay en builder lo modifique y me sirva para pasar cualquier tipo de archivo (la unica odjecion son los archivos *.exe no funciona dice imposible abrir pero... se me ocurrio comprirlos antes de pasarlos lo voy probar a ver que tal...
si me ayudas con el paso de la imagen de la pantalla por la red..
saludos
seth |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
