DaniWeb IT Discussion Community - View Single Post - Load image in report in runtime in ASP.Net

Load image in report in runtime in ASP.Net

Nov 11th, 2008

Hi,

I have to display a logo in crystal report in runtime. I have tried two solutions given in http://www.devx.com/codemag/Article/33658/1954 (Tip 6: Better Handling of Dynamic Images)

Dim data As New DataSet()
Dim row As DataRow

Step1 (Passing Image URL into dataset): my code is as follows

 Help with Code Tags 
 asp.net Syntax (Toggle Plain Text) 
Private Sub LoadImgUrl()
        Try
            data.Tables.Add("Image")
            data.Tables("Image").Columns.Add("Name")
 
            row = data.Tables(0).NewRow()
            row(0) = Server.MapPath("DI.bmp")
            data.Tables(0).Rows.Add(row)
 
            rptDoc.Load(Server.MapPath("rptImgUrl.rpt"))
            rptDoc.SetDataSource(data)
 
            Response.Clear()
            Response.Buffer = True
            Response.ClearContent()
            Response.ClearHeaders()
 
            Response.ContentType = "application/pdf"
            rptDoc.ExportToHttpResponse(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, Response, False, "")
 
            Response.Flush()
 
            Response.End()
        Catch ex As Exception
 
        End Try
 
    End Sub
Private Sub LoadImgUrl()
        Try
            data.Tables.Add("Image")
            data.Tables("Image").Columns.Add("Name")

            row = data.Tables(0).NewRow()
            row(0) = Server.MapPath("DI.bmp")
            data.Tables(0).Rows.Add(row)

            rptDoc.Load(Server.MapPath("rptImgUrl.rpt"))
            rptDoc.SetDataSource(data)

            Response.Clear()
            Response.Buffer = True
            Response.ClearContent()
            Response.ClearHeaders()

            Response.ContentType = "application/pdf"
            rptDoc.ExportToHttpResponse(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, Response, False, "")
            
            Response.Flush()

            Response.End()
        Catch ex As Exception

        End Try

    End Sub

--------------

Step2 (Storing Image into dataset): my code is as follows

 Help with Code Tags 
 asp.net Syntax (Toggle Plain Text) 
Private Sub LoadImgDS()
        Try
            data.Tables.Add("Image")
            data.Tables("Image").Columns.Add("Logo", System.Type.GetType("System.Byte[]"))
 
            Dim fs As New System.IO.FileStream(Server.MapPath("DI.bmp"), System.IO.FileMode.Open, IO.FileAccess.Read)
            Dim br As New System.IO.BinaryReader(fs)
 
            row = data.Tables("Image").NewRow()
            row("Logo") = br.ReadBytes(br.BaseStream.Length)
            data.Tables("Image").Rows.Add(row)
 
            rptDoc.Load(Server.MapPath("rptImgDS.rpt"))
            rptDoc.SetDataSource(data)
 
            Response.Clear()
            Response.Buffer = True
            Response.ClearContent()
            Response.ClearHeaders()
 
            Response.ContentType = "application/pdf"
            rptDoc.ExportToHttpResponse(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, Response, False, "")
            br.Close()
            fs.Close()
 
            br = Nothing
            fs = Nothing
        Catch ex As Exception
 
        End Try
    End Sub
Private Sub LoadImgDS()
        Try
            data.Tables.Add("Image")
            data.Tables("Image").Columns.Add("Logo", System.Type.GetType("System.Byte[]"))

            Dim fs As New System.IO.FileStream(Server.MapPath("DI.bmp"), System.IO.FileMode.Open, IO.FileAccess.Read)
            Dim br As New System.IO.BinaryReader(fs)

            row = data.Tables("Image").NewRow()
            row("Logo") = br.ReadBytes(br.BaseStream.Length)
            data.Tables("Image").Rows.Add(row)

            rptDoc.Load(Server.MapPath("rptImgDS.rpt"))
            rptDoc.SetDataSource(data)

            Response.Clear()
            Response.Buffer = True
            Response.ClearContent()
            Response.ClearHeaders()

            Response.ContentType = "application/pdf"
            rptDoc.ExportToHttpResponse(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, Response, False, "")
            br.Close()
            fs.Close()

            br = Nothing
            fs = Nothing
        Catch ex As Exception

        End Try
    End Sub

--------

In both case i am getting error "cannot obtain value" in following line:

rptDoc.ExportToHttpResponse(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, Response, False, "")

Need help to solve this. Its very urgent.

Thanks

Last edited by peter_budo; Nov 12th, 2008 at 5:49 am. Reason: Keep It Organized - For easy readability, always wrap programming code within posts in [code] (code blocks) and [icode] (inline code) tags.