UTF ä und ß hintereinander , ß wird nicht encoded

[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.

[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.