utf-8 aus Mail-subject mit Delphi5 in ANSI konvertieren

[Siggi]

Hallo Leute,

ich habe mir ein kleines Programm zusammengestellt, das Mails aus Firefox ausliest und in einer Datenbank speichert.
Das funktioniert auch sehr gut, bis auf manche Mails, bei denen der Betreff in der Firefox-Maildatei (eine Textdatei, die ich direkt auslese) bereits so enthalten ist:

Zitat:

Subject: Re: Re-8: =?UTF-8?B?QsO8Y2hlcmVpdmVyd2FsdHVuZyBmw7xyIFNjaHVsZW46?=
=?UTF-8?B?IEVpbmlnZSBGcmFnZW4=?=

Da hier "utf-8" steht, gehe ich mal davon aus, dass man das auch konvertieren kann und Firefox zeigt den Betreff ja auch richtig an, also muss es ja gehen. Da ich in der Applikation einige Komponenten verwende, die ich nur für Delphi5 besitze, kann ich derzeit keine neuere Delphi-Verion einsetzen, in der das vielleicht einfacher geht. Daher bitte nur Antworten, die auch mit Delphi5 realisierbar sind.

Versucht habe ich es mit der JCL- Funktion UTF8ToWideString. Der Betreff in oben angezeigter Form liegt dabei in einem String "Betreff" und ich versuche ihn wie folgt zu wandeln und testweise anzuzeigen:

Delphi-Quellcode:

//in der Variablen Betreff liegt der Text aus der Maildatei ab Position 8 der Subject-Zeile bis zum Ende des Betreffs
Inhalt:=UTF8ToWideString(Betreff);
MessageDlg(inhalt, mtWarning, [mbOK], 0);

Das Ergebnis unterscheidet sich allerdings überhaupt nicht von dem übergebenen String.

Was mache ich da falsch??

Danke füe Eure Tipps!
Siggi

[Bernhard Geyer]

Die Daten sind noch zusätzlich Base64-Codiert. Also erst das rückgängig machen und dann die UTF8-Codierung.

[Siggi]

uuups, hätte ich auch selbst daruf kommen können - aber man lernt halt nie aus .

Danke, nun geht's !

[Techcrawler]

Zitat von Bernhard Geyer:

Die Daten sind noch zusätzlich Base64-Codiert. Also erst das rückgängig machen und dann die UTF8-Codierung.

Gib mir doch bitte mal einen Tipp, wie die entsprechende Funktion aussehen muss, ich sitze vor dem gleichen Problem.
In PHP würde ich es mit imap_utf8() einfach lösen, welche Funktion brauche ich bei Delphi?

[himitsu]

Ich bin mir ganz sicher, daß wir genau das Gleiche Ende letzen Jahres auch schonmal hier hatten.
(inkl. aller Lösungen)

[Siggi]

also ich habe es unter Delphi 5 mit der Function Base64Decode aus der Unit MimeUtil in der Komponentensammlung ICS von Francois Piette decodiert. Das ist als Freeware unter http://www.overbyte.be zu finden.

[invalid_operation]

Zitat von himitsu:

Ich bin mir ganz sicher, daß wir genau das Gleiche Ende letzen Jahres auch schonmal hier hatten.
(inkl. aller Lösungen)

Ja, stimmt! Nämlich in diesem Thread



Sorry für die Schleife, himitsu

Vor ein paar/vielen Monaten hatte ich ein ähnliches Problem mit Delphi5pro, um das ich mich mit synapse "herumgemogelt" habe.

HTH