daheads blog²

Wir haben in den letzten Tagen nach einer Möglichkeit gesucht, in Crystal Reports Barcodes anzuzeigen, und zwar so, dass man sie nachher mit einem Barcode Scanner auch wieder einlesen kann.

Um dies zu tun habe ich nach einer kostenlosen Open-Source Variante gesucht.

Nach unzähligen Versuchen fand ich dann endlich das Barcode Rendering Framework ZEN auf Codeplex.com.

Das Framework kann über Verwendung der drei DLLs als Verweis recht simpel eingebunden werden. Es beherrscht folgende Varianten:

• Code 11 (mit oder ohne Prüfsumme)
• Code 25 standard/interleaved (mit oder ohne Prüfsumme)
• Code 39 (mit oder ohne Prüfsumme)
• Code 93 (nur mit Prüfsumme)
• Code 128 (nur mit Prüfsumme)
• Code EAN 13 (nur mit Prüfsumme)
• Code EAN 8 (nur mit Prüfsumme)
• Code PDF417 2D (mit Prüfsumme)

Im Prinzip wird im Code unten folgendes gemacht:

• Barcode Bild erstellen und als temporäre Datei abspeichern
• Das abgespeicherte Bild in ein Dataset laden, damit wir es im Report anzeigen können. Das Dataset hat eine Tabelle Namens dtImage mit eben diesen Spalten.

Das Dataset, das der Report verwendet, besitzt nur zwei Spalten. Eine namens ImageFilename (vom Typ String) welche den Dateinamen des temporären Barcode Bildes enthält, und eine namens Image (vom Typ base64Binary bzw. System.Byte()), die das Bild selbst enthält.

Public Sub ShowRepDemo()
 
    ' Barcode-Bild erstellen und als temporäre Datei abspeichern
    Dim tmpfile As String
    tmpfile = My.Computer.FileSystem.GetTempFileName & ".bmp"
    Zen.Barcode.BarcodeDrawFactory.Code128WithChecksum.Draw("Dies ist ein Barcode 128 Test", 30).Save(tmpfile)
 
    Dim ds As New Dataset
 
    ' Barcode Bild in Datatable schreiben
    ds.dtImage.AdddtImageRow(tmpfile, Nothing)
 
    ' Image binär in Datatable schreiben
    For index As Integer = 0 To ds.Tables(0).Rows.Count - 1
      If Not String.IsNullOrEmpty(ds.Tables(0).Rows(index).Item("ImagePath").ToString) Then
        LoadImage(ds.dtImage.Rows(index), "Image", ds.dtImage.Rows(index).Item("ImagePath").ToString)
      End If
    Next
 
    ' Report öffnen
    Dim rptdoc As New repDemo
    rptdoc.SetDataSource(ds.dtImage)
 
    Dim rv As New CrystalDecisions.Windows.Forms.CrystalReportViewer
    rv.Dock = DockStyle.Fill
    Me.Controls.Add(rv)
    rv.ReportSource = rptdoc
 
  End Sub
 
  ' Bild in DataTable schreiben
  Private Sub LoadImage(ByVal objDataRow As DataRow, ByVal strImageField As String, ByVal FilePath As String)
    Try
      Dim fs As System.IO.FileStream = New System.IO.FileStream(FilePath, System.IO.FileMode.Open, System.IO.FileAccess.Read)
      Dim Image() As Byte = New Byte(fs.Length) {}
      fs.Read(Image, 0, CType(fs.Length, Integer))
      fs.Close()
      objDataRow(strImageField) = Image
    Catch ex As Exception
      MsgBox(ex.Message)
    End Try
 
end Sub