How to print Picture in Crystal Report 8.5

Dear Friends,

Please help how to print picture in Crystal Report 8.5 from the given path

e.g :

Sqlserver 2000

Records Like

Mr. George                  Executive               D:\foto\george.jpg

Mr. John                      Asst.Manager         D:\foto\John.jpg

 

Pls help in this regards.

Atheeq

 

Just create a temp table
add a oleObject(bolb field)
place the image u want to show in report
after report generation delete that file
I am sending code in which i used chunck table to
show the picture

i mapped that feild in report.

Public Sub SaveReportPicture(rtfOrig As RichTextBox,
rtfUser As RichTextBox, ParamFaultid As Byte, Optional
flag As Boolean, Optional lstfile As ListBox)
Dim fso As New FileSystemObject
Dim newconnect As String
newconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & sFile & ";Persist Security Info=False;Jet
OLEDB:Database Password=" & CStr(G_Password)
Dim repcn As ADODB.Connection
Set repcn = New ADODB.Connection
repcn.Open newconnect
Dim mstream As ADODB.Stream
Dim Index As Byte, PictureName As String
Dim RsPic As New ADODB.Recordset 'for opening
recordset
Cn.Execute "Delete from Chunks "

RsPic.Open "Select
test_definition_id,FAULT_TYPE,photo,Under_Over_Type
from chunks", repcn, adOpenKeyset, adLockOptimistic
If flag = False Then
For Index = 0 To ParamFaultid
PictureName = ReportDefinitionID & Index & ".jpg"
If fso.FileExists(DBnameFolder & "\" &
PictureName) Then
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile DBnameFolder & "\" &
PictureName

RsPic.AddNew
RsPic.Fields("photo").Value = mstream.Read
RsPic.Fields(0) = ReportDefinitionID
RsPic("Fault_Type") = Index
RsPic("under_over_type") = 0
RsPic.Update
mstream.Flush
mstream.Close
Set mstream = Nothing
End If
Next
End If
If flag = True Then

For Index = 0 To 1
PictureName = ReportDefinitionID & Index & ".jpg"
If fso.FileExists(DBnameFolder & "\" &
PictureName) Then
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile DBnameFolder & "\" &
PictureName
RsPic.AddNew
RsPic.Fields("photo").Value = mstream.Read
RsPic.Fields(0) = ReportDefinitionID
RsPic("Fault_Type") = 0
RsPic("under_over_type") = Index
RsPic.Update
mstream.Flush
mstream.Close
Set mstream = Nothing
End If
Next

End If

Err.CLEAR
rtfOrig.text = ""
rtfUser.text = ""
repcn.Execute "delete from
Chunks_TestDefinition_NoteBook"
rsrelaynotebook.Close
Set rsrelaynotebook = Nothing
Set rsrelaynotebook = New ADODB.Recordset
rsrelaynotebook.Open "select * from
Chunks_TestDefinition_NoteBook", repcn, adOpenDynamic,
adLockOptimistic
If fso.FileExists(DBNoteBookFolder & "\" & "TD_O" &
ReportDefinitionID & ".rtf") Then
rtfOrig.LoadFile DBNoteBookFolder & "\" & "TD_O" &
ReportDefinitionID & ".rtf"
End If

If fso.FileExists(DBNoteBookFolder & "\" & "TD_U" &
ReportDefinitionID & ".rtf") Then
rtfUser.LoadFile DBNoteBookFolder & "\" & "TD_U" &
ReportDefinitionID & ".rtf"
End If
rsrelaynotebook.AddNew
rsrelaynotebook(0) = ReportDefinitionID
rsrelaynotebook(2) = rtfOrig.text
rsrelaynotebook(1) = rtfUser.text
rsrelaynotebook(3) = Tattached_files
rsrelaynotebook.Update
repcn.Close
Set repcn = Nothing
Set fso = Nothing
Set rsrelaynotebook = Nothing
End Sub

Just go thr this link for more details;

http://visualbasic.ittoolbox.com/groups/technical-functional/vb-crystalreports-l/printing-pictures-in-crystal-reports-80-247818#

http://www.tech-archive.net/Archive/VB/microsoft.public.vb.crystal/2006-08/msg00136.html

