Απ: crystal report and images

gmlogic — Sun, 22 Mar 2009 01:01:15 GMT

Για την εμφάνηση των εικόνων ειναι το ΙBlobFieldObject

Αν ορίσης ένα πεδίο στη βάση σου ως varbinary

και το κάνης Drag and Drop στο Report θα σου βάλη ΙBlobFieldObject

Μπορείς να γεμίσης το field με εικόνα πριν την εκτύπωση στην Dataset που δίνεις για στο SetDataSource του report

πχ

                    Try
                        Dim Image As Byte() = AddImageRow(Application.StartupPath & "\MyFiles\GmHead.jpg")
                        For RCount = 0 To m_dtGen.Rows.Count - 1
                            m_dtGen.Rows(RCount).Item("img") = Image
                        Next
                    Catch ex As Exception
                        MsgBox(ex.Message)
                    End Try

Public Function AddImageRow(ByVal filename As String) As Byte()
Dim fs As New FileStream(filename, FileMode.Open) ' create a file stream
Dim br As New BinaryReader(fs) ' create binary reader

AddImageRow = br.ReadBytes(Convert.ToInt32(br.BaseStream.Length))

        br = Nothing
        fs = Nothing
    End Function

crystal report and images

DaltonGR — Tue, 10 Jun 2008 16:34:21 GMT

Καλημέρα,

Έχω ένα απλό report το οποίο εμφανίζει στοιχεία απο πίνακα βάσης δεδομένων. Μέχρι εδώ όλα καλα και απλά. Θέλω να εμφανίσω στην κεφαλίδα της αναφοράς ένα λογότυπο, το οποίο έχει διαλέξει ο χρήστης και το έχω αποθηκεύση με συγκεκριμένο όνομα στο directory της εφαρμογής. Πώς μπορώ λοιπόν να εμφανίσω αυτή την εικόνα με το άνοιγμα της αναφοράς;

Ευχαριστώ εκ των προτέρων..

Reporting

Απ: crystal report and images

crystal report and images