none
Convertir a binario RRS feed

  • Pregunta

  • Hola amigos,

    Alguien sabe como vonertir un archivo en binario y cargarlos a un BD SQLSERVER 2005 y recuperarlo nuevamente en una consulta.

    Los archivos pueden tener cualquier tipo de extensión word, excel, pdf, bmp, img, tiff, etc

    Es muy urgente.

    Gracias,

    Carlos Onocuica.


    conocuica

    viernes, 27 de abril de 2012 0:11

Respuestas

  • Me repondo solo si alguien lo necesita

        'convertir archivo a binario 
        Public Function PDF_Bytes(ByVal Path As String) As Byte()
            Dim sPath As String
            sPath = Path
            Dim Ruta As New FileStream(sPath, FileMode.Open, FileAccess.Read)
            Dim Binario(CInt(Ruta.Length)) As Byte
            Ruta.Read(Binario, 0, CInt(Ruta.Length))
            Ruta.Close()
            Return Binario
        End Function
        'convertir binario a archivo
        Public Sub Bytes_PDF(ByVal Bin As Byte(), ByVal pathTemporal As String)
            Dim oFileStream As FileStream
            If File.Exists(pathTemporal) Then File.Delete(pathTemporal)
            oFileStream = New FileStream(pathTemporal, FileMode.CreateNew)
            oFileStream.Write(Bin, 0, Bin.Length)
            oFileStream.Close()
            oFileStream = Nothing
        End Sub
    End Class


    conocuica

    viernes, 27 de abril de 2012 1:34