... eMail dekodieren?

[MeisterProper]

Hallo,

ich lade mit der indy komponente TIDPop3 und der Methode RetrieveRaw emails runter. Das problem ist, dass der body der email noch nicht dekodiert ist. das heißt, es steht zum beisliel "Stra=DFe" in der Email, anstatt "Straße". Kennt jemand einen algorithmus, mit dem dam die email dekodieren kann?

p.s.: einfach TIDPop3.Retrieve zu benutzen funktioniert nicht.

danke

[gringo6969]

Hier,

in s1 ist die email-body

Code:

    while Pos('=',s1)>0 do

    begin

        c:=copy(s1,Pos('=',s1)+1,2);

        insert(Chr(StrToInt('$'+c)),s1,Pos('=',s1));

        delete(s1,Pos('=',s1),3);

    end;

[gringo6969]

PS: soweit ich weiß wird der "=" Zeichen auch so codiert, so dass es problemlos funktioniert. ist jeddoch nicht nach RFC spezifikationen erstellt, sondern so wie ich es am einfachsten hatte.

[MeisterProper]

Das funktioniert. Prima. Danke. Hab es direktmal in eine etwas praktischere Funktion gepackt.

Code:

Function DecodeIt( Text : String ) : String;

var

 tmp : String;

begin

 Result := Text;

 while Pos( '=', Result ) > 0 do

    begin

     tmp := copy( Result, Pos('=', Result ) + 1, 2 );

     try insert( Chr( StrToInt('$' + tmp) ), Result, Pos( '=', Result) ); except end;

     delete( Result, Pos( '=' , Result ), 3 );

    end;

end;

[gringo6969]

Ich hatte es auch nur in der schnelle mal geschrieben. Ich denke es wäre besser du würdest den delete statement auch ins try reinschieben, denn falls IntTOStr einen fehler gibt, willst Du ja nicht die 3 zeichen löschen, oder?