convertidor rtf2html

[[xEsk]]

Te he hecho esta función para los caracteres "raros" en HTML, creo q no me he dejado ninguno estandard

Código Delphi [-]
// una forma de detectar caracteres estandard en HTML
function CharToHTML(AChar: Char): String;
begin
  if AChar in [' ', '!', '#'..'%', #39..';', '=', '?'..'~'] then // es un caracter estandard
    Result:=AChar
  else // es un caracter "raro"
   Result:='&#' + IntToStr(Word(AChar)) + ';';
end;

Creo q la cosa esta en detectar todos los caracteres estandard (ya que son menos q los "raros") asi pues, si es estandard lo dejamos igual, en caso contrario lo codificamos usando &#valor;

Saludos.