Ich habe mir heute eine kleine Funktion zurechtgeklöppelt mit der ich durch die Übergabe einer Email-Adresse das Bild von GRAVATAR als Bitmap übergeben bekomme:
VB.NET-Quellcode
- Imports System.IO
- Imports System.IO.Ports
- Imports System.Security.Cryptography
- Imports System.Text
- Imports System.Net
- '(bin nicht ganz sicher ob alle Imports erforderlich sind)
- PictureBox_Gravatar.Image = Nothing
- PictureBox_Gravatar.Image = GravatarBitmap(textbox_EmailAdresse.Text)
- ''' <summary>
- ''' Erzeugt den MD5Hash
- ''' </summary>
- ''' <param name="strString"></param>
- ''' <returns></returns>
- Public Function MD5StringHash(ByVal strString As String) As String
- Dim MD5 As New MD5CryptoServiceProvider
- Dim Data As Byte()
- Dim Result As Byte()
- Dim Res As String = ""
- Dim Tmp As String = ""
- Data = Encoding.ASCII.GetBytes(strString)
- Result = MD5.ComputeHash(Data)
- For i As Integer = 0 To Result.Length - 1
- Tmp = Hex(Result(i))
- If Len(Tmp) = 1 Then Tmp = "0" & Tmp
- Res += Tmp
- Next
- Return Res
- End Function
- ''' <summary>
- ''' Übergibt das Gravatar-Image zu einer Email-Adresse.
- ''' Größe 80x80 Pixel
- ''' </summary>
- ''' <param name="Email"></param>
- ''' <returns></returns>
- Public Function GravatarBitmap(ByVal Email As String) As Bitmap
- Dim hash As String = MD5StringHash(Email.ToLower).ToLower
- Dim URL As String = "https://www.gravatar.com/avatar/" + hash + ".jpg"
- Dim wc As New WebClient()
- Dim binData As Byte() = wc.DownloadData(URL)
- Dim stream As New MemoryStream(binData)
- Dim Bitmap As New Bitmap(stream)
- Return Bitmap
- End Function
Liebe Grüße
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at
Roland Berghöfer
Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at