Das UTF8Decode in der System.pas ist da sehr rabiat und gut nutzbar, für soeinen Mist.
> bei ungültigem UTF-8 gibt das einfach einen Leerstring zurück, anstatt einer Fehlermeldung.
Delphi-Quellcode:
var
A: AnsiString;
S: string; // UnicodeString
A := ...;
if (A <> '') and (UTF8Decode(A) <> '') then
S := UTF8Decode(A)
else
S := A; // hier eventuell TEncoding, mit passender CodePage ... oder A als String mit CodePage definieren, siehe UTF8String in der System.pas
S := HTMLEncode(S);
http://stackoverflow.com/questions/2...-escaping-html
http://www.delphipraxis.net/148888-u...vertieren.html
Es dürfte dafür bestimmt auch irgendwo in den
INDY ein Code versteckt sein.