AMIGOS
EN XBROWSE PARA MOSTRAR IMAGENES SE PONE EN UN ARREGLO TODO LOS BITMAPS

oCol:AddBmpFile("bitmap\"+alltrim(cMcrut[j])+".bmp")


Y LUEGO CON UNA CONDICION SE PINTA DEVOLVIENDO EL REGISTRO LA UBICACION DEL
ARREGLO
PARA JALAR LA IMAGEN

oBrow:aCols[xx]:bBmpData := &("{ || "+cMcrut+" }")

PERO COMO SE PUEDE MOSTRAR FOTOS DE UNA LISTA DE ALUMNOS GRABADAS EN UNA BASE DE
MYSQL

PREGUNTAS
XBROWSE PUEDE MOSTRAR JPG

YO TENGO UNA FUNCION QUE ME LEE LA IMAGEN DE LA BD LA DESENCRPTA CON
FMimeDec(cTemp,cTemp2)
Y CREA UN JPG

BUENO SUPONGO QUE TENDRIA QUE PRIMERO BAJAR TODAS LAS IMAGENES A UNA CARPETA
Y LUEGO MOSTRARLAS CON XBROWSE

HAY UNA FORMA DE HACERLO DIRECTO DE LA BD

GRACIAS POR LA AYUDA



Func vzAbrirTImagen(campo) //Para abrir una imagen GRABADA en la BD
local cMemo:='',cTemp:='',cTemp2:=""
SysRefresh()
CursorWait()
cMemo := vz(campo) //::oRsImagenes:Fields("imagen"):Value
if !empty(cMemo)
cTemp = 'temp\temp002.tmp'
MEMOWRIT(cTemp,cMemo)
if file(cTemp)
cTemp2 = 'temp\temp003.JPG'
FMimeDec(cTemp,cTemp2) //Esta es la funcion que nos permite leer la imagen
en la base de datos
if !file(cTemp2)
//MsgAlert("No ha sido posible leer la imagen de la base de datos" )
endif
else
// MsgInfo("No existe la imagen del documento")
endif
else
//MsgInfo("No es posible abrir la imagen del Documento" )
EndIf
SysRefresh()
CursorArrow()
Return( cTemp2 )