Aug 22
Otra implementación de la clase GDI que viene con VFP 9 para el manejo de imágenes; en este caso rotaremos la imagen en diversos ángulos.
#Define
RotateNoneFlipNone 0
#Define
Rotate90FlipNone 1
#Define
Rotate180FlipNone 2
#Define
Rotate270FlipNone 3
#Define
RotateNoneFlipX 4
#Define
Rotate90FlipX 5
#Define
Rotate180FlipX 6
#Define
Rotate270FlipX 7
Local cOrigen, cDestino
cOrigen = Getpict("jpg;gif;bmp")
cDestino = JustPath(cOrigen)+"\Rotada_"+JustFname(cOrigen)
oImg = Newobject("GpImage", HOME()+"ffc\_gdiplus.vcx")
With oImg
.CreateFromFile(cOrigen)
.RotateFlip(Rotate180FlipNone)
.SaveToFile(cDestino,"image/jpeg")
EndWith
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
