Convertir a binario

Question

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

Answer 1

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