How to show a blob image in cristal report viewer

Question

0.00/5 (No votes)

See more:

Hi,
I use VB.NET under visual studio 2012.
I have a form that contain a datagridview, a picture and a button print.
I created the cristal report viewer to print the content of datagridview and the picture, for that, I added a datatable in witch I added fields for the datagridview columns and a field for the Image ( the Image field type is bytes()).
The problem is that all datagridview fields are displayed but the image is not displayed.

What I have tried:

When I click on the button Print, the datagridview content is shown in the Cristal Report Viewer but the image is not shown ( I already drag the Image field in the datatable to the cristal report viewer as I did with the other fields ).
I tried another method, which is to create a pivcture in the Cristal Report View >> Right Clic >> Format Object >> Picture >> X2 >> double clic on the image field in the datatable . Also with this method I got error " a blob field can not be used in a formula".
This is the code of the button PRINT :

VB

Dim dt As New DataTable
   With dt
       .Columns.Add("code")
       .Columns.Add("productnom")
       .Columns.Add("category")
       .Columns.Add("supplier")
       .Columns.Add("qte")
       .Columns.Add("Image", GetType(Byte()))

   End With
   pathUrl = Application.StartupPath & "\logo.png"
   Dim img As Image = Image.FromFile(pathUrl)
   Dim dr As DataRow = dt.NewRow()
   dr("Image") = imageToByteArray(img) ' The function imageToByteArray is already created

   dt.Rows.Add(dr)

   For Each dgr As DataGridViewRow In Me.Datagridview1.Rows
       dt.Rows.Add(dgr.Cells(0).Value, dgr.Cells(1).Value, dgr.Cells(2).Value, dgr.Cells(3).Value, dgr.Cells(4).Value)
   Next

   Dim reportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument
   reportDocument = New CrystalReport1
   reportDocument.SetDataSource(dt)
   FormPrint.CrystalReportViewer1.ReportSource = reportDocument
   FormPrint.ShowDialog()
   FormPrint.Dispose()

And the code of the function imageToByteArray is :

VB

Public Function imageToByteArray(imageIn As System.Drawing.Image) As Byte()
        Dim ms As New MemoryStream()
        imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.Gif)
        Return ms.ToArray()
        
End Function

Plz, if someone could help me . Thanks

Posted 21-Jul-17 1:11am

monali ali

Updated 21-Jul-17 3:39am

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

monali ali · Accepted Answer · 2017-07-21T03:38:00

I resolved the problem by changin the ImageFormat in the function

imageToByteArray ()

in PNG instead of GIF because cristal reports don't accept the GIF format.
the updated function is :

VB

Public Function imageToByteArray(imageIn As System.Drawing.Image) As Byte()
        Dim ms As New MemoryStream()
        imageIn.Save(ms, System.Drawing.Imaging.ImageFormat.PNG)
        Return ms.ToArray()
        
End Function