Here are some links realated to crystal report just go thr this;

http://www.codeguru.com/forum/archive/index.php/f-64-p-9.html

Best Luck!!!!!!!!!!!!!!
Sujit.

Hi,
you have to convert your image file to binary format and you have to pass to the crystal report.
try the below code

      DataTable dt = new DataTable();
      

        DataRow drow;
        // add the column in table to store the image of Byte array type

        dt.Columns.Add("Image", System.Type.GetType("System.Byte[]"));
        drow = dt.NewRow;      
        FileStream fs;    
        BinaryReader br;
      

        if (File.Exists(AppDomain.CurrentDomain.BaseDirectory + "1.Jpg")) {
            // open image in file stream

            fs = new FileStream(AppDomain.CurrentDomain.BaseDirectory + "1.Jpg", FileMode.Open);
        }
        else {
            // if phot does not exist show the nophoto.jpg file

            fs = new FileStream(AppDomain.CurrentDomain.BaseDirectory + "NoImage.jpg", FileMode.Open);
        }
      

        br = new BinaryReader(fs);
      
        byte[] imgbyte = new byte[fs.Length + 1];
       
        imgbyte = br.ReadBytes(Convert.ToInt32((fs.Length)));
        drow(0) = imgbyte;      

        dt.Rows.Add(drow);  
        br.Close();
        fs.Close();       
        CrystalReport1 rptobj = new CrystalReport1();  
        rptobj.SetDataSource(dt);        
        CrystalReportViewer1.ReportSource = rptobj;

Hello Atheeq Ahmed

You can try this way
try {
        // here i have define a simple datatable inwhich image will recide
        DataTable dt = new DataTable();
        // object of data row
        DataRow drow;
        // add the column in table to store the image of Byte array type
        dt.Columns.Add("Image", System.Type.GetType("System.Byte[]"));
        drow = dt.NewRow;
        // define the filestream object to read the image
        FileStream fs;
        // define te binary reader to read the bytes of image
        BinaryReader br;
        // check the existance of image
        if (File.Exists(AppDomain.CurrentDomain.BaseDirectory + "10157.Jpg")) {
            // open image in file stream
            fs = new FileStream(AppDomain.CurrentDomain.BaseDirectory + "10157.Jpg", FileMode.Open);
        }
        else {
            // if phot does not exist show the nophoto.jpg file
            fs = new FileStream(AppDomain.CurrentDomain.BaseDirectory + "NoPhoto.jpg", FileMode.Open);
        }
        // initialise the binary reader from file streamobject
        br = new BinaryReader(fs);
        // define the byte array of filelength
        byte[] imgbyte = new byte[fs.Length + 1];
        // read the bytes from the binary reader
        imgbyte = br.ReadBytes(Convert.ToInt32((fs.Length)));
        drow(0) = imgbyte;
        // add the image in bytearray
        dt.Rows.Add(drow);
        // add row into the datatable
        br.Close();
        // close the binary reader
        fs.Close();
        // close the file stream
        CrystalReport1 rptobj = new CrystalReport1();
        // object of crystal report
        rptobj.SetDataSource(dt);
        // set the datasource of crystalreport object
        CrystalReportViewer1.ReportSource = rptobj;
        //set the report source
    }
    catch (Exception ex) {
        // error handling
        Interaction.MsgBox("Missing 10157.jpg or nophoto.jpg in application folder");
    }
// run the application to view image in report
More code sample from  Anant Tiwari at
http://www.codeproject.com/KB/vb/Image_in_Crystal_Reports.aspx
This also can be referred
http://www.mcawp.net/download/Tutorial.pdf
http://www.codeguru.com/forum/printthread.php?t=449369
http://visualbasic.ittoolbox.com/groups/technical-functional/vb-crystalreports-l/printing-pictures-in-crystal-reports-80-247818

Hope it helps you
Happy Coding takecare

Hi,

you need to store the image directly into your  database inorder to bind the crystal reposets directly to the database.

Otherwise you need to load the data into dataset. and do the below for each row in dataset

1. Get the stream reader for file metnined in the image path of the each row.

2. Read the stream and load it into the bytes.

