Capturar un Region de la Pantalla como JPG

[Jean Pierre Adonis De La Cruz Garcia]

Me gustaria saber si alguien me puede apoyar, deseo hacer un proceso para capturar una region de la pantalla y guardarla como JPG 

Espero que alguien pueda ayudarme, gracias desde ya.

[Analyzer]

Dense una vuelta por el blog de VFP que sustituyó a la anterior página de portalfox:

http://comunidadvfp.blogspot.com/search/?q=capturar+pantalla

Saludos!

El 30 de diciembre de 2014, 10:32, Jean Pierre Adonis De La Cruz Garcia <elconsultor...@gmail.com> escribió:

Me gustaria saber si alguien me puede apoyar, deseo hacer un proceso para capturar una region de la pantalla y guardarla como JPG 

Espero que alguien pueda ayudarme, gracias desde ya.

--
_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

[Daniel Sánchez]

Quieres hacer con el mismo vfpp o con cualquier programa de terceros????

Si es con un programa externo puedes usar en W7 la aplicación recortes que esta en accesorios.

Ahora si es con VFP puedes capturar formularios o pantalla completa con el siguiente código capturo un formulario y lo grabo en un archivo jpg, para eso oFormActual es un objeto form pasado como parámetro al procedimiento

function capturaform

parameters oFormActual as object

if vartype(_screen.system)="U"

  _SCREEN.ADDPROPERTY("System", NEWOBJECT("xfcSystem"))

endif 

mysystem=_screen.system

If  .Not. Isnull(mySystem)

Local LOCAPTUREBMP As XFCBITMAP, CNAMEBMP As Character, LOTHUMBNAIL As XFCIMAGE, NALTOIMAGEN As Integer, NANCHOIMAGEN As Integer

CNAMEBMP = Sys(2023)+"\"+Sys(3)+".jpg"

LOCAPTUREBMP = mySystem.DRAWING.Bitmap.FROMSCREEN(OFORMACTUAL.HWnd)

NALTOIMAGEN = Int(LOCAPTUREBMP.Height*0.75 )  &&esta parte es para reducir el tamaño de alto

NANCHOIMAGEN = Int(LOCAPTUREBMP.Width*0.75 )  &&igual esta es para reducir el tamaño de ancho

LOTHUMBNAIL = LOCAPTUREBMP.GETTHUMBNAILIMAGE(NANCHOIMAGEN, NALTOIMAGEN)  &&obviar tambien si no se cambia tamaño

LOTHUMBNAIL.Save(CNAMEBMP, mySystem.DRAWING.IMAGING.IMAGEFORMAT.JPEG)

Endif

El 30 de diciembre de 2014, 11:32, Jean Pierre Adonis De La Cruz Garcia <elconsultor...@gmail.com> escribió:

Me gustaria saber si alguien me puede apoyar, deseo hacer un proceso para capturar una region de la pantalla y guardarla como JPG 

Espero que alguien pueda ayudarme, gracias desde ya.

--

_______________________________________________________________
Has recibido este mensaje porque estás suscrito al Grupo "Mundo Visual
FoxPro" de Grupos de Google.
 
Para anular la suscripción a este grupo, envía un mensaje a:
mundovisualfox...@googlegroups.com
---
Has recibido este mensaje porque estás suscrito al grupo "Mundo Visual FoxPro" de Grupos de Google.
Para anular la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a mundovisualfox...@googlegroups.com.
Para acceder a más opciones, visita https://groups.google.com/d/optout.

--

Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú

P  Sugerimos no imprimir este e-mail a menos que sea absolutamente necesario. Protejamos el medio ambiente.

[Jean Pierre Adonis De La Cruz Garcia]

gracias por responder amigos, este codigo de aqui ya lo habia probado, pero me envia buclees de imagens y no se aprecia lo que se desea capturar.

Es cai algo asi que es lo que deseo, pero veo que tiene errores ese codigo

[Jean Pierre Adonis De La Cruz Garcia]

Daniel agradezco tu respuesta tambien, pero no deseo aplicaciones externas sino que sea del mismo foxpro.

y el codigo que envia, espara capturar un formulario o pantalla completa.

Lo que realmente deseo es capturar una parte de la pantalla, especificamente.

Justo me he topado con este codigo, y tengo que analizarlo un poco mas, ya que es casi lo que deseo.

http://www.news2news.com/vfp/?solution=9

La unica diferencia que v eo que es de pago, y no se si alguien tendra el codigo libre de esea libreria FLL

"ScreenCapture Library (FLL)"

[Fernando D. Bozzo]

Hola Jean:

En el directorio TESTS de FoxBin2Prg vas a encontrar una librería para capturas de pantalla Open Source que conseguí en su momento y que uso para varios tests unitarios, por lo que de paso los podés usar como ejemplos de uso.

Saludos y buen año!

[Daniel Sánchez]

Jean Pierre, se me ocurre que podrías usar el código que te envié usando un formulario con transparencia casi total, así el formulario te quedaría como un marco que te sirve para que lo coloques sobre el área que deseas capturar, luego con el uso de una tecla o combinación de teclas llamas el código que te envíe y capturaría la imagen que se visualiza dentro del formulario transparente, ahora no se si funcione capturando lo que esta en modo que se trasluce a través del formulario, ahora sería cuestión de que hagas unas pruebas no es muy difícil de implementar lo que te comento.

Saludos

[Daniel Sánchez]

Bueno la idea que te comente hace un momento sobre hacerlo con un form transparente no es posible, ya que lo único que graba de fondo es el marco del form junto con la barra de título, el fondo del form se graba como si no estuviera transparente.

Saludos