User-1486682524 posted
Hello Lannie - thanks for your help with my question. The compression must not have been done at the Oracle level because it does not decompress when I select it.
I have been experimenting with the BLOB data and I have found that it is zipped. I have been able to put together some code that uses ICSharp to uncompress the data and save it as a file. My problem is that instead of saving the data as
a file, I would like to send it directly to Response.Write, so that visitors to the site can download it directly. Here is the code that I have been able to use to uncompress and save as a file, I would appreciate any help with sending to Response.Write:
Public Function ExtractArchive() As String
Dim strSQL As String = "SELECT BLOB_OBJECT, BLOB_TITLE FROM DSK_BLOB WHERE INT_DOC_ID = 10424"
Try
Dim theExtractDir As String = "TestFiles"
''''''''''''''''''''''''''''''''''''''''''''''''''
' ICSharpCode Zip
Dim Redo As Integer = 1
Dim MyZipInputStream As ZipInputStream = Nothing
Dim MyFileStream As FileStream = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''
Dim strTheFileName As String = Nothing
''''''''''''''''''''''''''''''''''''''''''''''''''
' Oracle
Dim con As OracleConnection = New OracleConnection(ConfigurationManager.ConnectionStrings("Tempo_Prod_ConnectionStringNoUnicode").ConnectionString)
Dim cmd As OracleCommand = New OracleCommand()
''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''
' Get the data from Oracle
cmd.Connection = con
cmd.CommandText = strSQL
cmd.Connection.Open()
Dim dr As OracleDataReader = cmd.ExecuteReader()
dr.Read()
''''''''''''''''''''''''''''''''''''''''''''''''''
' Send the Oracle data to ICSharpCode Zip
MyZipInputStream = New ZipInputStream(dr.GetOracleBlob(0))
strTheFileName = dr.GetOracleString(1)
Dim MyZipEntry As ZipEntry = MyZipInputStream.GetNextEntry
Directory.CreateDirectory(theExtractDir)
While Not MyZipEntry Is Nothing
If (MyZipEntry.IsDirectory) Then
Directory.CreateDirectory(theExtractDir & "\" & MyZipEntry.Name)
Else
If Not Directory.Exists(theExtractDir & "\" & _
Path.GetDirectoryName(MyZipEntry.Name)) Then
Directory.CreateDirectory(theExtractDir & "\" & _
Path.GetDirectoryName(MyZipEntry.Name))
End If
MyFileStream = New FileStream(theExtractDir & "\" & strTheFileName, FileMode.OpenOrCreate, FileAccess.Write)
Dim count As Integer
Dim buffer(4096) As Byte
count = MyZipInputStream.Read(buffer, 0, 4096)
While count > 0
MyFileStream.Write(buffer, 0, count)
count = MyZipInputStream.Read(buffer, 0, 4096)
End While
MyFileStream.Close()
End If
Try
MyZipEntry = MyZipInputStream.GetNextEntry
Catch ex As Exception
MyZipEntry = Nothing
End Try
End While
Return theExtractDir & "\" & strTheFileName
If Not (MyZipInputStream Is Nothing) Then MyZipInputStream.Close()
If Not (MyFileStream Is Nothing) Then MyFileStream.Close()
Catch ex As Exception
Return "Erros Occured"
End Try
End Function
