Inicio > Visual Fox Pro > Redimensionar una imagen con GDI+

Redimensionar una imagen con GDI+


En este ejemplo se mostrar 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

Categorías:Visual Fox Pro
  1. Aún no hay comentarios.
  1. No trackbacks yet.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: