daheads blog²

HowTo: VB .NET Barcodes und Reports

27. Apr 2009 9:54 (bearbeiten)

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, 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 dsMain
 
    ' 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.Tables(0).Rows(index), "Image", ds.Tables(0).Rows(index).Item("ImagePath").ToString)
      End If
    Next
 
    ' Report öffnen
    Dim rptdoc As New repDemo
    rptdoc.SetDataSource(ds.Tables(0))
 
    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
      Throw New Exception(ex.Message)
    End Try
 
end Sub