visualizar imágenes de campo Memo (Binario)

[diter flautero]

Buenas tardes a todos

En este momento tengo un inconveniente para poder visualizar imágenes que previamente he guardado en un campo tipo Memo Binario.

Al intentar visualizar la imagen se intenta mostrar (muestra que lo intenta visualizar con Nero pero no lo tengo instalado ni licenciado) por lo tanto posteriormente me dice que no pudo habrir el archivo..

** Procedimiento utilizado para guardar el archivo

                ** Obtiene el nombre solo del archivo con extencion sin el path

cArchivo1 = ALLTRIM(cArchivo)

cArchivo = SUBSTR(cArchivo ,RAT("\",cArchivo )+1)

** Adjunto un nuevo documento enviado como parametro

cContenido = STRCONV(FILETOSTR(ALLTRIM(cRutaArchivo) + ALLTRIM(cArchivo1)),13)

insert into DOCUMENTOS(nom_arch, rut_arch, con_arch, num_docu, nom_prog, num_item) ;

values (cArchivo, cRutaArchivo, cContenido, nSolicitud, cModulo, nItem)

** Procedimiento que utilizo para tener acceso al archivo nuevamente

cArchivo = ALLTRIM(SUBSTR(cArchivo ,RAT("\",cArchivo )+1))

SELECT RECNO() as reg FROM DOCUMENTOS ;

WHERE ALLTRIM(num_docu) = ALLTRIM(nSolicitud)  ;

                AND ALLTRIM(nom_arch) = cArchivo;

AND UPPER(ALLTRIM(nom_prog)) = UPPER(ALLTRIM(cModulo)) ;

AND num_item = nItem INTO CURSOR tmp_documentos

SELECT tmp_documentos

nReg = reg

nR = RECCOUNT()

IF nR = 0

MESSAGEBOX("No hay Documentos relacionados con esta solictud.",16,"Leer Documentos Adjuntos")

RETURN .f. 

ENDIF 

SELECT documentos

GO nReg

**vuelca el contenido del campo en un archivo, osea lo convierte nuevemente en el archivo originalmente enviado

STRTOFILE(STRCONV(DOCUMENTOS.con_arch,14),ALLTRIM(DOCUMENTOS.nom_arch)) 

**luego para ejecutar la aplicacion relacionada con la extencion del archivo

APLIC=CREATEOBJECT("WSCript.Shell")

APLIC.RUN('"'+ALLTRIM(DOCUMENTOS.nom_arch)+'"')

*******

Les agradezco si me pueden decir como visualizar las imagenes (jpg, bmp,..) con un API que todos tengan por default en windows.

De antemano muchas gracias....