Friend Class Ejemplo

    Private _ms As MemoryStream  ‘Carga/descarga de archivos SQL

    Private _Fs As FileStream    ’Manejo archivos en memoria

    Private _By() As Byte = Nothing  ‘Array de intercambio

 

    ‘

    ‘Guardar el Documento

    Private Sub Doc_Almacenar(ByVal Origen As String, ByVal Nombre As String)

        Try

            ‘crear un nuevo fstrm con el archivo apuntado en la ruta

            ‘contenida en el origen

            _Fs = New FileStream(Origen, FileMode.Open, FileAccess.Read)

            ‘redimensionarlo y adaptarlo a su longitud

            ReDim _By(_Fs.Length)

            ‘convertir el fstrm en un array de bytes

            _Fs.Read(_By, 0, _Fs.Length)

            ‘Archivos es el tableadapter

            ‘almacenar array en una imagen binaria Sql

            Archivos.Insert(Nombre, _By)

            _Fs.Close()               ‘cerrar el fstrm

            _Fs.Dispose()             ‘Liberarlo

        Catch ex As Exception

            ‘En caso de excepcion…

            Me.lblExcepciones.Text = «DocAlmacenar: « + ex.Message

        End Try

    End Sub

    ‘

    ‘Cargar documento desde la col imagen de SQL

    Private Sub Doc_Recuperar(ByVal Nombre As String)

        Try

            ‘Recuperar imagen de SQL a un array intermedio

            If Nombre.Length > 0 Then

                ‘el table adapter devuelve una imagen

                ‘resultante de la consulta ‘Recuperar(Col Nombre)’

                Dim Buffer() As Byte = Archivos.Recuperar(Nombre).Rows(0).Item(«Imagen»)

                ‘Crear un nuevo archivo

                _Fs = New FileStream(«Documento.tmp», FileMode.Create, FileAccess.Write)

                ‘escribirlo a partir del array intermedio

                _Fs.Write(Buffer, 0, Buffer.Length)

                _Fs.Close()       ‘Cerrar el fstrm

                _Fs.Dispose()     ‘Liberarlo

            End If

        Catch ex As Exception

            ‘En caso de excepcion, reportar

            Me.lblExcepciones.Text = «DocRecuperar: « + ex.Message

            Try

                My.Computer.FileSystem.DeleteFile(«Documento.tmp»)

            Catch ex2 As Exception

                Me.lblExcepciones.Text = «Eliminar: « + ex.Message

            End Try

        End Try

    End Sub

End Class