Home/ Questions/Q 7750069
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-06-01T11:11:41+00:00

I have the html markup with unicode symbol: <!DOCTYPE HTML PUBLIC -//W3C//DTD HTML 4.0

  • 0

I have the html markup with unicode symbol:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML xmlns:o = "urn:schemas-microsoft-com:office:office"><HEAD>
<META content="text/html; charset=windows-1251" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 9.00.8112.16441"></HEAD>
<BODY>
<P>&#968;</P></BODY></HTML>

The symbol &#968; I insert using IHTMLTxtRange.pasteHTML. And when I use HTMLDocument2.body.innerHTML, I want to get <P>&#968;</P>, but instead of the string representation of a Unicode character string function return Unicode BSTR
where &#968;(ψ) is a Unicode character $03C8

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    Another workaround

    function GetInnerHTMLFromBody(const ADocument: IHTMLDOCUMENT2): AnsiString;
var
  ms: TMemoryStream;
  startBody: integer;
  stopBody: integer;
const
  bodyTag = '<BODY>';
  closedBodyTag = '</BODY>';
begin
  Result := '';
  if ADocument <> nil then
  begin
    ms := TMemoryStream.Create;
    try
      Succeeded((ADocument as IPersistStreamInit).Save(
        TStreamAdapter.Create(ms, soReference) as IStream, true));
      ms.Seek(0, soFromBeginning);
      SetLength(Result, ms.size);
      ms.ReadBuffer(Result[1], ms.size);
      // better to use regexpr
      startBody := AnsiPos(bodyTag, Result) + Length(bodyTag);
      stopBody := AnsiPos(closedBodyTag, Result);
      Result := Copy(Result, startBody, stopBody - startBody);
    finally
      ms.Free;
    end;
  end;
end;

    However, this method only works with ANSI encoding html document. If the Unicode encoding you need to do an additional conversion from Unicode to AnsiString:

    if SameText(Utf8ToAnsi(UTF8Encode(HTMLDocument2.charset)),'unicode') then
...
    • 0