delphi 解析html

Delphi可以使用TWebBrowser组件来解析HTML。 TWebBrowser是一个包装了Internet Explorer（IE）的ActiveX控件，可以在Delphi中使用。以下是一个简单的示例代码段，它演示了如何使用TWebBrowser加载HTML并解析它：

var
  WebBrowser: TWebBrowser;
  HTMLDocument: IHTMLDocument2;
  HTMLBody: IHTMLElement;
begin
  WebBrowser := TWebBrowser.Create(nil);
  try
    // 加载HTML
    WebBrowser.Navigate('http://www.example.com');
    while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do
      Application.ProcessMessages;
    while WebBrowser.ReadyState < READYSTATE_COMPLETE do
      Application.ProcessMessages;

    // 获取HTML文档对象
    HTMLDocument := WebBrowser.Document as IHTMLDocument2;

    // 获取HTML的body元素
    HTMLBody := HTMLDocument.body;

    // 处理HTML
    // 例如，获取body文本
    ShowMessage(HTMLBody.innerText);
  finally
    WebBrowser.Free;
  end;
end;

这个示例中，TWebBrowser组件加载了一个网页，然后获取了该网页的HTML文档对象。然后，我们使用IHTMLElement接口来获取HTML的body元素，并使用它来获取body文本。你可以根据需要扩展这个示例来解析HTML的不同部分。