FoxPro/Visual FoxPro - Tamaño deimagenes con visual foxpro

   
Vista:

Tamaño deimagenes con visual foxpro

Publicado por Marcela (12 intervenciones) el 22/07/2014 01:33:49
Tengo fotos de alta resolucion en una carpeta, necesito ulgun proyecto para copiarlas en otra carpeta con una resolucion menor.
Muchas Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Tamaño deimagenes con visual foxpro

Publicado por Ernesto Hernandez (4632 intervenciones) el 22/07/2014 19:57:53
como necesitas bajarle la resolucion ?

o necesitas un proyecto para ese proposito
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Tamaño deimagenes con visual foxpro

Publicado por Marcela bodratti@yahoo.com.ar (12 intervenciones) el 23/07/2014 00:17:04
Tengo imagenes de 3000 kb en un directorio y necesito imagenes de 1000 o menos kb para guardarlas en otro directorio pero eso tendria qe poder hacerlo desde visual foxpro.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Tamaño deimagenes con visual foxpro

Publicado por Ernesto Hernandez (4632 intervenciones) el 23/07/2014 01:09:49
Como poder redimensionar una imagen con GDI+en VFP.

Se creara una función llamadae Redimensionar(),
copiar el código como parámetros se pasaran la ruta del archivo y el tamaño al cual se redimensionara

PARAMETERS m.cArchivoRedimensionar , m.nTamano
LOCAL m.cNombreTemporal

DO (LOCFILE(“system.app”))
WITH _SCREEN.System.Drawing

* Variables para almacenar el nuevo tamaño de la imagen
LOCAL lnWidth, lnHeight
STORE m.nTamano TO lnWidth, lnHeight

* Cargar la imagen original
LOCAL loSrcImage as xfcBitmap
loSrcImage = .Bitmap.New(m.cArchivoRedimensionar)
m.cNombreTemporal = m.cRutaTemporal + JUSTSTEM(m.cArchivoRedimensionar) + ‘.bmp’

* Crea una nueva imagen con el tamaño deseado
LOCAL loResized as xfcBitmap
loResized = .Bitmap.New(lnWidth, lnHeight,.Imaging.PixelFormat.Format32bppARGB)

* Fija la resolución de la imagen para que sea la misma que la original
loResized.SetResolution(loSrcImage.HorizontalResolution, loSrcImage.VerticalResolution)

* Crea un objeto Graphics para poder obtener los derechos de dibujar sobre el
LOCAL loGfx as xfcGraphics
loGfx = .Graphics.FromImage(loResized)

* Establece algunas propiedades para asegurarse de tener la mejor calidad de la imagen
loGfx.SmoothingMode = .Drawing2D.SmoothingMode.HighQuality
loGfx.InterpolationMode = .Drawing2D.InterpolationMode.HighQualityBicubic

* Dibuja la imagen original en la nueva imagen con las dimensiones deseadas
loGfx.DrawImage(loSrcImage, 0, 0, lnWIdth, lnHeight)

* Guarda la imagen redimensionada como Png
loResized.Save(m.cNombreTemporal, .Imaging.ImageFormat.bmp)

Return m.cNombreTemporal

ENDWITH
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Tamaño deimagenes con visual foxpro

Publicado por Marcela (12 intervenciones) el 24/07/2014 00:32:53
Gracias, lo pruebo y te comento.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Tamaño deimagenes con visual foxpro

Publicado por Marcela (12 intervenciones) el 24/07/2014 01:05:23
Disculpame, trate de probarlo pero

DO (LOCFILE(“system.app”)) me tira error

el archivo system.app no existe???

Millon de gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Tamaño deimagenes con visual foxpro

Publicado por Marcela (12 intervenciones) el 13/08/2014 01:28:56
Hola yo de nuevo, lo probe en visual foxpro 9.0 y sigue sin encontrar el system.app., si me podes ayudar un millon de gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Tamaño deimagenes con visual foxpro

Publicado por Ernesto Hernandez (4632 intervenciones) el 24/07/2014 15:55:51
checa la nota nueva que creaste
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar