个人中心
gpt4 book ai didi

delphi - 获取 IHTMLElement.body.innerHTML 作为 ansi 字符串

转载 作者：行者123 更新时间：2023-12-02 00:01:15 25 4
gpt4 key购买 nike

我有带有 unicode 符号的 html 标记:

<!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>

符号&#968;我使用 IHTMLTxtRange.pasteHTML 插入。当我使用 HTMLDocument2.body.innerHTML 时，我想得到 <P>&#968;</P> ，但不是 Unicode 字符串函数返回 Unicode BSTR 的字符串表示形式哪里&#968; (ψ) 是一个 Unicode 字符 $03C8

最佳答案

另一种解决方法

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;

但是，此方法仅适用于 ANSI 编码的 html 文档。如果 Unicode 编码您需要进行从 Unicode 到 AnsiString 的额外转换:

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

关于delphi - 获取 IHTMLElement.body.innerHTML 作为 ansi 字符串，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/10025435/

25 4 0
文章推荐： c# - 如何为.NET Core 3.0 Worker Service设置事件日志
文章推荐： java - 链表中会发生什么？
文章推荐： java - 使用 Thymeleaf 进行表单处理
文章推荐： vim - Emacs 中是否有类似于 Surround.vim 的扩展或模式？