Pregunta: | 62448 - IMPRIMIR PDF BAJADO DESDE UNA DB |
Autor: | Joel de la cruz cruz |
Hola eh bajado un archivo desde un campo blob y lo eh guardardo en un directorio pero despues de bajarlo quiero imprimir directamente sin abrir el adobe acrobat Dim var As New clsVariables Dim con As New OracleConnection(var.gs_Cnx) con.Open() Dim block As String = " BEGIN " & _ " SELECT FILE into :1 FROM DATOS WHERE ID='" & dx.ToString & "'; " & _ " END ;" ' Set command to create Anonymous PL/SQL Block Dim cmd As OracleCommand = New OracleCommand() cmd.CommandText = block cmd.Connection = con cmd.CommandType = CommandType.Text Dim param1 As OracleParameter = cmd.Parameters.Add("blobfromdb", OracleDbType.Blob) param1.Direction = ParameterDirection.Output Try cmd.ExecuteNonQuery() Dim byteData As Byte() Dim Paramvalue As Oracle.DataAccess.Types.OracleBlob Paramvalue = cmd.Parameters(0).Value ' fetch the value of Oracle parameter into the byte array byteData = CType((Paramvalue.Value), Byte()) ' get the length of the byte array Dim ArraySize As Integer = New Integer ArraySize = byteData.GetUpperBound(0) ' Write the Blob data fetched from database to the filesystem at the destination location Dim vFileName As String = "C:InetpubwwwrootsencicodjPRUEBA.PDF" If File.Exists(vFileName) Then File.Delete(vFileName) Dim fs1 As System.IO.FileStream = New FileStream(vFileName, FileMode.OpenOrCreate, FileAccess.Write) fs1.Write(byteData, 0, ArraySize) fs1.Close() Label1.Text = "La DD.JJ. se descargo Correctamente..." Catch ex As Exception 'Response.Write(ex.Message) Label1.Text = ex.Message Finally cmd.Dispose() con.Close() con.Dispose() End Try Espero su ayuda atte. joel |