Resolucion de una Imagen

[robertomart...@gmail.com]

Buenas tardes, necesito saber cual es la resolución en ppp de una imagen desde vfp, alguien conoce alguna librería  que me pueda dar esa información así como _gdiplus entrega las dimansiones.

De antemano muchas gracias.

Roberto

Coyhaique - Chile

[ZeRoberto]

Segun ChatGPT

https://chat.openai.com/share/b7bae001-144a-43ad-bdce-e55400b04204

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/58a083e3-6e43-4b55-9dbb-54d159062360n%40googlegroups.com.

[roberto martinez andrade]

Esa opción es siempre que se conozca el tamaño en pulgadas de la imagen.

Desde la aplicación, al seleccionar la imagen, rescato el alto y el ancho en pixeles, pero no se el tamaño de la imagen en cm ni en pulgadas salvo que la vea desde algún software de manejo de imágenes que me entrega esa info.

Lo que necesito es algo parecido a lo que utilizo para extraer la info de ancho y alto en pixeles.

FUNCTION IMAGEN_LEER_DIMENSIONES
LPARAMETERS tcNombreArchivoOrigen
LOCAL lcPictureFile,lnWidth, lnHeight
LOCAL loBitmap as GpBitmap
LOCAL lnWidth, lnHeight , respuesta
lcPictureFile = tcNombreArchivoOrigen
loBitmap = CreateObject("GpBitmap")
loBitmap.CreateFromFile(lcPictureFile)
lnWidth = loBitmap.ImageWidth
lnHeight = loBitmap.ImageHeight
loBitmap = NULL
ENDFUNC

Sl2s

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAMkTt8ps0FCabmr1PsmGhEwjhFcYEAmhXJ8CGq0ZdjXTkjDJ0A%40mail.gmail.com.

[Zarlu]

Buenas tardes Roberto!

De aquí de la comunidad...

https://groups.google.com/g/publicesvfoxpro/c/lBU3EcprSTw

Suerte

zarlu

Chetumal, Quintana Roo, México

[roberto martinez andrade]

La respuesta que da el chat es obvia y no me sirve.

Pero encontré la solución y las dejo por si a alguien le sirve.... tan simple como:

FUNCTION IMAGEN_LEER_RESOLUCION

LPARAMETERS tcNombreArchivoOrigen
LOCAL lcPictureFile,lnWidth, lnHeight
LOCAL loBitmap as GpBitmap

PUBLIC RsWidth, RsHeight 

lcPictureFile = tcNombreArchivoOrigen
loBitmap = CreateObject("GpBitmap")
loBitmap.CreateFromFile(lcPictureFile)

RsWidth = loBitmap.HorizontalResolution
RsHeight = loBitmap.VerticalResolution
loBitmap = NULL
ENDFUNC

Agradecidos a todos que me aportaron ideas.

Roberto

Coyhaique - Chile

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/c20edd20-7bb7-40f0-bce4-62e220b992a8n%40googlegroups.com.