Como guardar una ventana de fox el contenido del mapa de google maps, como archivo de imagen?

68 views
Skip to first unread message

acmc

unread,
Jan 11, 2017, 4:37:07 PM1/11/17
to Comunidad de Visual Foxpro en Español
Hola foxeros,

En un sistema utilizo un programa que posteo VFPSTEAM ( Luis H. Rea ) para el calculo de distancia entre 2 puntos con google maps, el cual se muestra dentro de una ventana de fox, ahora bien, necesito que la imagen que muestra dentro de dicha ventana se pueda guardar como imagen, no se si esto sea posible?, en caso de que si, que necesito hacer?

Salu2!!


Nilton Cesar Puglia Menaré

unread,
Jan 12, 2017, 8:19:49 AM1/12/17
to publice...@googlegroups.com
ArqPng    = Sys(5) + Sys(2003) + "\Erros\" + Transform(Day(Date()), "@L 99") + "_" + ;
transform(Month(Date()), "@L 99") + "_" + ;
transform(Year(Date()), "@L 9999") + "__" + ;
substr(Time(), 1, 2) + "_" + ;
substr(Time(), 4, 2) + ".png"

DO LOCFILE("System.App")

LOCAL loCaptureBmp AS xfcBitmap
WITH _Screen.System.Drawing
   loCaptureBmp = .Bitmap.FromScreen(_screen.HWnd)
   loCaptureBmp.Save(ArqPng, .Imaging.ImageFormat.Png)
ENDWITH
RELEASE loCaptureBmp

Do While !File(ArqPng) And Lastkey() <> 27
Enddo

Local loForm As Form
Local vAF_Return
vAF_Return = .F.
If _Screen.FormCount > 0
For Each loForm In _Screen.Forms
If loForm.Name <> 'TelaErro'
loForm.Release()
Endif
Endfor
Endif
Reply all
Reply to author
Forward
0 new messages