Imágenes JPG, GIF, PNG y otros en dBFast

En el artículo anterior quedó claro que una de las grandes limitaciones de dBFast radica en la escasa posibilidad de manipular imágenes y que solo reconoce archivos en formato BMP.  También quedó claro que dBFast solo dispone de un set de instrucciones muy básicas para el manejo de imágenes, lo cual es una limitante a la hora de desarrollar aplicaciones que requieren un manejo gráfico más sofisticado.

Entonces las dos preguntas más recurrentes que nos hemos hecho todos en algún momento con respecto al tratamiento de imágenes son las siguientes:

1. ¿Será posible alguna vez manipular imágenes JPG, GIF, PNG u otros formatos desde dBFast?
2. ¿Podremos algún día manipular el tamaño de una imagen para adaptarla a una ventana?.

Hasta ahora la respuesta a estas dos preguntas ha sido un rotundo ¡NO!.  Es un hecho que dBFast no puede ni podrá manipular otro formato gráfico que no sea el tradicional BMP y esa es la triste y cruda realidad.

Sin embargo, en mis años de programador he aprendido que lo que no se puede hacer, se puede emular, y si el lenguaje de programación que utilizamos no posee la herramienta adecuada para realizar un determinado trabajo, debemos buscar una herramienta externa que nos permita hacerlo sin que el usuario lo note.  No por nada el lema de este Blog dice que "la mejor herramienta de programación es el ingenio del programador", y el segundo lema sería "no importa como se haga la implementación de una aplicación, siempre y cuando su funcionamiento sea transparente para el usuario", Y cuando no tenemos alternativas podemos utilizar este otro: "si no podemos alcanzar la eficiencia, debemos apostar por la eficacia".

Bajo estas premisas, me veo en la obligación de decirles que SI es posible manipular imágenes JPG, GIF, PNG, PCX, TIFF y muchos otros formatos desde dBFast.  No, no estoy borracho ni drogado, para ser más exacto debería decir que podemos "hacer como que" dBfast puede trabajar con otros formatos gráficos, o como mencionaba más arriba, podemos "emular" el tratamiento de otros formatos gráficos desde dBFast.

¿Y cómo hacemos semejante acto de magia?
Tal como explicaba antes, buscando una aplicación externa que haga el trabajo por dBFast sin que el usuario lo note.


¿Y cual es entonces el ingrediente mágico?
El ingrediente mágico es el programa IRFANVIEW.

IRFANVIEW es un potente, rápido, pequeño e innovador programa de edición gráfica que lleva ya varios años en el mercado, y que tiene tres grandes atributos para los programadores que trabajan en dBFast.

1. Primero que todo, al igual que dBFast, IrfanView funciona con Windows 9x, ME, 2000, 2003, 2008, Vista y Windows 7.
2. En segundo lugar y no menos importante para nosotros, es gratuito, aunque creo que el creador se merece con creces nuestro aporte.
3. En tercer lugar, y lo más importante para el tema que nos interesa, es que lo podemos utilizar en modalidad de línea de comandos.

Como ven, estas tres características convierten a IRFANVIEW en el complemento ideal para delegarle el trabajo que dBFast no puede hacer.

Utilizando IRFANVIEW en modo de línea de comandos, podemos redimensionar una imagen, cambiar su formato, imprimirla, mostrar una presentación de fotografías, obtener imágenes desde un scanner y muchas cosas más que pueden ver en  la excelente página argentina dedicada a IRFANVIEW: http://iv.atspace.org/pages/hlp_command_line.html

El truco entonces resulta bastante sencillo.  Al igual que en el ejemplo del artículo anterior, podemos explorar las imágenes de una carpeta usando un arreglo y la función ADIR(), luego utilizamos IRFANVIEW para convertir la imagen seleccionada desde su formato original (JPG, GIF, PNG, etc.) en un archivo BMP temporal, y lo redimensionamos para que se ajuste al tamaño de la ventana de previsualización.  Para finalizar cargamos el BMP temporal en una variable, lo desplegamos, y ya tenemos una vista previa de un archivo que no es BMP.

Acá les dejo algunas capturas de la implementación:

A pesar de que creo que varios de ustedes ya deben conocer las bondades de IRFANVIEW, les dejo un ejemplo de su uso con dBFast.  También añado un par de opciones que permiten apreciar parte de lo que IRFANVIEW puede hacer por nosotros, y les aseguro que es difícil darse cuenta de que se está utilizando una aplicación externa para manipular las imágenes.


OBS:

El ejemplo contiene la última versión de IRFANVIEW en español más un PDF con todas las opciones y ejemplos para su uso mediante línea de comandos,  IRFANVIEW es portable por naturaleza. 

Las carpetas: BMP, GIF, JPG y PNG contienen las imágenes usadas en el ejemplo, la carpeta TMP contiene el archivo temporal que se genera para la vista previa.  Todas las demás carpetas pertenecen a IRFANVIEW.

Los Archivos PREIVIEW.PRG, PREIVIEW.OVR, SCRLIB.PRG y DESCRIP.TXT pertenecen al ejemplo, los archivos restantes pertenecen a IRFANVIEW.

Pueden descargar el ejemplo directamente desde MEGAUPLOAD

MEDIAFIRE

http://www.mediafire.com/?026lfx8dru54n4z

FILESERVE

http://www.fileserve.com/file/6xfVnaJ/Preview2.rar

Revísenlo y comenten.

PD:

Se ha corregido un error en la función IMGEXPLORE() detectado en el ejemplo del artículo anterior.  En dicho ejemplo, al utilizar la función IMGEXPLORE() no se mostraba la primera imagen por un error en la definición del arreglo:

Código del ejemplo anterior:




***************************************************************************************
FUNCTION IMGEXPLORE()
PARAMETERS pPath


pPath = UPPER(ALLTRIM(pPath))

**********************************************

* Traspaso de nombres de archivo a un arreglo

*
DECLARE aImages[ADIR(pPath)+1]
ADIR(pPath,@aImages)
aImages[1] = ""  // Esta instrucción reemplaza el primer elemento del arreglo que contiene el nombre de la primera imagen por una cadena vacía  ///
...




Código corregido:

***************************************************************************************

FUNCTION IMGEXPLORE()

PARAMETERS pPath


pPath = UPPER(ALLTRIM(pPath))
nPath = ADIR(pPath)


**********************************************
* Traspaso de nombres de archivo a un arreglo
*
DECLARE aRecoverFiles[ADIR(pPath)]
ADIR(pPath,@aRecoverFiles)


**********************************************
* Traspaso de Nombres de archivo al arreglo
* que se usará para la visualización de
* longitud nElementos + 1 
*
DECLARE aImages[ADIR(pPath)+1]
aImages[1] = ""
ACOPY(@aRecoverFiles,@aImages,1,nPath,2)

...