-=Aldo=-
02 de Febrero del 2004

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

JoeMori
02 de Febrero del 2004

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