GRAVATAR Image als Bitmap herunterladen

dive26 · 11. August 2022, 12:34

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

Thunderbolt · 11. August 2022, 18:04

Moin,

ich habe verschiedene Verbesserungsvorschläge:

Die *CryptoServiceProvider-Klassen soll man nicht mehr verwenden. Stattdessen soll man die Create-Methode auf der Basisklasse aufrufen. Quelle
Die Hex-Darstellung baust du dir mühsam selbst. Das Framework bietet dafür BitConverter.ToString an.
MD5 und der WebClient werden nicht disposed. Der MemoryStream zwar auch nicht, aber der muss auch nicht. Quelle

Im Folgenden habe ich den Code etwas angepasst und auch gleich nach C# übersetzt, falls jemand das gebrauchen kann …

VB.NET-Quellcode

Imports System.Drawing
Imports System.IO
Imports System.Net
Imports System.Security.Cryptography
Imports System.Text
Public Class Gravatar
''' <summary>
''' Erzeugt den MD5Hash
''' </summary>
''' <param name="str"></param>
''' <returns></returns>
Private Shared Function MD5StringHash(ByVal str As String) As String
Using md5 As MD5 = MD5.Create()
Dim strBytes = Encoding.UTF8.GetBytes(str)
Dim hashBytes = md5.ComputeHash(strBytes)
Return BitConverter.ToString(hashBytes).Replace("-", string.Empty)
End Using
End Function
''' <summary>
''' Übergibt das Gravatar-Image zu einer Email-Adresse.
''' Größe 80x80 Pixel
''' </summary>
''' <param name="email"></param>
''' <returns></returns>
Public Shared Function GravatarBitmap(ByVal email As String) As Bitmap
Dim hash As String = MD5StringHash(email.ToLowerInvariant()).ToLowerInvariant()
Dim url As String = string.Format("https://www.gravatar.com/avatar/{0}.jpg", hash)
' Falls Async wünschenswert ist, bietet sich HttpClient statt WebClient an
Using wc As New WebClient()
Dim binData As Byte() = wc.DownloadData(url)
Dim stream As New MemoryStream(binData)
Return New Bitmap(stream)
End Using
End Function
End Class

C#-Quellcode

using System.Drawing;
using System.Net;
using System.Security.Cryptography;
using System.Text;
public static class Gravatar
{
private static string MD5StringHash(string str)
{
using var md5 = MD5.Create();
var strBytes = Encoding.UTF8.GetBytes(str);
var hashBytes = md5.ComputeHash(strBytes);
return BitConverter.ToString(hashBytes).Replace("-", string.Empty);
}
public static Bitmap GravatarBitmap(string email)
{
var hash = MD5StringHash(email.ToLowerInvariant()).ToLowerInvariant();
var url = $"https://www.gravatar.com/avatar/{hash}.jpg";
// Falls Async wünschenswert ist, bietet sich HttpClient statt WebClient an
using var wc = new WebClient();
var bitmapData = wc.DownloadData(url);
var stream = new MemoryStream(bitmapData);
return new Bitmap(stream);
}
}

Weiteres Verbesserungspotenzial: Abhängig davon, wie häufig man Aufrufe durchführt, kann es sich lohnen, den WebClient in einer Instanzvariable zu cachen und wiederzuverwenden.

RodFromGermany · 11. August 2022, 18:09

@dive26 WebClient und MemoryStream immer sowie PictureBox_Gravatar.Image bei Neuzuweisung disposen.
Was hat es mit diesem Image auf sich?
Es als Bild an Deinen Post anzuhängen wäre doch einfacher, da es offensichtlich für viele (um nicht alle zu sagen) EMail-Adressen gleich ist.

dive26 · 11. August 2022, 21:16

@RodFromGermany

Was hat es mit diesem Image auf sich?

Man muss natürlich mit seine Email-Adresse bei Gravatar ein Konto haben.
Probiere es mal mit info@bonit.at, dann siehst Du meinen Avatar ;-).
In fast jeder Wordpress-Kommentarfunktion wird das verwendet.

RodFromGermany · 12. August 2022, 05:34

@dive26 Danke für die Information.

GRAVATAR Image als Bitmap herunterladen

GRAVATAR Image als Bitmap herunterladen

VB.NET-Quellcode

VB.NET-Quellcode

C#-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben