UTF ä und ß hintereinander , ß wird nicht encoded

[Samashy]

Ich erhalte eine Email mit einem UTF codierten Betreff: '=?UTF-8?Q?Planm=C3=A4=C3=9Fige_Erh=C3=B6hung_xx-xx-xx?=

Code:

while Pos('=?UTF-8',Dump)<>0 do
   begin
     StartPos:=Pos('=?UTF-8',Dump)+10;
     EndPos:=PosEx('?=',Dump,startpos+10);
     Encoded:=Encoded+Copy(Dump,StartPos,EndPos-StartPos);
     Dump:=Encoded+Copy(Dump,EndPos+3,Length(Dump)-(EndPos+2));
   end;
   Result:=Encoded;

Ich entferne die UTF ControllStrings und benutze dann TIdDecoderQuotedPrintable

Code:

 
Decoder :=TIdDecoderQuotedPrintable.Create;
versuch1:=Decoder.DecodeString(TRIM(betreff));
ergebnis:=UTF8ToWideString(versuch1);

Ergebnis:
versuch1 = 'PlanmäÃ'#$009F'ige_Erhöhung_xx-xx-xx'
ergebnis = 'Planmä�?ige_Erhöhung_xx-xx-xx'

Was mache ich falsch? ß wird einfach nicht gewandelt, obwohl es meiner Meinung nach richtig geliefert wird. (=C3=9F)

[hoika]

Hallo,
was passiert, wenn Du das ä mal wegläßt.
Und wie hast Du die einzelnen String-Variablen definiert (welcher Typ genau)?

[Schokohase]

Man sollte das entsprechende RFC Dokument lesen. Dort wird dann alles erklärt.

RFC2047: MIME (Multipurpose Internet Mail Extensions) Part Three: Message Header Extensions for Non-ASCII Text

Es gibt auch einen Online-Decoder, damit man sehen kann, was denn bei

Code:

=?UTF-8?Q?Planm=C3=A4=C3=9Fige_Erh=C3=B6hung_xx-xx-xx?=

herauskommen sollte

Code:

Planmäßige Erhöhung xx-xx-xx

[hoika]

Hallo,
das löst doch aber nicht das Problem des TE?
Wo ist denn die Antwort auf seine Frage?

PS: Ich persönlich finde die RFC's einfach nur schrecklich zu lesen.

[Harry Stahl]

Zitat von Samashy:

Ich erhalte eine Email mit einem UTF codierten Betreff: '=?UTF-8?Q?Planm=C3=A4=C3=9Fige_Erh=C3=B6hung_xx-xx-xx?=

Code:

while Pos('=?UTF-8',Dump)<>0 do
   begin
     StartPos:=Pos('=?UTF-8',Dump)+10;
     EndPos:=PosEx('?=',Dump,startpos+10);
     Encoded:=Encoded+Copy(Dump,StartPos,EndPos-StartPos);
     Dump:=Encoded+Copy(Dump,EndPos+3,Length(Dump)-(EndPos+2));
   end;
   Result:=Encoded;

Ich entferne die UTF ControllStrings und benutze dann TIdDecoderQuotedPrintable

Code:

 
Decoder :=TIdDecoderQuotedPrintable.Create;
versuch1:=Decoder.DecodeString(TRIM(betreff));
ergebnis:=UTF8ToWideString(versuch1);

Ergebnis:
versuch1 = 'PlanmäÃ'#$009F'ige_Erhöhung_xx-xx-xx'
ergebnis = 'Planmä�?ige_Erhöhung_xx-xx-xx'

Was mache ich falsch? ß wird einfach nicht gewandelt, obwohl es meiner Meinung nach richtig geliefert wird. (=C3=9F)

Versuch mal:

Delphi-Quellcode:

Decoder := TIdDecoderQuotedPrintable.Create;
versuch1:= Decoder.DecodeString(TRIM(betreff), IndyTextEncoding_UTF8);

[Schokohase]

@hoika

Nun ja, wer die RFCs liest, der bekommt z.B. mit, dass dieser Text folgende Bedeutung hat:

Code:

=?<charset>?<encoding>?<encoded-text>?=

Da fest vorauszusetzen, dass es sich beim Charset immer um UTF-8 handelt oder beim Encoding immer um QuotedPrintable, ist halt ein vorprogrammierter Knieschuss.

Des weiteren wird bei QuotedPrintable im Header ein Leerzeichen durch =20 ersetzt oder durch den Unterstrich _.

Damit hat man sozusagen alles zusammen um das Problem mit ein paar Zeilen universal zu lösen.

[hoika]

Hallo,
du meinst also, dass zwar UTF8 im Betreff drinsteht,
es aber selbst kein UTF8 ist.

[Schokohase]

Nun, ich würde sagen, dass bei dieser Mail

Zitat von Samashy:

Ich erhalte eine Email mit einem UTF codierten Betreff: '=?UTF-8?Q?Planm=C3=A4=C3=9Fige_Erh=C3=B6hung_xx-xx-xx?=

der Betreff mit dem Charset UTF-8 und QuotedPrintable codiert ist.

Und bei der nächsten Mail? Die kann mit irgendeinem Charset und Base64 kodiert sein.

Code:

From: =?US-ASCII?Q?Keith_Moore?= <[e-mail]>
To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <[e-mail]>
CC: =?ISO-8859-1?Q?Andr=E9?= Pirard <[e-mail]>
Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?= =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=

Natürlich kann ich das jetzt falsch verstanden haben und der TE will ein Programm schreiben, das nur diese eine Mail bearbeiten wird. Dann hättest du natürlich Recht.

[Samashy]

Zitat von Harry Stahl:

Versuch mal:

Delphi-Quellcode:

Decoder := TIdDecoderQuotedPrintable.Create;
versuch1:= Decoder.DecodeString(TRIM(betreff), IndyTextEncoding_UTF8);

Vielen Dank, das funktioniert.


Danke für die schnellen Hinweise von allen hier.

[Samashy]

Zitat:

Natürlich kann ich das jetzt falsch verstanden haben und der TE will ein Programm schreiben, das nur diese eine Mail bearbeiten wird. Dann hättest du natürlich Recht.

In dem Fall ist es tatsächlich so, dass die Mail immer vom selben Absender kommt und man sich auf UTF8 geeinigt hat.

Hab vielen Dank für Deinen Lösungsweg, werde ich beherzigen.