Wer die Qual einsetzt, hat die Wahl... Ist aber wohl nur eine Frage der Zeit, bis sich das Ding von alleine ungefragt installiert.
Schön ist auch die Beschreibung:
"Internet Explorer 8 ist die neueste Version des weit verbreiteten, vertrauten und komfortablen Webbrowsers."
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:
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:
Im Prinzip wird im Code unten folgendes gemacht:
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
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 sogenannten 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 Verzeichnis ''' </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 der 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