Cargar imagenes desde base de datos

GreenlanternX · #1 (**permalink**) 23/05/2007, 09:12

el problema que tengo es k en una ventana de visual basic, solicito el numero identificador de una persona , y luego de unas validaciones devuelvo los datos de la persona y la foto, pero no logro cargar la foto intente asignando el valor del campo (tipo bytea) al picture sin resultados, tambien intente con loadpicture apuntando hacia un archivo php k independientemente puede cargar la foto solicitada, pero tampoco me funciono, alguien sabe como podria cargarla.
PD. si saben soluciones aplicables a otras BD posteenlas igual ya k se podrian usar de base para encontrar la solucion y a alguien mas le podrian servir

seba123neo · #2 (**permalink**) 23/05/2007, 10:11

fijate si te sirve esto:

http://www.recursosvisualbasic.com.a...-imagen-bd.htm

http://www.recursosvisualbasic.com.a...m-imagenes.htm

http://www.recursosvisualbasic.com.a...e-de-datos.htm

saludos.

GreenlanternX · #3 (**permalink**) 24/05/2007, 08:15

el segundo funciono grax por la ayuda

GreenlanternX · #4 (**permalink**) 24/05/2007, 08:25

el segundo funciono grax por la ayuda

GreenlanternX · #5 (**permalink**) 25/05/2007, 14:14

T_T tengo problemas , el segundo codigo estaba trabajando bien hasta k trate de cargar una imagen mas o menos grande (+ de 40 k) y el visual se cae alguien sabe alguna forma de reducir el tamaño de la imagen durante el select(para asi evitar k se caiga el programa)

Kruzado · #6 (**permalink**) 25/05/2007, 14:38

yo baje esto hace rato desde internet, no me acuerdo del enlace pero te dejo el codigo, no tengo problemas con el tamaño de las fotos

usuarios.Edit
GuardarBinary usuarios!firma, Picture1
usuarios.Update

y crea un modulo con el siguiente codigo

Option Explicit

Dim DataFile As Integer
Dim Chunk() As Byte
Const conChunkSize As Integer = 16384

Public Sub LeerBinary(campoBinary As Field, unPicture As PictureBox)
'Leer la imagen del campo de la base y asignarlo al Picture
Dim lngCompensación As Long
Dim lngTamañoTotal As Long

'Se usa un fichero temporal para guardar la imagen
DataFile = FreeFile
Open "pictemp" For Binary Access Write As DataFile

lngTamañoTotal = campoBinary.FieldSize
Do While lngCompensación < lngTamañoTotal
Chunk() = campoBinary.GetChunk(lngCompensación, conChunkSize)
Put DataFile, , Chunk()
lngCompensación = lngCompensación + conChunkSize
Loop

Close DataFile
'Ahora se carga esa imagen en el control
unPicture.Picture = LoadPicture("pictemp")

'Ya no necesitamos el fichero, así que borrarlo
On Local Error Resume Next
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
Err = 0
End Sub

Public Sub GuardarBinary(campoBinary As Field, unPicture As PictureBox)
'Guardar el contenido del Picture en el campo de la base
Dim i As Integer
Dim Fragment As Integer, Fl As Long, Chunks As Integer

'
'NOTA:
' El recordset debe estar preparado para Editar o Añadir
'

'Guardar el contenido del picture en un fichero temporal
SavePicture unPicture.Picture, "pictemp"

'Leer el fichero y guardarlo en el campo
DataFile = FreeFile
Open "pictemp" For Binary Access Read As DataFile
Fl = LOF(DataFile) ' Longitud de los datos en el archivo
If Fl = 0 Then Close DataFile: Exit Sub

