delphi - Delphi 7 中的 Indy v9 - 当 ContentType 不是 text/plain 时如何提取 TIDMessagePart.Body 的可读文本部分

Question

我正在尝试提取类型为 TIDText 的 TIDMessagePart 对象的 Body.Text 属性的可读部分。类似于下面的代码。但是，如果 TIDText 消息部分的 ContentType 不是 text/plain，而是 text/html，这会用所有 HTML 标记填充 sBody。我只想要可读的文本，但看不到在版本 9 库中获取它的方法。我错过了什么吗？

var email: TIDMessage; sBody：字符串；

...

for j := 0 to Pred(email.MessageParts.Count) do
begin
if email.MessageParts.Items[j] is TIdText then
begin
    sBody := TIdText(email.MessageParts.Items[j]).Body.Text;
end;
end;

Answer 1

您必须手动解析 HTML 以从中提取所需的纯文本。 TIdMessage只是一个数据的电子邮件容器，它不会为您解析正文内容，除了处理字符集转换。您必须自己解析内容。