3. Store the bytes in the Dataset

4. Pass this dataset to crystal reports as a data source.

here is the below link for showing images from various database

http://resources.businessobjects.com/support/communitycs/TechnicalPapers/cr_insert_images.pdf?recDnlReq=Record&dnlPath=cr_insert_images.pdf

How to Change an image in the Crystal Report at runtime

http://www.c-sharpcorner.com/UploadFile/saj/CrystalReports03192006090510AM/CrystalReports.aspx

hope it helps!

i mapped that feild in report.

Public Sub SaveReportPicture(rtfOrig As RichTextBox,
rtfUser As RichTextBox, ParamFaultid As Byte, Optional
flag As Boolean, Optional lstfile As ListBox)
Dim fso As New FileSystemObject
Dim newconnect As String
newconnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & sFile & ";Persist Security Info=False;Jet
OLEDB:Database Password=" & CStr(G_Password)
Dim repcn As ADODB.Connection
Set repcn = New ADODB.Connection
repcn.Open newconnect
Dim mstream As ADODB.Stream
Dim Index As Byte, PictureName As String
Dim RsPic As New ADODB.Recordset 'for opening
recordset
Cn.Execute "Delete from Chunks "

RsPic.Open "Select
test_definition_id,FAULT_TYPE,photo,Under_Over_Type
from chunks", repcn, adOpenKeyset, adLockOptimistic
If flag = False Then
For Index = 0 To ParamFaultid
PictureName = ReportDefinitionID & Index & ".jpg"
If fso.FileExists(DBnameFolder & "\" &
PictureName) Then
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile DBnameFolder & "\" &
PictureName

RsPic.AddNew
RsPic.Fields("photo").Value = mstream.Read
RsPic.Fields(0) = ReportDefinitionID
RsPic("Fault_Type") = Index
RsPic("under_over_type") = 0
RsPic.Update
mstream.Flush
mstream.Close
Set mstream = Nothing
End If
Next
End If
If flag = True Then

For Index = 0 To 1
PictureName = ReportDefinitionID & Index & ".jpg"
If fso.FileExists(DBnameFolder & "\" &
PictureName) Then
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile DBnameFolder & "\" &
PictureName
RsPic.AddNew
RsPic.Fields("photo").Value = mstream.Read
RsPic.Fields(0) = ReportDefinitionID
RsPic("Fault_Type") = 0
RsPic("under_over_type") = Index
RsPic.Update
mstream.Flush
mstream.Close
Set mstream = Nothing
End If
Next

End If

Err.CLEAR
rtfOrig.text = ""
rtfUser.text = ""
repcn.Execute "delete from
Chunks_TestDefinition_NoteBook"
rsrelaynotebook.Close
Set rsrelaynotebook = Nothing
Set rsrelaynotebook = New ADODB.Recordset
rsrelaynotebook.Open "select * from
Chunks_TestDefinition_NoteBook", repcn, adOpenDynamic,
adLockOptimistic
If fso.FileExists(DBNoteBookFolder & "\" & "TD_O" &
ReportDefinitionID & ".rtf") Then
rtfOrig.LoadFile DBNoteBookFolder & "\" & "TD_O" &
ReportDefinitionID & ".rtf"
End If

If fso.FileExists(DBNoteBookFolder & "\" & "TD_U" &
ReportDefinitionID & ".rtf") Then
rtfUser.LoadFile DBNoteBookFolder & "\" & "TD_U" &
ReportDefinitionID & ".rtf"
End If
rsrelaynotebook.AddNew
rsrelaynotebook(0) = ReportDefinitionID
rsrelaynotebook(2) = rtfOrig.text
rsrelaynotebook(1) = rtfUser.text
rsrelaynotebook(3) = Tattached_files
rsrelaynotebook.Update
repcn.Close
Set repcn = Nothing
Set fso = Nothing
Set rsrelaynotebook = Nothing
End Sub

Dear senthil kumar

Thanks for sending me coding for picture printing in crystal report

Can you please send me in vb.net format.

I already hv a picture path in my table similar to this the photo can be print in Crystal report.

Pls help

Atheeq

 

D:\foto\george.jpg