Chunks = Fl \ conChunkSize
Fragment = Fl Mod conChunkSize
ReDim Chunk(Fragment)

Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
ReDim Chunk(conChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
campoBinary.AppendChunk Chunk()
Next i
Close DataFile

'Ya no necesitamos el fichero, así que borrarlo
On Local Error Resume Next
If Len(Dir$("pictemp")) Then
Kill "pictemp"
End If
Err = 0
End Sub

por ultimo el campo firma esta definido como objeto ole
facil y bonito

GreenlanternX · #7 (**permalink**) 28/05/2007, 08:45

trate de trabajarlo con mi bd y no funciono, lo mas probable s por k el campo foto lo tengo como byte y no olesegui probando con otros modulos k encontre por ahi y todos fallan donde mismo: crean un temporal corruptu, y luego el visual se cae al tratar de cargarlo como imagen

GeoAvila · #8 (**permalink**) 28/05/2007, 09:16

en las faq's hay un ejemplo.

nos vemos..

GreenlanternX · #9 (**permalink**) 28/05/2007, 11:50

no encontre el ejemplo del k hablas

DIDAKE · #10 (**permalink**) 29/05/2007, 20:03

Hola : Yo realizo esta acción almacenando imágenes en el directorio del disco y las referencias a sus nombres de archivos en campos de texto de la base de datos.
Lo pongo en este ejemplo :
text1 está asociado a la base de datos, donde se encuentra la ruta al archivo de imagen que será mostrado en picture 1
En el evento change de text1 :

Private Sub Text1_Change()
'text1 es quien lee de la base las imagenes
' y asocia esta imagen a picture 1
Picture1.Picture = LoadPicture(Text1)

Todo esto mediante el empleo de una caja de texto (luego la coloco como no visible )
De este modo no interesa que tamaño tiene la imagen , es mucho más rápido y menos complicado.
Suerte

GeoAvila · #11 (**permalink**) 31/05/2007, 17:39

aqui el link con ejemplo descargable

http://www.forosdelweb.com/showpost....6&postcount=95

nos vemos..

GreenlanternX · #12 (**permalink**) 28/06/2007, 15:56

a didake: la base de datos no guarda una ruta a la foto , sino la foto misma.
a geoavila: probe tu codigo (con las modificaciones correspondientes para k se conecte a mi db ) pero lo uniko k obtengo son los nombres de las personas y absolutamente ninguna foto, ademas de k el boton previo arroja un error.
PD. me demore en contestar por k estuve ocupado con otros proyectos
PD. despues de muchas batallas con el codigo, opte por subir al servidor un php k dibuja la foto, y reemplazar el campo imagen por un webbrowser, pero al llevarlo al equipo donde va a correr el programa hay ciertas imagenes con las k se cae el programa, la solucion k se me ocurre seria ordenarle al programa k inicie la descarga de este php (ya comprobe k al hacerlo descarga la imagen correspondiente) de forma automatica y luego cargue la imagen en un picture, pero no encuentro como hacer para k la descargue de forma automatica

GeoAvila · #13 (**permalink**) 02/07/2007, 10:54

Cita:

Iniciado por GreenlanternX

a didake: la base de datos no guarda una ruta a la foto , sino la foto misma.
a geoavila: probe tu codigo (con las modificaciones correspondientes para k se conecte a mi db ) pero lo uniko k obtengo son los nombres de las personas y absolutamente ninguna foto, ademas de k el boton previo arroja un error.
PD. me demore en contestar por k estuve ocupado con otros proyectos
PD. despues de muchas batallas con el codigo, opte por subir al servidor un php k dibuja la foto, y reemplazar el campo imagen por un webbrowser, pero al llevarlo al equipo donde va a correr el programa hay ciertas imagenes con las k se cae el programa, la solucion k se me ocurre seria ordenarle al programa k inicie la descarga de este php (ya comprobe k al hacerlo descarga la imagen correspondiente) de forma automatica y luego cargue la imagen en un picture, pero no encuentro como hacer para k la descargue de forma automatica

bueno si mal no recuerto ese ejemplo crea un archivo temporal, revisa si esa carpeta temporal existe..

nos vemos..