plugsharma 0 Newbie Poster

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

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

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

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.