Convert a document to image field in sql server 2005 and back again

[orange123]

Hi
Can someone help me please?

(I am doing all this code in VB.NET)

I have been trying to convert an existing document (word, excel, pdf, powerpoint, etc) to an image field) in my sql server database.
I then need to be able to pull out the data from the image field and open the document.

So far I have the following code:

PUT DOCUMENT IN DATABASE

Dim fsw As New StreamReader("C:\test.doc", System.Text.Encoding.UTF8, True)
Dim oEncoder As New UTF8Encoding()
Dim bytes As Byte() = oEncoder.GetBytes(fsw.ReadToEnd)

"DataTable field (to be inserted into image field)) with datatype of System.Byte()" = bytes


GET DOCUMENT FROM DATABASE

' Not sure if this line below should use some sort of UTF8Encoding when converting the image field to an array of bytes)
Dim newArray As Byte() = "DataTable field with datatype of System.Byte()" Dim oFileStream As FileStream = New System.IO.FileStream"C:\test.doc", FileMode.Create)
oFileStream.Write(newArray, 0, newArray.GetUpperBound(0) + 1)
oFileStream.Close()


When I open up the document, you can only see squares and boxes where the text should be displayed.

Am i incorrectly opening the document or saving the data to the database in the first place?

Many thanks!

[tmeers]

Hi
Can someone help me please?

(I am doing all this code in VB.NET)

I have been trying to convert an existing document (word, excel, pdf, powerpoint, etc) to an image field) in my sql server database.
I then need to be able to pull out the data from the image field and open the document.

So far I have the following code:

PUT DOCUMENT IN DATABASE

Dim fsw As New StreamReader("C:\test.doc", System.Text.Encoding.UTF8, True)
Dim oEncoder As New UTF8Encoding()
Dim bytes As Byte() = oEncoder.GetBytes(fsw.ReadToEnd)

"DataTable field (to be inserted into image field)) with datatype of System.Byte()" = bytes


GET DOCUMENT FROM DATABASE

' Not sure if this line below should use some sort of UTF8Encoding when converting the image field to an array of bytes)
Dim newArray As Byte() = "DataTable field with datatype of System.Byte()" Dim oFileStream As FileStream = New System.IO.FileStream"C:\test.doc", FileMode.Create)
oFileStream.Write(newArray, 0, newArray.GetUpperBound(0) + 1)
oFileStream.Close()


When I open up the document, you can only see squares and boxes where the text should be displayed.

Am i incorrectly opening the document or saving the data to the database in the first place?

Many thanks!

Now while I'm not a pro at this and I use a different method to upload to the DB I use this but not very often as I have a handler that pulls it out for me with the name. But maybe this will help, mine is just in a file called get.aspx:

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.IO" %>
<%@ Page Language="VB" Debug="true" %>
<script runat="server">
Sub Page_Load(sender as object, e as EventArgs)
 
        Dim objConn As New SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("ConnSting").ConnectionString)
        Dim cmdText = "SELECT contenttype, [filename], Filedata, length FROM proj_file WHERE id='" & Request.QueryString("id") & "'"
        Dim objcmd As New SqlClient.SqlCommand(cmdText, objConn)
 
        objConn.Open()
        Dim objread As SqlClient.SqlDataReader = objcmd.ExecuteReader()
 
        If objread.Read() Then
            Dim [filename] As String
            Response.AddHeader("Content-Disposition", "attachment; filename=" + [filename])
            Response.ContentType = objread("contenttype").ToString()
            Response.BinaryWrite(CType(objread("filedata"), Byte()))
            Response.End()
        End If
 
        objConn.Close()
End Sub
</script>

The only issue I have with it is that it renames the file to get.(extention). I have come up wiht a different solution for my needs though check it out is you want to; http://gettinlucky.dyndns.org/shared

Hope this helps,
Tim

[orange123]

Thanks for your help, but i just found something:

The answer is to use the filestream

Dim fileStream As New FileStream(strStream, FileMode.Open, FileAccess.Read)
Dim len As Long = fileStream.Length
Dim fileAsByte(CInt(len)) As Byte
fileStream.Read(fileAsByte, 0, fileAsByte.Length)

'image field' = fileAsByte

fileStream.Close()