Usando los ActiveX de Wang para visualizar JPEG y GIF desde VFOX

Por Nicolas Candela
© Copyrights 1997 by FoxPress, All rights reserved
FoxPress, Mayo 1997

Una de las deficiencias que tiene VFP 5.0 es que al igual que sus antecesores no está bien dotado a la hora de mostrar gráficos JPEG,GIFF, etc... Esto parece que se resolverá en la futura versión VFP 6.0 pero mientras nos llega esa versión tenemos varias alternativas a la hora de tratar gráficos.

Una alternativa es comprarnos una librería que nos permita visualizar esos gráficos como por ejemplo la de ESPIA http://www.espia.com) muy bien considerada dentro del mundo Fox.

Otra alternativa es crearnos nuestro propio lector de gráficos mediante el CCE que viene con VB 5.0 tal y como se mostró en esta revista hace un par de números. No obstante ese sistema tiene la 'pequeña' limitación de que al cliente hay que llevarle una librería de Visual Basic para que funcione correctamente.

La alternativa que yo propongo es usar los controles .OCX de Wang que vienen gratis en Windows NT 4.0 y en Windows95 (versión nueva), con lo que no tenemos que gastarnos un duro y no hay que preocuparse de más problemas.

Los .OCX de Wang han sido creados por Wang Ltd. una empresa radicada en Massachussetts (http://www.wang.com) y con el ánimo de crear un estándar se han distribuido en los NT y en Windows95. Si por la razón que sea no lo tienes en tu sistema operativo —cosa que puede suceder en la version original de Windows95— siempre te los puedes bajar de: http://www.microsoft.com/ windows/software/img_us.htm

Con los ActiveX de Wang podemos:

• Crear, ver y usar documentos en formato de imagen. Los documentos se pueden crear desde scanner o desde fax. Si recibes un E-mail con una imagen pegada, Windows automáticamente lanzará Imaging for Windows para poder verlo. Las imágenes se pueden ver y usar en blanco y negro, escala de grises, color, etc...
• Cambiar Documentos. Imaging for Windows te permite mover las imágenes, rotarlas, hacer zoom, etc, añadir notas, comentarios, sombras, etc...
• Distribuir Documentos con formato de Imagen. Imaging for Windows invoca el MAPI, de forma que puedes con facilidad enviar imágenes a tus colegas a través de una amplia variedad de medios como Microsoft Mail y Microsoft Exchange. También se pueden enviar documentos con formato de imagen a través de fax.

Funcionalidad Imaging OCXs

Arquitectura 32-bit (Windows 95 y NT)

Imagen soportada Blanco y Negro
Escala de Grises

Gray4
Gray8
Color
Palettized4
Palettized8
RGB24
BGR24

Lectura de Archivos BMP

DCX
JPG
PCX
TIF
XIF

Escritura en formato BMP
AWD
TIF

Tipos de compresión Group 3 (1D)
Group 3 (2D)
Group 3 (Modified

Por tanto, se pueden crear documentos gráficos en una variedad de formatos y se pueden usar scanners para crear imágenes directamente desde el original. El software soporta el interfaz TWAIN, el más popular interfaz de scanners del mercado.

El fax es otra forma de crear documentos gráficos. Una máquina de fax es de alguna manera un scanner que toma un documento y lo convierte en una imagen electrónica. Este software es la forma que usa Microsoft Exchange Inbox para ver los fax que le llegan

PROCEDURE Init
	public gzoom
	gzoom = 100
	_vfp.Autoyield = .T.
	SYS(2333,0)
ENDPROC
PROCEDURE cbboton6.Click
	ThisForm.Olecontrol1.Flip
ENDPROC
PROCEDURE cbboton6.Click
	ThisForm.Olecontrol1.Flip
ENDPROC
PROCEDURE cbboton2.Click
	ThisForm.Olecontrol1.Object.RotateLeft
ENDPROC
PROCEDURE cbboton7.Click
	ThisForm.Olecontrol1.ZoomToSelection
ENDPROC
PROCEDURE cbboton5.Click
	ThisForm.Olecontrol1.Object.RotateRight
ENDPROC
PROCEDURE cbcombobox1.Init
	This.DisplayValue = "100 %"
ENDPROC
PROCEDURE cbcombobox1.InteractiveChange
	DO CASE
		CASE This.ListIndex = 1
			ThisForm.Olecontrol1.Object.Zoom = 25
		CASE This.ListIndex = 2

			ThisForm.Olecontrol1.Object.Zoom = 50
		CASE This.ListIndex = 3
			ThisForm.Olecontrol1.Object.Zoom = 75
		CASE This.ListIndex = 4
			ThisForm.Olecontrol1.Object.Zoom=100
		CASE This.ListIndex = 5
			ThisForm.Olecontrol1.Object.Zoom=125
		CASE This.ListIndex = 6
			ThisForm.Olecontrol1.Object.Zoom=150
		CASE This.ListIndex = 7
			ThisForm.Olecontrol1.Object.Zoom=175
		CASE This.ListIndex = 8
			ThisForm.Olecontrol1.Object.Zoom=200
	ENDCASE
ENDPROC
PROCEDURE cbboton3.Click
	ThisForm.Olecontrol1.Object.FitTo(0,.T.)
	This.Parent.Cbcombobox1.DisplayValue = ;
		ThisForm.Olecontrol1.Zoom

ENDPROC


PROCEDURE cbboton4.Click
	ThisForm.Olecontrol1.Object.;
ShowAnnotationToolPalette
ENDPROC

PROCEDURE cbcombobox2.InteractiveChange
DO CASE
	CASE This.ListIndex = 1
		ThisForm.Olecontrol1.ImagePalette = 0

	CASE This.ListIndex = 2
		ThisForm.Olecontrol1.ImagePalette = 1

	CASE This.ListIndex = 3
		ThisForm.Olecontrol1.ImagePalette = 2

	CASE This.ListIndex = 4
		ThisForm.Olecontrol1.ImagePalette = 3

	CASE This.ListIndex = 5
		ThisForm.Olecontrol1.ImagePalette = 4

ENDCASE
ENDPROC

PROCEDURE cbcombobox2.Init
	This.DisplayValue = "Custom"
ENDPROC

PROCEDURE cbboton1.Click
	ThisForm.Olecontrol2.Object.InitDir = ;
		"C:\psp\"  	&& Directorio donde estén
				&& las imágenes
	ThisForm.Olecontrol2.Object.DialogTitle;
		= "Abrir una Imagen"
	ThisForm.Olecontrol2.Object.Filter = ;
		"Todas las imagenes|*.jpg;*.bmp;;
	*.pcx|JPEG|*.jpg|BMP|*.bmp|PCX|
	* .pcx|"
	ThisForm.Olecontrol2.Object.FilterIndex;
		= 1
	ThisForm.Olecontrol2.Object.DefaultExt ;
		= "*.JPG"
	* Utilizar con WIN 95
	* ThisForm.Olecontrol2.Object.;
	* ShowFileDialog(0,MainHwnd())
	* Utilizar con Windows NT 4.0
	ThisForm.Olecontrol2.Object.;
		ShowFileDialog(0) 
	ThisForm.Olecontrol1.Object.Image = ;
		ThisForm.Olecontrol2.Object.Image
	ThisForm.Olecontrol1.Object.Zoom=100
	ThisForm.Olecontrol1.Object.Display
	ThisForm.MousePointer = 0
	ThisForm.Cbcontainer1.Enabled = .T.
	ThisForm.Cbcontainer1.SetFocus
	ThisForm.Refresh
ENDPROC