Cargar imagen desde DB
Alguien me puede decir en donde est谩 el error de mi procedimiento, pues aparentemente todo lo hace bien al recuperar una imagen almacenada en una base de datos, que la extraigo, creo un archivo temporal y la cargo como la propiedad picture de un control image, pero me provoca un error diciendome que la imagen no es v谩lida. Este es mi c贸digo:
Private Sub mostrarfoto()
Dim sArchivoTemporal As String
Dim NumArchivo As Integer
Dim LongArchivo As Long
Dim BytesArchivo() As Byte
If Not IsNull(rst.Fields("foto")) Then
sArchivoTemporal = Environ("Temp") & "" & "foto" & ".bmp"
If Len(Dir$(sArchivoTemporal)) > 0 Then
Kill sArchivoTemporal
End If
NumArchivo = FreeFile
Open sArchivoTemporal For Binary As #NumArchivo
LongArchivo = LenB(rst.Fields("foto"))
If LongArchivo > 0 Then
BytesArchivo = rst.Fields("foto").GetChunk(LongArchivo)
Else
BytesArchivo = rst.Fields("foto").GetChunk(rst.Fields("foto").ActualSize)
End If
Put #NumArchivo, , BytesArchivo()
Close #NumArchivo
imgFoto.Picture = LoadPicture(sArchivoTemporal)
Kill sArchivoTemporal
End If
End Sub
Private Sub mostrarfoto()
Dim sArchivoTemporal As String
Dim NumArchivo As Integer
Dim LongArchivo As Long
Dim BytesArchivo() As Byte
If Not IsNull(rst.Fields("foto")) Then
sArchivoTemporal = Environ("Temp") & "" & "foto" & ".bmp"
If Len(Dir$(sArchivoTemporal)) > 0 Then
Kill sArchivoTemporal
End If
NumArchivo = FreeFile
Open sArchivoTemporal For Binary As #NumArchivo
LongArchivo = LenB(rst.Fields("foto"))
If LongArchivo > 0 Then
BytesArchivo = rst.Fields("foto").GetChunk(LongArchivo)
Else
BytesArchivo = rst.Fields("foto").GetChunk(rst.Fields("foto").ActualSize)
End If
Put #NumArchivo, , BytesArchivo()
Close #NumArchivo
imgFoto.Picture = LoadPicture(sArchivoTemporal)
Kill sArchivoTemporal
End If
End Sub
Saludos Aldo, Jos茅 desde Venezuela
Tengo un c贸digo para recuperar fotos te informo que las fotos deben estar en un directorio por ejemplo
c:ProyectoFotos
todas con extensi贸n .BMP
la cual debe ser grabada con el n煤mero de c茅dula para identificarla con la clave en este caso del registro, me estoy refiriendo a un sistema de personal.
Si te interesa enviame un correo [email protected]
Espero tu correo
Tengo un c贸digo para recuperar fotos te informo que las fotos deben estar en un directorio por ejemplo
c:ProyectoFotos
todas con extensi贸n .BMP
la cual debe ser grabada con el n煤mero de c茅dula para identificarla con la clave en este caso del registro, me estoy refiriendo a un sistema de personal.
Si te interesa enviame un correo [email protected]
Espero tu correo