daheads blog²

Wer die Qual einsetzt, hat die Wahl... Ist aber wohl nur eine Frage der Zeit, bis sich das Ding von alleine ungefragt installiert.

Weiterlesen »

Heutzutage gibt es tausende Webseiten, die sich mit nur einem einzigen Thema, dem SEO (Search Engine Optimization) oder übersetzt: der Suchmaschinenoptimierung beschäftigen.

Es gibt zwar einige grundlegende Tipps an denen man sich als "Netzmeister" orientieren kann, aber keine Allzweckwaffe für eine bessere Platzierung bei allen Suchmaschinen Betreibern.

Beim größten und beliebtesten Betreiber Google gibt es allerdings einen kleinen Trick, um die eigene Seite weiter oben in den Ergebnislisten auftauchen zu lassen. Der einzige Nachteil: man muss Googles eigenen Browser Chrome dazu installieren.

Wie das ganze funktioniert, hier als Schritt für Schritt Anleitung:

• Google Chrome Browser installieren
• In der Adressleiste des Chrome Browsers (die auch für Suchanfragen zuständig ist) den zu optimierenden Suchbegriff eingeben
• In der Google Suchergebnisliste den Eintrag der eigenen Seite suchen (das kann unter Umständen leider etwas mühselig sein) und anschließend den Link in einem neuen Tab öffnen
• Das ganze möglichst oft wiederholen um die Platzierung zu verbessern

Achja, wie man den Browser Chrome nach getaner Arbeit wieder los wird, steht hier geschrieben.

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

Wir waren dieses Jahr endlich mal wieder grillen. Der Anlass war der Geburtstag meines jüngsten Bruders Mitte der Woche.

Die erste Vorstufe der Glut ist hier zu begutachten:

Als Hinweis möchte ich hinzufügen, dass das große Holzstück nur da drin liegt, da eine Axt nicht greifbar und alle kleineren Hölzer bereits verbrannt waren.

Ein sehr leckeres Dessert gab es anschließend übrigens auch:

Das Eis, das man hier sieht gibt es wohl gerade im Aldi (so wurde mir berichtet) und die Schale ist eine echte Zitrone. Im Inneren befindet sich sehr leckeres Zitroneneis. Wirklich empfehlenswert.

Um in VB .NET E-Mails zu versenden, verwendet man am besten den Namespace Net.Mail.

Leider gibt es in VB .NET allerdings noch keine Möglichkeit, E-Mails zu empfangen um beispielsweise die Dateianhänge abzuspeichern.

Um dieses Problem zu beseitigen, zeige ich im Folgenden, wie man mit Hilfe von Indy eine E-Mail von einem POP3 Postfach herunterlädt und eventuelle Anhänge der E-Mails auf dem Dateisystem abspeichert.

Wichtig, zur Verwendung von Indy muss als Referenz die Indy.Sockets und Mono.Security DLL in das Projekt eingebunden werden.

Zu erst einmal eine kleine Hilfsklasse, in der wir die Konten-Informationen unseres POP3 Kontos ablegen:

Public Class MailAccount
 
  ''' <summary>
  ''' Hostname des E-Mail Servers
  ''' </summary>
  ''' <remarks></remarks>
  Public Host As String
 
  ''' <summary>
  ''' Benutzername des E-Mail Kontos
  ''' </summary>
  ''' <remarks></remarks>
  Public Username As String
 
  ''' <summary>
  ''' Benutzer-Passwort des E-Mail Kontos
  ''' </summary>
  ''' <remarks></remarks>
  Public Password As String
 
End Class

Nun der interessantere Teil. Die Methode SaveAllAttachments speichert vom übergebenen Mailkonto alle Anhänge aller E-Mails temporär auf der Festplatte lokal ab.

Hierfür verbinden wir uns erst mit dem Mailkonto, ermitteln dann die Menge aller E-Mails auf dem Postfach und iterieren dann durch jede einzelne E-Mail.

Eine E-Mail besteht aus mehreren sogeannten Messageparts. Ist ein Messagepart vom Typ Octet-Stream, handelt es sich um einen Dateianhang, den wir ja abspeichern wollen.

Public Class IndyTools
 
  ''' <summary>
  ''' Speichert alle Dateianhänge des Postfachs aAccount im Servicevertrags-Verzeichnis des jeweils ermittelten Servicevertrags
  ''' </summary>
  ''' <param name="aAccount">Postfach Konto</param>
  ''' <remarks></remarks>
  Public Sub SaveAllAttachments(ByVal aAccount As MailAccount)
 
    Dim tempfilename As String
    Dim IsAttachment As Boolean
 
    Dim o As NewIndy.Sockets.TIdNetNativeComponent
    Dim p As NewIndy.Sockets.POP3(o)
    Dim att As Indy.Sockets.Attachment
 
    ' Verbindungsdaten an Indy übergeben
    With p
      .Host = aAccount.Host
      .Username = aAccount.Username
      .Password = aAccount.Password
    End With
 
    Try
 
      Try
        ' Verbinden und Mailmenge feststellen
        p.Connect()
 
        ' Anzahl er Mails auf dem Postfach ermitteln
        Dim Amount As Integer = p.CheckMessages
 
        ' Für alle Mails
        For i As Integer = 1 To Amount
 
          ' Mail abholen
          Dim msg As New Indy.Sockets.Message
          p.Retrieve(i, msg)
 
          ' Für jeden Messagepart
          For x As Integer = 1 To msg.MessageParts.Count - 1
 
            ' Ist dieser Messagepart ein Anhang?
            IsAttachment = msg.MessageParts.Items(x).ContentType = "application/octet-stream"
 
            If IsAttachment Then
 
              Try
                ' Anhang holen
                att = msg.MessageParts.Items(x)
 
                ' Anhang temporär speichern
                tempfilename = System.IO.Path.GetTempFileName
                att.SaveToFile(tempfilename)
 
              Catchex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical)
              End Try
 
            End If
 
          Next
 
        Next
 
      Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.Critical)
      End Try
 
    Finally
      p.Disconnect()
      p.Dispose()
    End Try
 
  End Sub
 
End Class

Hier noch ein Modul mit einem kleinen Beispielaufruf obiger Klassen:

Module modTest
 
  Sub Main()
    Dim it As New IndyTools
    Dim ac As New MailAccount
 
    ac.Username = "frank.miller@gmx.net"
    ac.Password = "BestMovie300"
    ac.Host = "pop.gmx.de"
 
    it.SaveAllAttachments(ac)
  End Sub
 
End Module