Декодирование HTML через THTMLEncoding

[Maximus]

Добрый день. Возникла проблема при декодировании HTML страницы. При попытке декодировать символ

THTMLEncoding.HTML.Decode(' ');

получаю ошибку

Не хотелось использовать обычную замену, думал использовать специальную функцию для этого, но не вышло... Это очередной баг или перед декодированием текст ещё как-то нужно подготовить?

[Равиль Зарипов (ZuBy)]

есть спец метод

function Enc(const aStr: string): string;
// uses System.NetEncoding
begin
  Result := TNetEncoding.HTML.Decode(aStr);
end;

 

[Maximus]

На самом деле и THTMLEncoding и TNetEncoding используют один и тот же метод, поэтому результат будет тот же.

[Равиль Зарипов (ZuBy)]

так он и не знает о таком символе

 try
    while Sp^ <> #0 do
    begin
      case Sp^ of
        '&':
          begin
            Cp := Sp;
            Inc(Sp);
            case Sp^ of
              'a':
                if AnsiStrPos(Sp, 'amp;') = Sp then { do not localize }
                begin
                  Inc(Sp, 3);
                  Rp^ := '&';
                end;
              'l', 'g':
                if (AnsiStrPos(Sp, 'lt;') = Sp) or (AnsiStrPos(Sp, 'gt;') = Sp)
                then { do not localize }
                begin
                  Cp := Sp;
                  Inc(Sp, 2);
                  while (Sp^ <> ';') and (Sp^ <> #0) do
                    Inc(Sp);
                  if Cp^ = 'l' then
                    Rp^ := '<'
                  else
                    Rp^ := '>';
                end;
              'q':
                if AnsiStrPos(Sp, 'quot;') = Sp then { do not localize }
                begin
                  Inc(Sp, 4);
                  Rp^ := '"';
                end;
              '#':
                begin
                  Tp := Sp;
                  Inc(Tp);
                  while (Sp^ <> ';') and (Sp^ <> #0) do
                    Inc(Sp);
                  SetString(S, Tp, Sp - Tp);
                  Val(S, I, Code);
                  if I >= $10000 then
                  begin
                    // DoDecode surrogate pair
                    Rp^ := Char(((I - $10000) div $400) + $D800);
                    Inc(Rp);
                    Rp^ := Char(((I - $10000) and $3FF) + $DC00);
                  end
                  else
                    Rp^ := Chr((I));
                end;
            else
              raise EConvertError.CreateFmt(sInvalidHTMLEncodedChar,
                [Cp^ + Sp^, Cp - PChar(Input)])
            end;
          end
      else
        Rp^ := Sp^;
      end;
      Inc(Rp);
      Inc(Sp);
    end;
  except
    on E: EConvertError do
      raise EConvertError.CreateFmt(sInvalidHTMLEncodedChar,
        [Cp^ + Sp^, Cp - PChar(Input)])
  end;
  SetLength(Result, Rp - PChar(Result));

 

[Maximus]

Значит всё-таки придётся вручную заменять.